VB.NET中DataGridViewLinkColumn无法显示数据属性的问题求助

核心问题分析 #

1. DataGridViewLinkColumn绑定无效：你给Col4、Col5设置的DataPropertyName是"❌"和"✏"，但你的_myTable数据表里根本没有这两个列，导致绑定失败，自然显示为空。
2. DataTable初始化逻辑冲突：Form1_Load里已经给_myTable添加了列，但BindItemDetail中判断行数为0时会重新创建DataTable，覆盖之前的列定义，造成数据结构混乱。
3. 重复添加列：每次调用BindItemDetail都会执行AddColumnsProgrammatically，导致DataGridView重复添加相同列。

解决方案（两种可选） #

方案一：固定显示删除/编辑图标（无需绑定动态数据）

如果这两个链接列只是固定显示删除、编辑图标，不需要每行动态变化，直接设置列的固定文本即可：

修改AddColumnsProgrammatically方法中Col4、Col5的代码：

Private Sub AddColumnsProgrammatically()
    Dim Col1 = New DataGridViewTextBoxColumn()
    Dim Col2 = New DataGridViewTextBoxColumn()
    Dim Col3 = New DataGridViewTextBoxColumn()
    Dim Col4 = New DataGridViewLinkColumn()
    Dim Col5 = New DataGridViewLinkColumn()
    
    ' 其他列配置不变...
    
    Col4.HeaderText = ""
    Col4.Name = "Column4"
    Col4.Text = "❌" ' 设置固定显示的文本
    Col4.UseColumnTextForLinkValue = True ' 启用列文本作为链接显示内容
    
    Col5.HeaderText = ""
    Col5.Name = "Column5"
    Col5.Text = "✏"
    Col5.UseColumnTextForLinkValue = True

    Grid.Columns.AddRange(New DataGridViewColumn() {Col1, Col2, Col3, Col4, Col5})
End Sub

同时修复BindItemDetail的重复列问题：

Private Sub BindItemDetail()
    If _myTable Is Nothing Then
        Dim field() As String = {"No", "Codeproduct", "Barcode"}
        _myTable = DataControl.CreateDataTableDynamic(field)
    End If
    ' 仅当DataGridView无列时才添加，避免重复
    If Grid.Columns.Count = 0 Then
        AddColumnsProgrammatically()
    End If
    Grid.DataSource = _myTable
End Sub

方案二：绑定动态数据（每行链接文本可自定义）

如果需要每行的链接文本不同，需先给DataTable添加对应列，再绑定：

1. 修改DataTable初始化：
   在CreateDataTableDynamic的字段数组里新增两个列，或者在Form1_Load中添加：

   ' 方式1：在CreateDataTableDynamic里修改
   Dim field() As String = {"No", "Codeproduct", "Barcode", "DeleteLink", "EditLink"}
   ' 方式2：在Form1_Load里添加
   _myTable.Columns.Add("DeleteLink", GetType(String))
   _myTable.Columns.Add("EditLink", GetType(String))
   

2. 填充数据时赋值：
   修改FillDataTable方法，给新增列赋值：

   Private Sub FillDataTable(iRow As Integer, ByVal Codeproduct As String, ByVal Barcode As String)
       Dim row As DataRow = _myTable.NewRow()
       row("No") = iRow
       row("Codeproduct") = Codeproduct
       row("Barcode") = Barcode
       row("DeleteLink") = "❌" ' 可自定义每行的显示文本
       row("EditLink") = "✏"
       _myTable.Rows.Add(row)
   End Sub
   

3. 修正LinkColumn绑定：
   修改AddColumnsProgrammatically中Col4、Col5的DataPropertyName：

   Col4.DataPropertyName = "DeleteLink"
   Col4.UseColumnTextForLinkValue = False ' 禁用固定文本，使用绑定的数据
   
   Col5.DataPropertyName = "EditLink"
   Col5.UseColumnTextForLinkValue = False
   

4. 同样修复BindItemDetail的重复列问题（同方案一的BindItemDetail修改）。

内容的提问来源于stack exchange，提问作者roy