修改代码 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 修改代码

共有2543人关注过本帖树形打印复制链接主题：修改代码

gslxgl

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：幼狐帖子：183 积分：1559 威望：0 精华：0 注册：2014/5/31 8:53:00

修改代码

Post By：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

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：幼狐帖子：183 积分：1559 威望：0 精华：0 注册：2014/5/31 8:53:00

Post By：2014/6/7 21:55:00 [显示全部帖子]

好了

gslxgl

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：幼狐帖子：183 积分：1559 威望：0 精华：0 注册：2014/5/31 8:53:00

Post By：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

小大 4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：幼狐帖子：183 积分：1559 威望：0 精华：0 注册：2014/5/31 8:53:00

Post By：2014/6/7 22:26:00 [显示全部帖子]

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

下一主题 >> << 上一主题

主题：修改代码