各位老师，我在窗口中的分区面板中加载了一个表，在不关闭窗口的情况下如何卸载？
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
加好友 
发短信
Post By：2018/7/9 16:33:00 [只看该作者]
