临时表与全局变量

在实际开发的过程中，我们可以需要经常在代码中调用某个表的数据，但是又不需要在界面中显示这个表。
对于这种情况，我们可以使用临时表加载这个表的数据，同时将临时表保存在一个Public变量中，这样就可以在任何位置调用这个表，无需反复加载。

假定我们建立了一个外部数据源"Region",其中有个名为“行政区域”的基础数据表，这个表已经输入了全国所有县级行政区域的资料，包括省市、市县、区号、邮编四列。
我们不希望主界面中显示这个表，但是希望能随时通过代码调用这个表的数据。
当然我们可以正常加载这个表，然后将这个表的Visible属性设置为False即可，不过这次我们用临时表来解决：

1、首先在全局代码中定义一个Public变量：

Public rdt As DataTable

2、在项目事件AfterOpenProject中设置代码：

Dim cmd As New SQLCommand
cmd.ConnectionName = "region"
cmd.CommandText = "Se lect * From {行政区域}"
rdt = cmd.ExecuteReader()

3、现在我们可以在任何地方调用这个表的数据，例如窗口中有两个ComboBox控件，第一个ComboBox列出所有的省市，第二个ComboBox根据第一个ComboBox所选择的省市，列出该省市所有的县市。

首先将窗口的AfterLoad事件代码设置为：

e.Form.Controls("ComboBox1").ComboList = rdt.GetComboListString("省市")

然后将ComboBox2的Enter事件代码设置为：

Dim sh As String = e.Form.Controls("ComboBox1").value
e.sender.ComboList = rdt.GetComboListString("县市","省市 = \'" & sh & "\'")

4、再例如希望在客户表中输入省市、县市两列后，区号和邮编能自动输入，可以将客户表的DataColChanged事件代码设置为：