- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- [求助]如何动态添加表名至列 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=3590)
-- 发布时间：2009/7/16 11:19:00
-- [求助]如何动态添加表名至列
请问：怎样动态的生成所有的表名至一个表的某列数据字典？
谢谢！
-- 发布时间：2009/7/16 11:23:00
--
dim str1 as string
For each dt as DataTable In DataTables
str1 = str1 & "|" & dt.name
Next
-- 发布时间：2009/7/16 11:35:00
--
Dim Val AS String = DataTables(0).Name
Dim i As Integer
For i = 1 to DataTables.Count-1
Val=Val & "|" & DataTables(i).Name
Next
Tables("表名").Cols("列名").Combolist = Val
-- 发布时间：2009/7/16 11:35:00
--
原来这么简单
谢谢~
