Dim dts As new List(Of String) Dim tbs As String = "表A,表B" For Each dt As DataTable In DataTables If tbs.Contains(dt.name) = False Then dts.add(dt.name) End If Next Dim Builder As New ADOXBuilder Builder.Open() With Builder For Each n As String In dts .DeleteTable(n) Next End With Builder.Close()
加好友 
发短信
Post By：2016/1/10 12:13:00 [显示全部帖子]
