VB.NET DataGridView基于特定行实现指定列的水平转置显示

纯框架原生实现，无需第三方控件，直接适配WinForm VB.NET开发环境。

核心实现思路 #

不做控件层面的行列重绘，直接在内存层面对SQL查询返回的DataTable做结构转置，将原本按行存储的记录映射为列，最终把转置完成的表绑定给DataGridView，性能表现远好于自定义控件重绘逻辑。

分步实现流程 #

• 前置规则确认：转置时保留两个固定映射逻辑，匹配常规行列旋转的展示需求：
  • 原始DataTable的所有列名，作为转置后表的第一列的行内容
  • 原始DataTable每一行的第一列值，作为转置后表的列头
• 编写通用转置方法：可直接复用于所有SqlQuery返回的查询结果，自动处理空值场景避免异常

' 通用DataTable转置函数
Private Function ConvertTableTranspose(rawData As DataTable) As DataTable
    Dim transposedTable As New DataTable()
    ' 新增第一列存储原始表的字段名
    transposedTable.Columns.Add("字段名称")

    ' 遍历原始表行，生成转置表的列
    For Each rawRow As DataRow In rawData.Rows
        Dim colHeader = If(IsDBNull(rawRow(0)), "", rawRow(0).ToString())
        transposedTable.Columns.Add(colHeader)
    Next

    ' 逐列填充转置后的数据行
    For sourceColIndex As Integer = 1 To rawData.Columns.Count - 1
        Dim newRow = transposedTable.NewRow()
        newRow(0) = rawData.Columns(sourceColIndex).ColumnName
        For sourceRowIndex As Integer = 0 To rawData.Rows.Count - 1
            Dim cellValue = rawData.Rows(sourceRowIndex)(sourceColIndex)
            newRow(sourceRowIndex + 1) = If(IsDBNull(cellValue), "", cellValue)
        Next
        transposedTable.Rows.Add(newRow)
    Next

    Return transposedTable
End Function

• 绑定DataGridView展示：

' 替换为实际项目中的SQL查询执行逻辑，拿到原始结果DataTable
Dim rawResult As DataTable = ExecuteSqlQuery()
' 执行转置后直接绑定到控件
dgvDisplay.DataSource = ConvertTableTranspose(rawResult)
' 基础展示适配优化
dgvDisplay.ScrollBars = ScrollBars.Both
dgvDisplay.AutoResizeColumns()

适配注意事项 #

• 方法兼容全版本.NET Framework、跨平台.NET下的VB.NET WinForm项目，无需引入额外第三方依赖
• 针对返回数据量超过1万行的查询结果，建议在SQL查询阶段提前做行数量限制，避免转置过程占用过多内存
• 如需固定首列冻结展示，可设置dgvDisplay.Columns(0).Frozen = True，纵向滚动时首列始终保持可见

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