---------------------------
---------------------------
耗时: 5.156秒
---------------------------
确定
---------------------------
580行数据
Dim st As Date = Date.Now
'要测试耗时的代码
Dim cmd As New SQLCommand
Dim dt As DataTable
cmd.C '数据源
cmd.CommandText = "SELE CT DIS TINCT 日期,收客部门,报备人 Fr om {终端用户}"
dt = cmd.ExecuteReader()
Dim trv As WinForm.TreeView = e.Fo rm.Controls("TreeView1")
trv.BuildTree(dt,"日期|收客部门|报备人", "", "日期 DESC,收客部门,报备人")
'trv.Nodes.Insert("加载所有数据",0)DESC
e.Form.Controls("CheckedComboBox选择列").value = "日期,收客部门,报备人"
For Each nd As WinForm.TreeNode In trv.AllNodes
Select Case nd.Level
Case 0
nd.text = nd.name & "(" & DataTables("终端用户").Compute("count(日期)","日期='" & nd.name & "'") & "户)"
Case 1
nd.text = nd.name & "(" & DataTables("终端用户").Compute("count(收客部门)", "日期='" & nd.parentNode.name & "' and 收客部门='" & nd.name & "'") & "户)"
Case 2
nd.text = nd.name & "(" & DataTables("终端用户").Compute("count(收客部门)","日期='" & nd.parentNode.parentNode.name & "' and 收客部门='" & nd.parentNode.name & "' and 报备人 = '" & nd.name & "'") & "户)"
End Select
Next
'加载目录模拟按钮
Dim btn1 As WinForm.Button = e.Form.Controls("001")
btn1.PerformClick()
'加载目录模拟按钮
'Dim btn As WinForm.Button = e.Form.Controls("Button10")
'btn.PerformClick()
MessageBox.Show("耗时: " & (Date.Now - st).TotalSeconds & "秒")'生成目录树
加好友 
发短信
Post By：2018/7/10 22:05:00 [只看该作者]
