VB.NET如何通过数据库配置动态设置GridView的列属性

你可以在GridView绑定数据前执行属性赋值逻辑，具体实现步骤和代码如下：

首先定义和配置表字段对应的配置实体类，用于存储读取到的列配置：

Public Class GridColumnConfig
    Public Property ControlName As String ' 对应GridView控件名
    Public Property ColumnDataField As String ' 对应列绑定的数据源字段名
    Public Property HeaderText As String ' 列标题
    Public Property Width As Integer ' 列宽
    Public Property Visible As Boolean ' 是否显示
    Public Property ReadOnly As Boolean ' 是否只读
    Public Property Alignment As String ' 内容对齐方式
    Public Property OrderIndex As Integer ' 列显示顺序
    ' 其他你配置表中存在的列属性都可以对应加属性字段
End Class

然后封装公共的列属性赋值方法，所有窗体的GridView都可以复用：

Public Class GridViewHelper
    Public Shared Sub ApplyColumnConfig(targetDgv As DataGridView, columnConfigs As List(Of GridColumnConfig))
        ' 先匹配修改已有列属性
        For Each col As DataGridViewColumn In targetDgv.Columns
            Dim config = columnConfigs.FirstOrDefault(Function(c) c.ColumnDataField = col.DataPropertyName)
            If config Is Nothing Then Continue For
            
            col.HeaderText = config.HeaderText
            col.Width = config.Width
            col.Visible = config.Visible
            col.ReadOnly = config.ReadOnly
            ' 枚举类型属性做转换处理
            If Not String.IsNullOrEmpty(config.Alignment) Then
                Dim align As DataGridViewContentAlignment
                If [Enum].TryParse(config.Alignment, True, align) Then
                    col.DefaultCellStyle.Alignment = align
                End If
            End If
        Next
        
        ' 若需要按配置调整列顺序，追加以下逻辑
        For Each col As DataGridViewColumn In targetDgv.Columns
            Dim config = columnConfigs.FirstOrDefault(Function(c) c.ColumnDataField = col.DataPropertyName)
            If config IsNot Nothing Then
                col.DisplayIndex = config.OrderIndex
            End If
        Next
        
        ' 如果你需要完全从配置生成列，替换上面的逻辑为下面的代码即可
        ' targetDgv.Columns.Clear()
        ' For Each config In columnConfigs
        '     Dim newCol As New DataGridViewTextBoxColumn() ' 可扩展支持不同列类型，比如复选框列
        '     newCol.DataPropertyName = config.ColumnDataField
        '     newCol.HeaderText = config.HeaderText
        '     newCol.Width = config.Width
        '     newCol.Visible = config.Visible
        '     newCol.ReadOnly = config.ReadOnly
        '     targetDgv.Columns.Add(newCol)
        ' Next
    End Sub
End Class

使用时只需在窗体的GridView初始化、数据绑定前调用方法即可：

' 1. 从数据库读取当前窗体对应GridView的列配置，填充为List(Of GridColumnConfig)
Dim dgvConfigs As List(Of GridColumnConfig) = 你读取配置表的方法("当前窗体名", "目标GridView控件名")
' 2. 应用配置
GridViewHelper.ApplyColumnConfig(Me.DataGridView1, dgvConfigs)
' 3. 再执行GridView赋值DataSource操作

注意事项 #

• 配置表建议增加唯一约束：窗体标识 + GridView控件名 + 列绑定字段，避免同一列匹配到多条配置
• 字符串转枚举的逻辑建议统一加TryParse做兼容，防止配置值拼写错误导致程序异常
• 可以在配置表增加列类型字段，扩展支持复选框列、下拉框列等不同类型的GridView列动态生成

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