参考
Dim str As String = ""For Each tb As DataTable In DataTables If Tables(tb.name).Form Is Nothing Then str = str & tb.NAME & "|" End IfNextmsgbox(str)