用法完全一样没看出来有什么区别
Dim cmd As New SQLCommand
Dim dt As DataTable
cmd.C
cmd.CommandText = "SELECT DISTINCT 年,结单,年月,产品,客户,雇员 From {订单}"
dt = cmd.ExecuteReader()
Dim trv As WinForm.TreeView = e.Form.Controls("TreeView1")
trv.BuildTree(dt,"年|结单|年月|产品|客户|雇员")
'加载第一页数据
For Each nd As WinForm.TreeNode In trv.AllNodes
Dim Year As String = nd.DataRow("年")
Dim jd As String = nd.DataRow("结单")
Select Case nd.Level
Case 0
nd.Text = nd.text & "(" & dt.Compute("Count(产品)","年 = '" & Year & "'") & "条)"
Case 1
nd.Text = nd.text & "(" & dt.Compute("Count(产品)","年 = '" & Year & "' And 结单 = '" & jd & "'" ) & "条)"
End Select
Next
trv.Nodes.Insert("加载所有数据",0)
加好友 
发短信
Post By：2019/8/2 17:44:00 [显示全部帖子]
