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

\'首先生成统计表

\'Dim dt3 As DataTable

\'Dim b3 As New GroupTableBuilder("统计表决算登记表",DataTables("决算登记表"))

\'b3.Groups.AddDef("日期",DateGroupEnum.Year,"年")

\'b3.Groups.AddDef("日期",DateGroupEnum.Month,"月")

\'b3.Groups.AddDef("状态")

\'\'b3.Groups.AddDef("考勤班组")

\'\'b3.Groups.AddDef("考勤员")

\'b3.Groups.AddDef("序号")

\'b3.Groups.AddDef("编制人")

\'\'b3.Groups.AddDef("所属班组")

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

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

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

\'Dim trv3 As WinForm.TreeView = e.Form.Controls("TreeView1")

\'trv3.BuildTree(dt3, "年|月|编制人|状态")

\'trv3.StopRedraw

\'For Each nd As WinForm.TreeNode In trv3.AllNodes

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

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

\'Dim Product4 As String = nd.DataRow("状态")

\'Dim Product5 As String = nd.DataRow("编制人")

\'\'Dim Product6 As String = nd.DataRow("生产工段")

\'\' Dim Product3 As String = nd.DataRow("提交人")

\'\'Dim Product7 As String = nd.DataRow(" ")

\'Select Case nd.Level

\'Case 0

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

\'Case 1

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

\'Case 2

\'nd.Text = nd.text & "(" & dt3.Compute("Sum(次数)","年 = " & Year & " And 月 = " & Month & " And 编制人 = \'" & nd.Text & "\'") & ")"

\'Case 3

\'nd.Text = nd.text & "(" & dt3.Compute("Sum(次数)","年 = " & Year & " And 月 = " & Month & " And 编制人 = \'" & Product5 & "\' And 状态 = \'" & nd.Text & "\'") & ")"

\'\'Case 4

\'\'nd.Text = nd.text & "(" & dt3.Compute("Sum(次数)","年 = " & Year & " And 月 = " & Month & " And 部门 = \'" & Product6 & "\' And 考勤班组 = \'" & Product3 & "\' And 考勤员 = \'" & nd.Text & "\'") & ")"

\'\'Case 5

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

\'End Select

\'Next

\'trv3.Nodes.Insert("显示所有行","显示所有行(" & dt3.Compute("Sum(次数)") & ")",0)

\'trv3.ResumeRedraw

研究了半天加载树，区别就是第二行，我改成了这样

Dim b3 As New SQLGroupTableBuilder("统计表决算登记表","决算登记表")

其他的没动。请您指点。