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

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

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

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

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

1、Tables("产品").filter = "是否开piao = false and " & filter

参考 http://www.foxtable.com/webhelp/scr/0221.htm

2、Dim Filter As String = "1=1"   

给filter赋值一个初始值，最后生成下面的条件，如果filter没有值的话，就会多一个and字符串

是否开piao = false and 1=1

或者

是否开piao = false and 某列='某值'