主题：遍历各表的列

PrepareEdit代码

Dim nm1 As String

Dim nm2 As String

Select Case e.Col.name

    Case "表名"

        For Each tb As DataTable In DataTables

            If tb.name<>"统计" Then  '不包括统计表

                nm1=nm1 & "|" & tb.name

            End If

        Next

        e.Col.ComboList=nm1  '全部表名的列表内容

Case "列名"

    If e.Row.IsNull("表名")=False Then

        For Each cl As Col In Tables("'" & e.Row("表名") & " '").Cols  '遍历列名

            nm2=nm2 & "|" & cl.name

        Next

        e.Col.ComboList=nm2

    End If

End Select