Dim cmd As New SQLCommand
cmd.C
Dim dt As DataTable
cmd.CommandText = "SELECT 竞赛名称,项目,级别,学校,奖项,名次奖, Count([_Identify]) As 订单数 From {成绩表} 竞赛名称,项目,级别,学校,奖项,名次奖"
dt = cmd.ExecuteReader()
Dim trv As WinForm.TreeView = e.Form.Controls("TreeView5")
trv.BuildTree(dt, "竞赛名称|项目|级别|学校|奖项|名次奖")
trv.StopRedraw
For Each nd As WinForm.TreeNode In trv.AllNodes
Dim Value()As String
Dim Filter As String
Dim d1 As Date
Dim d2 As Date
Value = nd.FullName.Split("\") '注意这里用FullName属性,不能用FullPath属性
Select Case nd.Level
Case 0
nd.text = nd.text & "竞赛名称"
Filter = "竞赛名称 = " & value(0)
Case 1
nd.text = nd.text & "项目"
Filter = "竞赛名称 = " & value(0) & " And 项目 = " & value(1)
Case 2
nd.text = nd.text & "级别"
Filter = "竞赛名称 = " & value(0) & " And 项目 = " & value(1) & " And 级别 = " & value(2)
Case 3
nd.text = nd.text & "学校"
Filter = "竞赛名称 = " & value(0) & " And 项目 = " & value(1) & " And 级别 = " & value(2) & " And 学校 = " & value(3)
Case 4
nd.text = nd.text & "奖项"
Filter = "竞赛名称 = " & value(0) & " And 项目 = " & value(1) & " And 级别 = " & value(2) & " And 学校 = " & value(3) & " And 奖项 = " & value(4) & "'"
'Case 5
' nd.text = nd.text & "名次奖"
' Filter = "竞赛名称 = " & value(0) & " And 项目 = " & value(1) & " And 级别 = " & value(2) & " And 学校 = " & value(3) & " And 名次奖 = " & value(4) & "'"
End Select
nd.Text = nd.text & "(" & dt.Compute("Sum(订单数)",Filter) & "条)"
Next
trv.Nodes.Insert("加载所有行","加载所有行(" & dt.Compute("Sum(订单数)") & "条)",0)
trv.ResumeRedraw
以上是运行代码！！！
此主题相关图片如下：未命名.jpg
以上是错误提示！！！
[此贴子已经被作者于2013-11-20 14:45:55编辑过]
加好友 
发短信
Post By：2013/11/20 13:16:00 [只看该作者]
