主题：目录树下对逻辑值进行统计问题

老师好！我现在有个“是否开piao”的逻辑值，想在“目录树统计”窗口下对是否开piao进行统计，如：http://www.foxtable.com/webhelp/index.htm?page=2741.htm的效果，

Dim dt As DataTable
Dim b As New GroupTableBuilder("统计表1",DataTables("产品"))
'b.Filter = "[是否开piao] = true"
b.Groups.AddDef("单位名称")
b.Groups.AddDef("金额")
b.Groups.AddDef("产品")
b.Totals.AddDef("是否开piao")
b.Build '生成统计表
MainTable = Tables("统计表1") '打开生成的统计表
'trv.ResumeRedraw
'然后根据统计表生成目录树
dt = DataTables("统计表1")
Dim trv As WinForm.TreeView = e.Form.Controls("TreeView1")
trv.BuildTree(dt, "单位名称|金额|产品")
trv.StopRedraw
For Each nd As WinForm.TreeNode In trv.AllNodes
    Dim dw As String = nd.DataRow("单位名称")
    Dim je As String = nd.DataRow("金额")
    Dim cp As String = nd.DataRow("产品")
    '
    Select Case nd.Level
        Case 0
            nd.Text = nd.text & "(" & dt.Compute("count(是否开piao)","单位名称 = '" & dw & "'") & ")"
        Case 1
            nd.Text = nd.text & "(" & dt.Compute("count(是否开piao)","单位名称 = '" & dw & "' and 金额 = '" & je & "'") & ")"
        Case 2
            nd.Text = nd.text & "(" & dt.Compute("count(是否开piao)","单位名称 = '" & dw & "' and 金额 = '" & je & "' and 产品 = '" & cp & "'") & ")"
    End Select
Next
trv.Nodes.Insert("显示所有行","显示所有行(" & dt.Compute("count(是否开piao)") & "条)",0)
trv.ResumeRedraw

甜老师，我开始也是按照你的这个方法做过，在“是否开piao”中点选钩后，运行报错“未将对象引用设置到对象的实例”，而且错误提示不停闪烁，需要强制停止程序。

1、关闭重新打开项目测试。不要预览，直接运行窗口。

 

2、试试把窗口改成独立窗口，主表切换到别的表格后再测试。

我把窗口改为独立窗口，主表设为“产品”表，还是在不打勾的情况下正常，在“产品”表里面打钩再测试，

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:管理项目3 (1).table

谢谢甜老师，开piao统计正常了。

Dim dt As DataTable
Dim b As New GroupTableBuilder("统计表1",DataTables("产品"))
'b.Filter = "[是否开piao] = true"
b.Groups.AddDef("单位名称")
b.Groups.AddDef("金额")
b.Groups.AddDef("产品")
b.Groups.AddDef("是否开piao", "开piao")
b.Totals.AddDef("是否开piao", AggregateEnum.count, "记录数")
b.Build '生成统计表
'MainTable = Tables("产品") '打开生成的统计表
'trv.ResumeRedraw
'然后根据统计表生成目录树
dt = DataTables("统计表1")
dt.DataCols.Add("是否开piao", Gettype(String))
dt.ReplaceFor("是否开piao", "开piao", "开piao = true")
dt.ReplaceFor("是否开piao", "不开piao", "开piao = false")
Dim trv As WinForm.TreeView = e.Form.Controls("TreeView1")
trv.BuildTree(dt, "单位名称|金额|产品|是否开piao")
trv.StopRedraw
For Each nd As WinForm.TreeNode In trv.AllNodes
    Dim dw As String = nd.DataRow("单位名称")
    Dim je As String = nd.DataRow("金额")
    Dim cp As String = nd.DataRow("产品")
    Dim kp As String = nd.DataRow("是否开piao")

    Select Case nd.Level
        Case 0
            nd.Text = nd.text & "(" & dt.Compute("count(是否开piao)","单位名称 = '" & dw & "'") & ")"
        Case 1
            nd.Text = nd.text & "(" & dt.Compute("count(是否开piao)","单位名称 = '" & dw & "' and 金额 = '" & je & "'") & ")"
        Case 2
            nd.Text = nd.text & "(" & dt.Compute("count(是否开piao)","单位名称 = '" & dw & "' and 金额 = '" & je & "' and 产品 = '" & cp & "'") & ")"
        Case 3
            nd.Text = nd.text & "(" & dt.Compute("count(是否开piao)","单位名称 = '" & dw & "' and 金额 = '" & je & "' and 产品 = '" & cp & "' and 是否开piao = '" & kp & "'") & ")"
    End Select
Next
trv.Nodes.Insert("显示所有行","显示所有行(" & dt.Compute("count(是否开piao)") & "条)",0)
trv.ResumeRedraw

谢谢甜老师，不过还是有点小问题，我自己先慢慢琢磨下，实在不行再请教！

 

不理解你需要做什么。直接说明最后你需要达到的效果吧。