主题：如何点击统计按钮后在筛选表的最后一行显示某些列的合计？

此主题相关图片如下：查询结果窗口显示.jpg

查询的按钮：

Forms("每日报表查询结果").Open

Dim filter1 As String = ""

With e.Form.Controls("TextBox1")

    If .Value IsNot Nothing Then

        filter1 = "[F4419] Like '%" & .Value & "%'"

    End If

End With

With e.Form.Controls("checkedcombobox1")

    If .Value IsNot Nothing Then

        If filter1 > "" Then

            filter1 = filter1 & " And "

        End If

        filter1 = filter1 & "[F6518]= '" & .Value & "'"

    End If

End With

With e.Form.Controls("datetimepicker1")

    If .Value IsNot Nothing Then

        If filter1 >"" Then

            filter1 = filter1 & " And "

        End If

        filter1 = filter1 & "[F4411] Like '%" & .Value & "%'"

    End If

End With

Dim t As Table = Forms("每日报表查询结果").Controls("Table1").Table

t.DataTable.LoadFilter = filter1

t.DataTable.LoadTop = 20

t.DataTable.LoadPage = 0

t.DataTable.load

统计按钮代码：

Dim filter1 As String = ""

Dim t As Table = Forms("每日报表查询结果").Controls("Table1").Table

t.DataTable.LoadFilter = filter1

t.DataTable.load

If t.DataTable.LoadPage = t.DataTable.TotalPages Then

   t.Cols("F5294").GrandTotal = True '指定要合计的列

   t.Cols("F4415").GrandTotal = True

   t.Cols("F5300").GrandTotal = True '指定要合计的列

   t.GrandTotal = True

Else

   t.GrandTotal = False

End If