主题：怎样自动添加表名，列名

下图是一个可视化 授权表的 截图 请问 如何设置能让

分组名列      自动将用户分组设置为列表项目

表名列         自动将所有表设置为列表项目

列名列         自动将所选表中所含列 设置为 列表项目

 

此主题相关图片如下：qq截图20120312091108.bmp

For Each dt As DataTable In DataTables
   output.show(dt.name)
   For Each dc As DataCol In dt.DataCols
        output.show(dc.name)
    Next
Next

PrepareEdit:

Dim a6 As String
For Each a5 As DataTable In DataTables
  a6=a6 & "|" & a5.Name
Next
Tables("授权表").Cols("表名").ComboList=a6

 

 

DataColChanged:

If e.DataCol.Name = "表名" Then
For Each a7 As DataTable In DataTables
 
 If a7.Name=e.DataRow("表名") Then
    Dim a9 As String
    For Each a8 As DataCol In a7.DataCols
      a9=a9 & "|" & a8.Name
    Next
     Tables("授权表").Cols("列名").ComboList=a9
  End If
Next
End If