使用关闭表按钮

我们可以在主界面中显示一个关闭表按钮：

此按钮默认不显示，要显示这个按钮，只需项目属性设置中将“显示关闭按钮”设置为True。

实际上，用户单击这个按钮，并不会真的关闭表，只是触发项目事件BeforeCloseTable而已。

BeforeCloseTable事件并没有任何e参数，我们可以通过全局变量MainTable获得当前活动的表，也就是用户希望关闭的表。

示例一

如果希望用户单击关闭表按钮之后，能够隐藏此表，为此可以将BeforeCloseTable事件代码设置为：

MainTable.Visible = False

示例二

如果希望用户单击关闭表按钮之后，能够直接卸载此表，为此可以将BeforeCloseTable事件代码设置为：

DataTables.UnLoad(MainTable.Name)

示例三

再例如禁止卸载表A和表B，其他表则允许卸载，为此可以将BeforeCloseTable事件代码设置为：

Select Case MainTable.Name
    Case "表A","表B"  '如果是表A和表B,不执行任何操作
    Case Else
        DataTables.UnLoad(MainTable.Name)
End Select

示例四

我们知道，如果两个或多个表之间建立了关联，那么这些表必须在同一个Unload方法中同时卸载，不可以分别卸载。
假定一个系统含有产品、客户、订单三个表，这三个表已经建立关联，如果允许用户通过单击关闭按钮来卸载这三个表，可以将BeforeCloseTable事件代码设置为：

Select Case MainTable.Name
    Case "产品","客户","订单"
        DataTables.Unload("产品|客户|订单")
End Select

这样用户选择这三个表中的任何一个单击关闭按钮的时候，都会同时卸载这三个表。