- Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2)
---- 怎样自动添加表名，列名 (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=17387)
-- 发布时间：2012/3/12 9:17:00
-- 怎样自动添加表名，列名
下图是一个可视化 授权表的 截图 请问 如何设置能让
分组名列 自动将用户分组设置为列表项目
表名列 自动将所有表设置为列表项目
列名列 自动将所选表中所含列 设置为 列表项目
此主题相关图片如下：qq截图20120312091108.bmp
-- 发布时间：2012/3/12 9:45:00
--
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
-- 发布时间：2012/3/12 20:16:00
--
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