这样吗?
Dim name As StringFor Each dc As DataCol In DataTables("表A").DataCols name = name & "|" & dc.NameNextforms("窗口1").Controls("ComboBox1").ComboList = name