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("立帐编码") & "'")
加好友 
发短信
Post By：2022/8/20 23:45:00 [显示全部帖子]
