以文本方式查看主题 -  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp) --  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2) ----  以下代码 哪里有问题 请教？  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=68097)

--  作者：jswjyjf --  发布时间：2015/5/9 18:28:00 --  以下代码 哪里有问题 请教？ Dim dr As DataRow dr = DataTables("往来单位").Find("[名称]=\'" & Tables("销售单").current("客户名称") & "\'") If dr IsNot Nothing Then  Tables("往来单位").current("借方金额")=Tables("往来单位").current("借方金额")+Tables("销售单").current("金额") Tables("销售单").current("过帐")="★" DataTables("销售单").save() End If 计算结果 不对

--  作者：黄训良 --  发布时间：2015/5/9 23:18:00 --   Dim dr As DataRow dr = DataTables("往来单位").Find("[名称]=\'" & Tables("销售单").current("客户名称") & "\'") If dr IsNot Nothing Then dr("借方金额") +=Tables("销售单").current("金额") Tables("销售单").current("过帐")="★" Tables("销售单").save() dr.Save() End If