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

以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  目录树下对逻辑值进行统计问题  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=122326)

--  作者：weipeng6999
--  发布时间：2018/7/23 11:10:00
--  目录树下对逻辑值进行统计问题
老师好！我现在有个“是否开票”的逻辑值，想在“目录树统计”窗口下对是否开票进行统计，如：http://www.foxtable.com/webhelp/index.htm?page=2741.htm的效果，

对产品的目录树统计没问题，对逻辑值进行操作请教该什么思路进行
下载信息  [文件大小：   下载次数： ]
点击浏览该文件:管理项目3.table

--  作者：有点甜
--  发布时间：2018/7/23 11:35:00
--
Dim dt As DataTable
Dim b As New GroupTableBuilder("统计表1",DataTables("产品"))
\'b.Filter = "[是否开票] = true"
b.Groups.AddDef("单位名称")
b.Groups.AddDef("金额")
b.Groups.AddDef("产品")
b.Totals.AddDef("是否开票")
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(是否开票)","单位名称 = \'" & dw & "\'") & ")"
        Case 1
            nd.Text = nd.text & "(" & dt.Compute("count(是否开票)","单位名称 = \'" & dw & "\' and 金额 = \'" & je & "\'") & ")"
        Case 2
            nd.Text = nd.text & "(" & dt.Compute("count(是否开票)","单位名称 = \'" & dw & "\' and 金额 = \'" & je & "\' and 产品 = \'" & cp & "\'") & ")"
    End Select
Next
trv.Nodes.Insert("显示所有行","显示所有行(" & dt.Compute("count(是否开票)") & "条)",0)
trv.ResumeRedraw

--  作者：weipeng6999
--  发布时间：2018/7/23 12:06:00
--
甜老师，我开始也是按照你的这个方法做过，在“是否开票”中点选钩后，运行报错“未将对象引用设置到对象的实例”，而且错误提示不停闪烁，需要强制停止程序。
b.Filter = "[是否开票] = true"加不加上都是同样的错误，不点钩还是正常。

--  作者：有点甜
--  发布时间：2018/7/23 12:10:00
--

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

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

--  作者：weipeng6999
--  发布时间：2018/7/23 14:22:00
--
我把窗口改为独立窗口，主表设为“产品”表，还是在不打勾的情况下正常，在“产品”表里面打钩再测试，
我在菜单项里面加了个直接测试菜单，还是一样报错
下载信息  [文件大小：   下载次数： ]
点击浏览该文件:管理项目3.table

[此贴子已经被作者于2018/7/23 14:22:34编辑过]

--  作者：有点甜
--  发布时间：2018/7/23 15:36:00
--

下载信息  [文件大小：   下载次数： ]
点击浏览该文件:管理项目3 (1).table

--  作者：weipeng6999
--  发布时间：2018/7/24 9:22:00
--
谢谢甜老师，开票统计正常了。

我看了下代码：
Select Case nd.Level
Case 0
nd.Text = nd.text & "(" & dt.Compute("sum(是否开票)","单位名称 = \'" & dw & "\'")*-1 & ")"
Case 1
nd.Text = nd.text & "(" & dt.Compute("sum(是否开票)","单位名称 = \'" & dw & "\' and 金额 = \'" & je & "\'")*-1 & ")"
Case 2
nd.Text = nd.text & "(" & dt.Compute("sum(是否开票)","单位名称 = \'" & dw & "\' and 金额 = \'" & je & "\' and 产品 = \'" & cp & "\'")*-1 & ")"
End Select

-1的值取的是“是否开票”中开票打钩的值，那我取0是不是就应该是不开票的值，但是我取0后还是报同样错。请指教！

我想把开票和不开票的都统计出来。

[此贴子已经被作者于2018/7/24 10:54:41编辑过]

--  作者：有点甜
--  发布时间：2018/7/24 11:11:00
--

Dim dt As DataTable
Dim b As New GroupTableBuilder("统计表1",DataTables("产品"))
\'b.Filter = "[是否开票] = true"
b.Groups.AddDef("单位名称")
b.Groups.AddDef("金额")
b.Groups.AddDef("产品")
b.Groups.AddDef("是否开票", "开票")
b.Totals.AddDef("是否开票", AggregateEnum.count, "记录数")
b.Build \'生成统计表
\'MainTable = Tables("产品") \'打开生成的统计表
\'trv.ResumeRedraw
\'然后根据统计表生成目录树
dt = DataTables("统计表1")
dt.DataCols.Add("是否开票", Gettype(String))
dt.ReplaceFor("是否开票", "开票", "开票 = true")
dt.ReplaceFor("是否开票", "不开票", "开票 = 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 dw As String = nd.DataRow("单位名称")
    Dim je As String = nd.DataRow("金额")
    Dim cp As String = nd.DataRow("产品")
    Dim kp As String = nd.DataRow("是否开票")

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

--  作者：weipeng6999
--  发布时间：2018/7/24 11:45:00
--
谢谢甜老师，不过还是有点小问题，我自己先慢慢琢磨下，实在不行再请教！
[此贴子已经被作者于2018/7/24 12:05:11编辑过]

--  作者：有点甜
--  发布时间：2018/7/24 12:33:00
--

以下是引用weipeng6999在2018/7/24 11:45:00的发言：
谢谢甜老师，不过还是有点小问题，我自己先慢慢琢磨下，实在不行再请教！
[此贴子已经被作者于2018/7/24 12:05:11编辑过]

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