以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  代码求解  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=130583)

--  作者:hongye
--  发布时间:2019/1/25 20:45:00
--  代码求解
如果表A,表B,表C,表D,表E,表F,任何一个或者多个表未加载或者全部表都加载,则除未加载的表外其余表全部卸载
其中表A和表E,表F各关联

请问这个代码怎么写最简单

--  作者:有点蓝
--  发布时间:2019/1/25 21:47:00
--  
Dim ns As String = ""

For Each dt As DataTable In DataTables
    ns = ns & "| " & dt.Name
Next
ns = ns.Trim("|")
DataTables.Unload(ns)

--  作者:hongye
--  发布时间:2019/1/25 21:58:00
--  
项目里还有其他的表啊,这样的全部变不加载了
我的意思是只针对表A,表B,表C,表D,表E,表F,其他的表无关,比如表G和表H,原来咋样现在还是咋样

--  作者:有点蓝
--  发布时间:2019/1/25 22:09:00
--  
Dim ns() As String = {"表A","表B","表C","表D","表E","表F"}
Dim n As String = ""
For Each n1 As String In ns
    If DataTables.Contains(n1) Then n = n & "| " & n1
Next
n = n.Trim("|")
DataTables.Unload(n)
[此贴子已经被作者于2019/1/25 22:30:19编辑过]

--  作者:hongye
--  发布时间:2019/1/25 22:21:00
--  
不行啊
--  作者:hongye
--  发布时间:2019/1/25 22:25:00
--  

图片点击可在新窗口打开查看此主题相关图片如下:4.png
图片点击可在新窗口打开查看

--  作者:有点蓝
--  发布时间:2019/1/25 22:30:00
--  
Dim ns() As String = {"表A","表B","表C","表D","表E","表F"}
Dim n As String = ""
For Each n1 As String In ns
    If DataTables.Contains(n1) Then n = n & "| " & n1
Next
n = n.Trim("|")
DataTables.Unload(n)
[此贴子已经被作者于2019/1/25 22:30:10编辑过]

--  作者:hongye
--  发布时间:2019/1/25 22:47:00
--  
不存在名为“”的表图片点击可在新窗口打开查看
--  作者:hongye
--  发布时间:2019/1/25 22:48:00
--  

图片点击可在新窗口打开查看此主题相关图片如下:4.png
图片点击可在新窗口打开查看

--  作者:有点蓝
--  发布时间:2019/1/25 22:55:00
--  
自己加个判断,如果n为空值,就不用卸载