主题：多表关联汇总

打印多个关联表时，如何对细节区进行汇总，在excel模板中如何设置

对金额进行汇总，怎么不行

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:分户发放表.xls

就是金额列的SUM(I7:K21)

红色部分公式应该怎么改才能求出金额合计

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:分户发放表.xls

合计行的公式该怎么改

没人看一呀

Select Case e.Book.TempLate
    Case "分户发放表"
        If e.DataRow IsNot Nothing AndAlso e.Region = "粮食直补" Then
            Dim Filter1 As String = "银行帐号 = '" & e.DataRow("银行帐号") & "'"
                        e.Book.Marks("合计") = DataTables("粮食直补").Compute("Sum(金额)",Filter1)
                    End If

If e.DataRow IsNot Nothing AndAlso e.Region = "退耕还林" Then
            Dim Filter1 As String = "银行帐号 = '" & e.DataRow("银行帐号") & "'"
                        e.Book.Marks("合计") = DataTables("退耕还林").Compute("Sum(金额)",Filter1)
                    End If

If e.DataRow IsNot Nothing AndAlso e.Region = "五保补助" Then
            Dim Filter1 As String = "银行帐号 = '" & e.DataRow("银行帐号") & "'"
                        e.Book.Marks("合计") = DataTables("五保补助").Compute("Sum(金额)",Filter1)
                    End If

If e.DataRow IsNot Nothing AndAlso e.Region = "农机补贴" Then
            Dim Filter1 As String = "银行帐号 = '" & e.DataRow("银行帐号") & "'"
                        e.Book.Marks("合计") = DataTables("农机补贴").Compute("Sum(金额)",Filter1)
                    End If

If e.DataRow IsNot Nothing AndAlso e.Region = "医疗救助" Then
            Dim Filter1 As String = "银行帐号 = '" & e.DataRow("银行帐号") & "'"
                        e.Book.Marks("合计") = DataTables("医疗救助").Compute("Sum(金额)",Filter1)
                    End If

If e.DataRow IsNot Nothing AndAlso e.Region = "危房改造" Then
            Dim Filter1 As String = "银行帐号 = '" & e.DataRow("银行帐号") & "'"
                        e.Book.Marks("合计") = DataTables("危房改造").Compute("Sum(金额)",Filter1)
                    End If

If e.DataRow IsNot Nothing AndAlso e.Region = "孤儿补助" Then
            Dim Filter1 As String = "银行帐号 = '" & e.DataRow("银行帐号") & "'"
                        e.Book.Marks("合计") = DataTables("孤儿补助").Compute("Sum(金额)",Filter1)
                    End If

If e.DataRow IsNot Nothing AndAlso e.Region = "干部报酬" Then
            Dim Filter1 As String = "银行帐号 = '" & e.DataRow("银行帐号") & "'"
                        e.Book.Marks("合计") = DataTables("干部报酬").Compute("Sum(金额)",Filter1)
                    End If

If e.DataRow IsNot Nothing AndAlso e.Region = "征地补偿" Then
            Dim Filter1 As String = "银行帐号 = '" & e.DataRow("银行帐号") & "'"
                        e.Book.Marks("合计") = DataTables("征地补偿").Compute("Sum(金额)",Filter1)
                    End If

If e.DataRow IsNot Nothing AndAlso e.Region = "救助资金" Then
            Dim Filter1 As String = "银行帐号 = '" & e.DataRow("银行帐号") & "'"
                        e.Book.Marks("合计") = DataTables("救助资金").Compute("Sum(金额)",Filter1)
                    End If

If e.DataRow IsNot Nothing AndAlso e.Region = "良种补贴" Then
            Dim Filter1 As String = "银行帐号 = '" & e.DataRow("银行帐号") & "'"
                        e.Book.Marks("合计") = DataTables("良种补贴").Compute("Sum(金额)",Filter1)
                    End If

If e.DataRow IsNot Nothing AndAlso e.Region = "草原发放名册" Then
            Dim Filter1 As String = "银行帐号 = '" & e.DataRow("银行帐号") & "'"
                        e.Book.Marks("合计") = DataTables("草原发放花名册").Compute("Sum(金额)",Filter1)
                    End If

If e.DataRow IsNot Nothing AndAlso e.Region = "计生事业费" Then
            Dim Filter1 As String = "银行帐号 = '" & e.DataRow("银行帐号") & "'"
                        e.Book.Marks("合计") = DataTables("计生事业费").Compute("Sum(金额)",Filter1)
                    End If

If e.DataRow IsNot Nothing AndAlso e.Region = "高龄老人补助" Then
            Dim Filter1 As String = "银行帐号 = '" & e.DataRow("银行帐号") & "'"
                        e.Book.Marks("合计") = DataTables("高龄老人补助").Compute("Sum(金额)",Filter1)
                    End If

End Select

 

 

以上是标记公式，可是我如果要得到总合计应该怎么改啊

合计=粮食直补的金额+退耕还林的金额。。。。。。。。，该怎么修改公式啊

谢谢甜甜