以文本方式查看主题 -  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp) --  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2) ----  [求助]窗口中的校验怎么写代码？  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=84617)

--  作者：zqxzhs --  发布时间：2016/5/5 17:08:00 --  [求助]窗口中的校验怎么写代码？ 在窗口中，输入的几行数据，想验证“资产总额”=“负债总额”+“所有者权益”若相等，提示：平衡，若不等提示差额。请老师帮助，谢谢！  下载信息  [文件大小：   下载次数： ] 点击浏览该文件:管理项目5.foxdb [此贴子已经被作者于2016/5/5 17:10:19编辑过]

--  作者：zqxzhs --  发布时间：2016/5/5 17:09:00 --   附件怎么没有上去呀。

--  作者：大红袍 --  发布时间：2016/5/5 17:29:00 --   Dim sum1 As Double = Tables("表B.表a").Compute("sum(数据)", "项目明细 = \'资产总额\'") Dim sum2 As Double = Tables("表B.表a").Compute("sum(数据)", "项目明细 = \'负债总额\'") Dim sum3 As Double = Tables("表B.表a").Compute("sum(数据)", "项目明细 = \'所有者权益\'") If sum1 = sum2 + sum3 Then     msgbox("平衡") Else     msgbox(sum1 - sum2 - sum3) End If