主题：列标题能否做成下拉框选择

prepareEdit事件

 

If e.Row.Index = 0 Then
    Dim nm As String = ""
    For Each dc As Col In Tables("表A").Cols
        nm = nm & "|" & dc.Name
    Next
    e.Col.ComboList = nm
Else
    e.Col.ComboList = Nothing
End If

截图说明一下实际的表格和数据模式

Dim tb As Table = Tables("窗口1_table1")
For Each r As Row In tb.Rows
    For Each cl As Col In tb.Cols
        If cl.Visible = True Then
            Dim s As String = tb.Rows(0)(cl.Name)
            If r("行类别") <> Nothing AndAlso DataTables("合同清单").datacols.contains(s) Then
                Dim dr2 As DataRow = DataTables("合同清单").AddNew()
                dr2(s) = r(s)
            End If
        End If
    Next
Next

展示给用户看的可以使用标题。在代码中处理应该使用列名而不是列标题。代码用户又看不到，何必自己为难自己呢

循环每一列，把标题和列名对应起来。再有就是，你datacol的标题有可能是空值，要注意，必须用table

 

Dim dt As Table = Tables("表a")
Dim dic As new Dictionary(of String, Col)
For Each dc As Col In dt.Cols
    If dic.ContainsKey(dc.Caption) = False Then
        dic.Add(dc.Caption, dc)
    End If
Next
msgbox(dic("第一列").name)