以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  卸载多个表  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=120480)
--  作者：dixiaxiaodan
--  发布时间：2018/6/16 21:22:00
--  卸载多个表
各位老师，怎样利用代码实现把表名不等于xx的其它表都卸载，例如现在加载了a,b,c,d,e五个表，我想利用代码实现如果表名不等于a，则卸载。现在用的这种
        If DataTables.Contains("b") Then 
            DataTables.Unload("b") 
        End If
。。。。
方法太低效了
--  作者：有点甜
--  发布时间：2018/6/17 15:30:00
--  

For Each dt As DataTable In DataTables
    If dt.name.Contains("a") = False Then
        DataTables.Unload(dt.name)
    End If
Next