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

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

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

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

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

 

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

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