以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  为什么求和二行不起到计算的效果  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=179386)

--  作者:zhuxinhui
--  发布时间:2022/8/20 23:45:00
--  为什么求和二行不起到计算的效果
If e.DataCol.Name = "立帐编码" Then
    Dim fdt As DataRow = DataTables("应付").SQL find("立帐编码=\'" & dr2("立帐编码") & "\'")
    If fdt IsNot Nothing Then
        fdt("已付货款") = DataTables("现金银行").SQL Compute("Sum(支出)", "[立帐编码] = \'" & fdt("立帐编码") & "\'")
    End If
    
    Dim fdz As DataRow = DataTables("应收").SQL find("立帐编码=\'" & dr2("立帐编码") & "\'")
    If fdz IsNot Nothing Then
        fdz("已收货款") = DataTables("现金银行").SQL Compute("Sum(收入)", "[立帐编码] = \'" & fdz("立帐编码") & "\'")
    End If 
End If 
\'\'\'\'\'\'\'\'\'\'\'\'简码往来编码调用

我是想:如果现金银行表立帐编码列的值改变后,应付款表已付货款列就进行求和计算,
为什么下面二行不起到计算的效果呢??
fdt("已付货款") = DataTables("现金银行").SQL Compute("Sum(支出)", "[立帐编码] = \'" & fdt("立帐编码") & "\'")
 fdz("已收货款") = DataTables("现金银行").SQL Compute("Sum(收入)", "[立帐编码] = \'" & fdz("立帐编码") & "\'")

--  作者:有点蓝
--  发布时间:2022/8/21 20:54:00
--  
1、数据没有保存
2、没有符合条件的数据