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

下面代码动态加载如何判断是否有数据如果有卸载后重新加载

e.Form.Controls("CheckedComboBox选择列").value = "客户等级,楼盘"

Dim cmd As New SQLCommand

Dim dt As DataTable

cmd.C '数据源

'cmd.CommandText = "S ELECT DISTINCT 客户等级,楼盘 F rom 终端用户 where 客户等级 In ('B类客户','C类客户','T类客户','A类客户','Y类客户') "

cmd.CommandText = "S ELECT DISTINCT 客户等级,楼盘 F rom {终端用户}"

dt = cmd.ExecuteReader()

'MessageBox.Show(dt.DataRows.Count)

Dim trv As WinForm.TreeView = e.Form.Controls("TreeView1")

trv.BuildTree(dt,"客户等级|楼盘", "", "客户等级,楼盘 DESC")

trv.Nodes.Insert("所有数据", "所有数据(" & DataTables("终端用户").sqlCompute("count(部门)") & ")项", 0)

主题：数据如果有卸载后重新加载