主题：列设置的问题

prepareEdit事件，或者 startEdit事件。

Dim str As String = "表A.第一列,表A.第四列,表A.第七列"
Dim ary As String() = str.Split(",")
If array.Indexof(ary, e.Table.DataTable.Name & "." & e.Col.Name) = -1 Then
    e.cancel = True
End If