VB.NET DataGridView自动绑定MS Access数据时如何显示超链接字段？

刚好我之前处理过类似的场景——当直接绑定Access数据到DataGridView时，Hyperlink类型字段会被默认识别为普通文本列，毕竟OLEDB驱动不会自动帮我们把它转成链接列。下面给你两种可行的方案，适配你这种自动生成列的场景：

方案一：绑定后转换列类型并解析超链接格式 #

这种方案不需要修改你的数据查询逻辑，只需要在数据绑定完成后，调整列的类型并处理Access超链接的特殊存储格式：

完整修改代码 #

Imports System.Diagnostics ' 需要导入这个命名空间用于打开链接

Dim connString As String = "Provider=Microsoft.ACE.OLEDB.12.0; Data Source=D:\e\CTMSDBClient2007.accdb"
Dim MyConn As OleDbConnection
Dim da As OleDbDataAdapter
Dim ds As DataSet
Dim tables As DataTableCollection
Dim source1 As New BindingSource

MyConn = New OleDbConnection(connString)
ds = New DataSet
tables = ds.Tables
da = New OleDbDataAdapter("SELECT * FROM Query5Search", MyConn)
da.Fill(ds, "Query5Search")

Dim view As New DataView(tables(0))
source1.DataSource = view
DataGridView1.DataSource = view

' --- 关键处理部分开始 ---
' 1. 替换成你实际的超链接字段名，比如"FileLink"
Dim hyperlinkColumnName As String = "你的超链接字段名"
Dim targetColumnIndex As Integer = DataGridView1.Columns(hyperlinkColumnName).Index

' 2. 删除默认生成的普通文本列
DataGridView1.Columns.Remove(hyperlinkColumnName)

' 3. 创建新的链接列并插入到原位置
Dim linkColumn As New DataGridViewLinkColumn()
linkColumn.Name = hyperlinkColumnName
linkColumn.HeaderText = DataGridView1.Columns(targetColumnIndex).HeaderText '保留原表头文字
linkColumn.DataPropertyName = hyperlinkColumnName '绑定到原字段
linkColumn.TrackVisitedState = True '标记已访问的链接
DataGridView1.Columns.Insert(targetColumnIndex, linkColumn)

' 4. 处理Access超链接的特殊存储格式：「显示文本#实际URL#子地址」
AddHandler DataGridView1.CellFormatting, Sub(sender, e)
    If e.ColumnIndex = targetColumnIndex AndAlso e.Value IsNot Nothing Then
        Dim hyperlinkValue As String = e.Value.ToString()
        Dim parts() As String = hyperlinkValue.Split("#"c)
        If parts.Length >= 2 Then
            ' 设置单元格显示的文本
            e.Value = parts(0)
            ' 把真实URL存在单元格Tag里，方便点击时调用
            DataGridView1.Rows(e.RowIndex).Cells(e.ColumnIndex).Tag = parts(1)
        End If
    End If
End Sub

' 5. 添加点击事件，打开对应的链接
AddHandler DataGridView1.CellContentClick, Sub(sender, e)
    If e.ColumnIndex = targetColumnIndex Then
        Dim url As String = DataGridView1.Rows(e.RowIndex).Cells(e.ColumnIndex).Tag.ToString()
        If Not String.IsNullOrEmpty(url) Then
            ' 打开链接，兼容本地文件和网页
            Process.Start(New ProcessStartInfo(url) With {.UseShellExecute = True})
        End If
    End If
End Sub
' --- 关键处理部分结束 ---

核心说明 #

• Access的Hyperlink字段存储格式是显示文本#实际URL#子地址（子地址通常为空），所以我们用#分割提取显示文本和真实链接
• 先删除自动生成的文本列，再插入链接列，保证列的位置和表头不变
• 通过CellFormatting事件自定义显示内容，把真实URL存在单元格的Tag属性中，点击时调用系统默认程序打开

方案二：查询时直接解析超链接字段 #

如果你不想处理DataGridView的事件，也可以在SQL查询阶段直接拆分超链接字段，简化后续处理：

SELECT 
    *,
    Left(HyperlinkField, InStr(HyperlinkField, "#") - 1) As LinkDisplayText,
    Mid(HyperlinkField, InStr(HyperlinkField, "#") + 1, InStrRev(HyperlinkField, "#") - InStr(HyperlinkField, "#") - 1) As LinkUrl
FROM Query5Search

绑定数据后，直接将DataGridViewLinkColumn的DataPropertyName设为LinkDisplayText，并在点击事件中使用LinkUrl字段的值即可。

注意事项 #

• 务必替换代码中的「你的超链接字段名」为数据库中实际的字段名称
• 如果使用32位Access数据库，要确保VB.NET项目的目标平台设置为x86，否则会出现驱动找不到的错误

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