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

错误提示：

.NET Framework 版本：4.0.30319.42000

Foxtable 版本：2020.5.29.8

错误所在事件：窗口,备忘录,AfterLoad

详细错误信息：

未将对象引用设置到对象的实例。

我的AfterLoad代码：

Dim dt As DataTable

Dim b As New SQLGroupTableBuilder("统计表1","主表")

b.Groups.AddDef("大类")

b.Groups.AddDef("小类")

b.Groups.AddDef("作用范围")

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

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

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

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

trv.BuildTree(dt,"大类|小类|作用范围")

trv.StopRedraw

For Each nd As WinForm.TreeNode In trv.AllNodes

Dim dalei As String = "'" & nd.DataRow("大类") & "'"

Dim xiaolei As String = "'" & nd.DataRow("小类") & "'"

Dim zuoyfw As String = "'" & nd.DataRow("作用范围") & "'"

Select Case nd.Level

Case 0

nd.Text = nd.text & "(" & dt.Compute("Sum(个数)","大类 = " & dalei) & "个)"

Case 1

nd.Text = nd.text & "(" & dt.Compute("Sum(个数)","大类 = " & dalei & " And 小类 = " & xiaolei) & "个)"

Case 2

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

End Select

trv.Nodes.Insert("加载所有数据","加载所有数据(" & dt.Compute("Sum(个数)") & "个)",0)

trv.ResumeRedraw

NodeMouseDoubleClick代码：

Dim Filter As String = ""

If e.Node.Name <> "加载所有数据" Then

Dim dalei As String = e.Node.DataRow("大类")

Dim xiaolei As String = e.Node.DataRow("小类")

Dim zuoyfw As String = e.Node.DataRow("作用范围")

Select Case e.Node.Level

Case 0

Filter = "[大类] = '" & dalei & "'"

Case 1

Filter = "[大类] = '" & dalei & "'And [小类] = '" & xiaolei & "'"

Case 2

Filter = "[大类] = '" & dalei & "'And [小类] = '" & xiaolei & "' And [作用范围] = '" & zuoyfw & "'"

End Select

End If

DataTables("主表").LoadFilter = Filter

DataTables("主表").Load()

[此贴子已经被作者于2020/8/30 22:27:00编辑过]

试试

Dim dt As DataTable

Dim b As New SQLGroupTableBuilder("统计表1","主表")

b.Groups.AddDef("大类")

b.Groups.AddDef("小类")

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,"大类|小类|作用范围")

trv.StopRedraw

For Each nd As WinForm.TreeNode In trv.AllNodes

Dim dalei As String = "'" & nd.DataRow("大类") & "'"

Dim xiaolei As String = "'" & nd.DataRow("小类") & "'"

Dim zuoyfw As String = "'" & nd.DataRow("作用范围") & "'"

Select Case nd.Level

Case 0

nd.Text = nd.text & "(" & dt.Compute("Sum(个数)","大类 = '" & dalei & "'") & "个)"

Case 1

nd.Text = nd.text & "(" & dt.Compute("Sum(个数)","大类 = '" & dalei & "' And 小类 = '" & xiaolei & "'") & "个)"

Case 2

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

End Select

trv.Nodes.Insert("加载所有数据","加载所有数据(" & dt.Compute("Sum(个数)") & "个)",0)

trv.ResumeRedraw

主题：统计筛选树错误