Rss & SiteMap
Foxtable(狐表) http://www.foxtable.com
dim str1 as string
For each dt as DataTable In DataTables
str1 = str1 & "|" & dt.name
Next
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