'e.Form.Controls("cmbTableName").combolist = DataTables("表结构DB").GetComboListString("表名") Dim str As String = "" For Each tb As DataTable In DataTables If Tables(tb.name).Form Is Nothing Then str = str & tb.NAME & "|" End If Next msgbox(str) 'e.Form.Controls("cmbTableName").combolist = str.trim("|")