主题：如何获取项目中所有表的表名

Dim s As string

For Each dt As DataTable In DataTables

    s+ = "|" & dt.Name

Next

Forms("窗口1").Controls("ComboBox1").ComboList = s