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

目录树代码如下:

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

方法一：添加合计行

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

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