[求助]如何卸载加载的表？ - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

各位老师，我在窗口中的分区面板中加载了一个表，在不关闭窗口的情况下如何卸载？

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

如果你不卸载，现在有问题？

如果要卸载，参考代码 datatables.UnLoad("表名")

老师，我设计的是专门有一个加载窗口，可以选择不同的表来加载，如果不卸载的话，后来的表就加载不上去。

我试过用unload语句，但没反应，请问问题出在哪里：

If DataTables.Contains("加载窗口_table1") Then

DataTables.Contains("加载窗口_table1")

End If

错了，应该是：

If DataTables.Contains("加载窗口_table1") Then '如果表C已经加载

DataTables.Unload("加载窗口_table1")'卸载表C

End If

但还是没反应

你这个createTable的表格是【副本表】，不需要卸载的。如果要卸载，你需要把其主表卸载掉。

老师，我的项目的确需要卸载副本表，卸载主表也不现实，因为是好多个关联表存在。能实现吗？如果不行，我要换个设计思路。

我的想法是通过在选择框中选择项目，按查看就会加载相应的表，按退出可以卸载表，然后再选择其他表加载，不需要关闭窗口

此主题相关图片如下：3_看图王.bmp

移除表控件，参考代码

e.Form.RemoveControl("table1")

太感谢了！问题解决了，谢谢！

主题：[求助]如何卸载加载的表？