以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  修改代码  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=52041)
--  作者：gslxgl
--  发布时间：2014/6/7 21:42:00
--  修改代码

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

 

这个代码那里错了？
--  作者：gslxgl
--  发布时间：2014/6/7 21:55:00
--  

好了

 
--  作者：gslxgl
--  发布时间：2014/6/7 22:18:00
--  

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


End Select

 

 

以上代码只对“退耕还林表”的金额进行了汇总，如何修改才能对“粮食直补表”的金额加“退耕还林表”的金额
--  作者：gslxgl
--  发布时间：2014/6/7 22:26:00
--  

以上代码只对“退耕还林表”的金额进行了汇总，如何修改才能对“粮食直补表”的金额加“退耕还林表”的金额的合计值

--  作者：有点甜
--  发布时间：2014/6/8 9:15:00
--  
Dim Filter1 As String = "银行帐号 = \'" & e.DataRow("银行帐号") & "\'"
e.Book.Marks("合计") = DataTables("粮食直补").Compute("Sum(金额)",Filter1) + DataTables("退耕还林").Compute("Sum(金额)",Filter1)