副本表不会跑出来,sqlTable、sqlQuery表跑出来是正常的,如果要屏蔽,参考
'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("|")