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

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