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

Dim dt As DataTable

Dim b As New GroupTableBuilder("统计表1",DataTables("产品订单管理"))

b.Groups.AddDef("客户名称")

b.Groups.AddDef("产品代号")

b.Totals.AddDef("订单关闭",AggregateEnum.Count,"订单数") '根据客户列来统计记录数,也就是订单数

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

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

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

trv.BuildTree(dt, "客户名称|产品代号|订单关闭")

trv.StopRedraw

For Each nd As WinForm.TreeNode In trv.AllNodes

Dim Producta As String = nd.DataRow("客户名称")

Dim Productb As String = nd.DataRow("产品代号")

Dim Product As Byte = nd.DataRow("订单关闭")

Select Case nd.Level

Case 0

nd.Text = nd.text & "客户名称(" & dt.Compute("Sum(订单数)","客户名称 = " & Producta) & "条)"

Case 1

nd.Text = nd.text & "产品代号(" & dt.Compute("Sum(订单数)","客户名称 = " & Producta & " And 产品代号 = " & Productb) & "条)"

Case 2

nd.Text = nd.text & "(" & nd.DataRow("订单数") & "条)"

End Select

trv.Nodes.Insert("显示所有行","显示所有行(" & dt.Compute("Sum(订单数)") & "条)",0)

trv.ResumeRedraw

此主题相关图片如下：360截图16530715525641.png

有这个列名为什么还是无效的呢，判断列不能做筛选树吗

下载信息 [文件大小：下载次数： ]
点击浏览该文件:丹东恒锐.table

此主题相关图片如下：360截图16530715525641.png

复制进去怎么都报错了图片点击可在新窗口打开查看

此主题相关图片如下：360截图1648030582104102.png

此主题相关图片如下：360截图16800409362741.png

复制进去怎么全报错了呢

[此贴子已经被作者于2018/12/21 16:58:49编辑过]

这样只能筛选树列出所有的订单数量但是我想要达到的目的我想要是筛选树把完成的和未完成的分开这样方便筛选

筛选树解决了但是这个没有解决啊

NET Framework 版本：2.0.50727.8800

Foxtable 版本：2018.10.9.1

错误所在事件：

详细错误信息：

未找到列 [项目流程跟踪]。

早晨调试的时候还是好好的我也没改代码啊怎么就不好使了呢

此主题相关图片如下：360截图16570205938781.png

Dim Filter As String = ""

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

Dim Product As String = e.Node.DataRow("客户名称")

Dim Producta As String = e.Node.DataRow("产品代号")

Dim Productb As Byte = e.Node.DataRow("订单关闭")

Select Case e.Node.Level

Case 0

Filter = "客户名称 = " & Product & " "

Case 1

Filter = "客户名称 = " & Product & " And 产品代号 = " & Producta & " "

Case 2

Filter = "客户名称 = " & Product & " And 产品代号 = " & Producta & " and 订单关闭 = " & Productb & " "

End Select

End If

Tables("产品订单管理").Filter = Filter

此主题相关图片如下：360截图16491211807086.png

写了筛选代码也出现同样的问题图片点击可在新窗口打开查看

主题：筛选树