主题：[求助]后台查询动态生成的表,目录树下求合计数

老师你好,后台查询动态生成的表,目录树下求合计数

目录树代码如下:

Dim Filter As String
Dim dr As DataRow = e.Node.DataRow '获取生成此节点的行
If e.Node.Text <> "显示所有行" Then
    Select Case e.Node.Level
        Case 0
            Filter = "[材料_大类] = '" & dr("材料_大类") & "'and [合计_数量] <> 0 "
        Case 1
            Filter = "[材料_大类] = '" & dr("材料_大类") & "' And [材料_中类] = '" & dr("材料_中类") & "'and [合计_数量] <> 0 "
        Case 2
            Filter = "[材料_大类] = '" & dr("材料_大类") & "' And [材料_中类] = '" & dr("材料_中类") & "'And [材料名称] = '" & dr("材料名称") & "'and [合计_数量] <> 0  "
                 
    End Select
End If

Tables("物料入出分类统计_材料入库汇总表").Filter = Filter

此主题相关图片如下：后台查询动态生成的表目录树求合计数.png

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

不是这个参考,是汇总各列的数量和金额

方法一：添加合计行

 

http://www.foxtable.com/webhelp/scr/2927.htm

 

方法二：直接增加一行，然后给循环每一列，compute各列的值。