- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- [求助]如何卸载加载的表？ (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=121569)
-- 发布时间：2018/7/9 16:33:00
-- [求助]如何卸载加载的表？
各位老师，我在窗口中的分区面板中加载了一个表，在不关闭窗口的情况下如何卸载？
Dim xm As WinForm.ComboBox = e.Form.Controls("ComboBox1")
Dim ywbh As WinForm.TextBox = e.Form.Controls("TextBox1")
Select Case xm.Value
Case ""
Return
Case "住宿费收入"
Dim tbl As WinForm.Table
tbl = e.Form.CreateTable("Table1", "成本明细_酒店", True)
tbl.SetBounds(10, 10, 3000, 600)
e.Form.Controls("SplitContainer1").Panel2.AddControl(tbl)
Tables("加载窗口_Table1").DefaultRowHeight = 30
Tables("加载窗口_Table1").SetHeaderRowHeight(30,40)
Tables("加载窗口_Table1").SetColVisibleWidth("业务编号|70|客户名称|150|酒店费用明细_行程|60|酒店费用明细_酒店|200|酒店费用明细_价格|60|双人房床位|50|加床数量|50|加床价格|60|酒店费用总额|100|调整_单人房数量|50|调整_酒店|200|调整_单人房价格|60|调整_加床数量|50|调整_导游床数|50")
Tables("加载窗口_Table1").Filter = "业务编号 = \'" & ywbh.value & "\'"
Tables("加载窗口_Table1").Cols("酒店费用总额").GrandTotal = True
Tables("加载窗口_Table1").GrandTotal = True
End Select
-- 发布时间：2018/7/9 18:27:00
--
如果你不卸载，现在有问题？
如果要卸载，参考代码 datatables.UnLoad("表名")
-- 发布时间：2018/7/10 9:22:00
--
老师，我设计的是专门有一个加载窗口，可以选择不同的表来加载，如果不卸载的话，后来的表就加载不上去。
我试过用unload语句，但没反应，请问问题出在哪里：
If DataTables.Contains("加载窗口_table1") Then
DataTables.Contains("加载窗口_table1")
End If
-- 发布时间：2018/7/10 9:25:00
--
错了，应该是：
If DataTables.Contains("加载窗口_table1") Then \'如果表C已经加载
DataTables.Unload("加载窗口_table1")\'卸载表C
End If
但还是没反应
-- 发布时间：2018/7/10 9:30:00
--
你这个createTable的表格是【副本表】，不需要卸载的。如果要卸载，你需要把其主表卸载掉。
-- 发布时间：2018/7/10 10:33:00
--
老师，我的项目的确需要卸载副本表，卸载主表也不现实，因为是好多个关联表存在。能实现吗？如果不行，我要换个设计思路。
我的想法是通过在选择框中选择项目，按查看就会加载相应的表，按退出可以卸载表，然后再选择其他表加载，不需要关闭窗口
-- 发布时间：2018/7/10 10:35:00
--
此主题相关图片如下：3_看图王.bmp
-- 发布时间：2018/7/10 10:39:00
--
移除表控件，参考代码
e.Form.RemoveControl("table1")
-- 发布时间：2018/7/10 10:59:00
--
太感谢了！问题解决了，谢谢！