- Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2)
---- 代码求解 (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=130583)
-- 发布时间：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)
-- 发布时间：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编辑过]
-- 发布时间：2019/1/25 22:21:00
--
不行啊
-- 发布时间：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编辑过]
-- 发布时间：2019/1/25 22:47:00
--
不存在名为“”的表
-- 发布时间：2019/1/25 22:48:00
--
此主题相关图片如下：4.png
-- 发布时间：2019/1/25 22:55:00
--
自己加个判断，如果n为空值，就不用卸载