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

Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]节点统计数量

共有3613人关注过本帖树形打印复制链接主题：[求助]节点统计数量

2425004926

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：三尾狐帖子：715 积分：5585 威望：0 精华：0 注册：2019/11/14 9:36:00

[求助]节点统计数量 发帖心情

Post By：2021/4/6 16:18:00 [只看该作者]

目录节点增加数量统计，这里 sz2(0)是数组的第一个值，sz2(1)是数组的第二个值，统计时出错，在[]括号里是否不能这样表达？

这个是二级节点

nd.Text = nd.text & "(" & dt.Compute("Sum(数量)","[sz2(0)] = '" & ly & "' And [sz2(1)] = '" & sq & "'") & ")"

如果这样表达可以nd.Text = nd.text & "(" & dt.Compute("Sum(数量)", filter") & ")"

那么dim filter as string = ??? 该怎么写？

2425004926

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：三尾狐帖子：715 积分：5585 威望：0 精华：0 注册：2019/11/14 9:36:00

Post By：2021/4/6 16:35:00 [只看该作者]

我的目的是想让目录更加智能化一些，目录显示是没有问题，只在统计上出错

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

trv.BuildTree(dt, xt)

Dim sz2() As String = xt.split("|") '选定的目录里有几列

    For Each nd As WinForm.TreeNode In trv.AllNodes
        Select Case nd.Level
        Case 0
            Dim ly As String = nd.text
            Dim filter As String = "[" & sz2(0) & "]" & "=" & ly
            'nd.Text = nd.text & "(" & dt.Compute("Sum(数量)","[sz2(0)] = '" & ly & "'") & ")"
            nd.Text = nd.text & "(" & dt.Compute("Sum(数量)",filter) & ")"
        Case 1
            Dim sq As String = nd.text
            Dim gs As Integer = nd.ParentNode.text.LastIndexOf("(")
            Dim ly As String = nd.ParentNode.text.SubString(0,gs)

'nd.Text = nd.text & "(" & dt.Compute("Sum(数量)","[sz2(0)] = '" & ly & "' And [sz2(1)] = '" & sq & "'") & ")"

End Select
Next