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

此主题相关图片如下：微信图片_11111111.png

想实现上面的目录树。还望协助修正下下面的代码，谢谢了

窗口事件的 Afertload代码如下：

'首先生成统计表

Dim dt As DataTable

Dim b As New GroupTableBuilder("统计表1",DataTables("销项fa piao"))

b.Groups.AddDef("销项fa piao状态")

b.Groups.AddDef("回款情况")

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

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

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

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

trv.BuildTree(dt, "销项fa piao状态|回款情况")

trv.StopRedraw

For Each nd As WinForm.TreeNode In trv.AllNodes

Dim Product As String = nd.DataRow("销项fa piao状态")

Dim d2 As String = nd.DataRow("回款情况")

Select Case nd.Level

Case 0

nd.Text = nd.text & "(" & nd.DataRow("项目数") & "个)"

Case 1

nd.Text = nd.text & "销项fa piao状态(" & dt.Compute("Sum(项目数)","销项fa piao状态 = " & Product) & "个)"

' nd.Text = nd.text & "(" & nd.DataRow("客户数") & "个)"

Case 2

nd.Text = nd.text & "销项fa piao状态(" & dt.Compute("Sum(项目数)","销项fa piao状态 = " & Product & " And 回款情况 = " & d2) & "个)"

End Select

trv.Nodes.Insert("销项fa piao-所有行","销项fa piao-所有行(" & dt.Compute("Sum(项目数)") & "个)",0)

trv.ResumeRedraw

Treeview 的 NodeMouseClick代码如下：

Dim Filter As String = ""
If e.node.Name <> "销项fa piao-所有行" Then '要用Name属性,不能用Text属性
Dim Product As String = e.Node.DataRow("销项fa piao状态")
Dim d2 As String = e.Node.DataRow("回款情况")
Select Case e.Node.Level
Case 0
Filter = " 销项fa piao状态 = '" & Product & "'"
Case 1
Filter = " 销项fa piao状态 = #" & Product & "'# And 回款情况 = '" & d2 & "'"
End Select
End If
Tables("销项fa piao").Filter = Filter

现在只能实现图片所示的样子。还请协助修改下。想实现一级目录是销项fa piao状态，二级目录是回款情况。并能够分别统计数量以及显示总数量。谢谢了。

For Each nd As WinForm.TreeNode In trv.AllNodes

Dim Product As String = nd.DataRow("销项fa piao状态")

Dim d2 As String = nd.DataRow("回款情况")

Select Case nd.Level

Case0

nd.Text = nd.text & "(" & dt.Compute("Sum(项目数)","销项fa piao状态 = '" & Product & "'") & "个)"

Case 1

nd.Text = nd.text & "(" & dt.Compute("Sum(项目数)","销项fa piao状态 = '" & Product & "' And 回款情况 = '" & d2 & "'") & "个)"

End Select

'首先生成统计表

Dim dt As DataTable

Dim b As New GroupTableBuilder("统计表1",DataTables("销项fa piao"))

b.Groups.AddDef("销项fa piao状态")

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

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

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

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

trv.BuildTree(dt, "销项fa piao状态")

trv.StopRedraw

For Each nd As WinForm.TreeNode In trv.AllNodes

Dim Product As String = nd.DataRow("销项fa piao状态")

Dim d2 As String = nd.DataRow("回款情况")

Select Case nd.Level

Case 0

nd.Text = nd.text & "(" & dt.Compute("Sum(项目数)","销项fa piao状态 = '" & Product & "'") & "个)"

Case 1

nd.Text = nd.text & "(" & dt.Compute("Sum(项目数)","销项fa piao状态 = '" & Product & "' And 回款情况 = '" & d2 & "'") & "个)"

End Select

trv.Nodes.Insert("销项fa piao-所有行","销项fa piao-所有行(" & dt.Compute("Sum(客户数)") & "个)",0)

trv.ResumeRedraw

以上是全部代码。

但是出现了一下提示。

.NET Framework 版本：4.0.30319.42000

Foxtable 版本：2019.7.31.1

错误所在事件：窗口,销项未开piao,AfterLoad

详细错误信息：

列“回款情况”不属于表统计表1。

[此贴子已经被作者于2019/9/16 10:23:31编辑过]

主题：筛选目录树问题