下面代码
动态加载 如何判断是否有数据如果有卸载后重新加载
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)
加好友 
发短信
Post By：2019/7/22 10:45:00 [只看该作者]
