主题：多表关联汇总

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

 

 

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

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

 一起统计呗，类似

 

Dim Filter1 As String = "银行帐号 = '" & e.DataRow("银行帐号") & "'"

e.Book.Marks("总计") = DataTables("粮食直补").Compute("Sum(金额)",Filter1) + DataTables("退耕还林").Compute("Sum(金额)",Filter1)

谢谢甜甜

 

此主题相关图片如下：nk@i%)jb@t34{fgjjzkzr2c.jpg

 呃，不应该，贴出你写的代码。

Select Case e.Book.TempLate
    Case "分户发放表"

 Dim Filter1 As String = "银行帐号= '" & e.DataRow("银行帐号") & "'"

e.Book.Marks("合计") = DataTables("粮食直补").Compute("Sum(金额)",Filter1) + DataTables("退耕还林").Compute("Sum(金额)",Filter1) + DataTables("良种补贴").Compute("Sum(金额)",Filter1+DataTables("干部报酬").Compute("Sum(金额)",Filter1)+ DataTables("五保补助").Compute("Sum(金额)",Filter1)+ DataTables("医疗救助").Compute("Sum(金额)",Filter1) + DataTables("危房改造").Compute("Sum(金额)",Filter1) + DataTables("征地补偿").Compute("Sum(金额)",Filter1) + DataTables("救助资金").Compute("Sum(金额)",Filter1) + DataTables("草原发放花名册").Compute("Sum(金额)",Filter1) + DataTables("计生事业费").Compute("Sum(金额)",Filter1) + DataTables("低保").Compute("Sum(金额)",Filter1) + DataTables("农机补贴").Compute("Sum(金额)",Filter1) + DataTables("孤儿补助").Compute("Sum(金额)",Filter1) + DataTables("高龄老人补助").Compute("Sum(金额)",Filter1)  )
 

End Select

 改成这样

 

Dim Filter1 As String = "银行帐号= '" & e.DataRow("银行帐号") & "'"

e.Book.Marks("合计") = DataTables("粮食直补").Compute("Sum(金额)",Filter1) + DataTables("退耕还林").Compute("Sum(金额)",Filter1) + DataTables("良种补贴").Compute("Sum(金额)",Filter1)+DataTables("干部报酬").Compute("Sum(金额)",Filter1)+ DataTables("五保补助").Compute("Sum(金额)",Filter1)+ DataTables("医疗救助").Compute("Sum(金额)",Filter1) + DataTables("危房改造").Compute("Sum(金额)",Filter1) + DataTables("征地补偿").Compute("Sum(金额)",Filter1) + DataTables("救助资金").Compute("Sum(金额)",Filter1) + DataTables("草原发放花名册").Compute("Sum(金额)",Filter1) + DataTables("计生事业费").Compute("Sum(金额)",Filter1) + DataTables("低保").Compute("Sum(金额)",Filter1) + DataTables("农机补贴").Compute("Sum(金额)",Filter1) + DataTables("孤儿补助").Compute("Sum(金额)",Filter1) + DataTables("高龄老人补助").Compute("Sum(金额)",Filter1)

是少了个）