目录树筛选问题 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

老师，我在目录树的代码需要加一层筛选，在领料单位下面还有领料人，点击领料单位是正常的，怎么把领料人加上?试了好多次也不行，请您指导。

Dim Filter As String = ""

If e.node.Name <> "所有行" Then '要用Name属性,不能用Text属性

Dim d1 As Date

Dim d2 As Date

Dim Year As Integer = e.Node.DataRow("年")

Dim Month As Integer = e.Node.DataRow("月")

Dim day As Integer = e.Node.DataRow("日")

Dim Product As String = e.Node.DataRow("领料单位")

Dim Product1 As String = e.Node.DataRow("领料人")

'Dim Product2 As String = e.Node.DataRow("考勤员")

Select Case e.Node.Level

Case 0

d1 = New Date(Year,1,1) '取得该年的第一天

d2 = new Date(Year,12,31) '取得该年的最后一天

Filter = "日期 >= '" & d1 & "' And 日期 <= '" & d2 & "'"

Case 1

d1 = New Date(Year, Month, 1) '取得该月的第一天

d2 = new Date(Year, Month, Date.DaysInMonth(Year,Month)) '取得该月的最后一天

Filter = "日期 >= '" & d1 & "' And 日期 <= '" & d2 & "'"

Case 2

Filter = "[领料单位] = '" & e.Node.DataRow("领料单位") & "'and Year(日期) = " & Year & " And Month(日期) = " & Month

Case 3

Filter = "[领料单位] = '" & e.Node.DataRow("领料单位") & "'and Year(日期) = " & Year & " And Month(日期) = " & Month & " And day(日期) = " & day

Case 4

上面的正常，这个是我加的，不行 Filter = "[领料单位] = '" & e.Node.DataRow("领料单位") & "'and [领料人] = '" & e.Node.DataRow("领料人") & "'and Year(日期) = " & Year & " And Month(日期) = " & Month & " And day(日期) = " & day

End Select

End If

DataTables("材料领用表").LoadFilter = Filter

DataTables("材料领用表").Load()

''首先生成统计表

Dim dt5 As DataTable

Dim b5 As New sqlGroupTableBuilder("统计表材料领用表","材料领用表")

b5.C

b5.Groups.AddDef("日期",DateGroupEnum.Year,"年")

b5.Groups.AddDef("日期",DateGroupEnum.Month,"月")

b5.Groups.AddDef("日期",DateGroupEnum.day,"日")

b5.Groups.AddDef("领料单位")

b5.Groups.AddDef("序号")

b5.Groups.AddDef("领料人")

b5.Totals.AddDef("序号",AggregateEnum.Count,"次数") '根据客户列来统计记录数,也就是订单数

dt5 = b5.Build(True) '参数设置为True,生成一个临时表,不在主界面显示

'然后根据统计表生成目录树

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

trv5.BuildTree(dt5, "年|月|领料单位|领料人")

trv5.StopRedraw

For Each nd As WinForm.TreeNode In trv5.AllNodes

Dim Year As Integer = nd.DataRow("年")

Dim Month As Integer = nd.DataRow("月")

Dim day As Integer = nd.DataRow("日")

Dim Product51 As String = nd.DataRow("领料单位")

Dim Product52 As String = nd.DataRow("序号")

Dim Product6 As String = nd.DataRow("领料人")

Select Case nd.Level

Case 0

nd.Text = nd.text & "(" & dt5.Compute("Sum(次数)","年 = " & Year) & ")"

Case 1

nd.Text = nd.text & "(" & dt5.Compute("Sum(次数)","年 = " & Year & " And 月 = " & Month) & ")"

Case 2

nd.Text = nd.text & "(" & dt5.Compute("Sum(次数)","年 = " & Year & " And 月 = " & Month & " And 领料单位 = '" & nd.Text & "'") & ")"

Case 3

nd.Text = nd.text & "(" & dt5.Compute("Sum(次数)","年 = " & Year & " And 月 = " & Month & " And 领料单位 = '" & Product51 & "' And 领料人 = '" & nd.Text & "'") & ")"

Case 4

nd.Text = nd.text & "(" & nd.DataRow("次数") & ")"

End Select

trv5.Nodes.Insert("所有行","所有行(" & dt5.Compute("Sum(次数)") & ")",0)

trv5.ResumeRedraw

老师，这里就是故意没有包含（日），需要修改哪里呢？

我改好了，谢谢老师

主题：目录树筛选问题