主题：[求助]如何动态添加表名至列

请问：怎样动态的生成所有的表名至一个表的某列数据字典？
谢谢！

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

原来这么简单
谢谢~