Foxtable(狐表)用户栏目专家坐堂 → 借贷平衡问题


  共有3378人关注过本帖树形打印复制链接

主题:借贷平衡问题

帅哥哟,离线,有人找我吗?
实话实说
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:九尾狐 帖子:2649 积分:19396 威望:0 精华:1 注册:2008/9/12 9:19:00
借贷平衡问题  发帖心情 Post By:2023/9/9 15:34:00 [只看该作者]

以下代码时判断关联表中借贷是否平衡,绝大部分没有问题,但偶尔提示不平衡,(借贷实际时相等的)不知问题出在哪?

Dim Sum1 As Double = Tables("记账凭证.凭证明细").Compute("Sum(借方金额)")
Dim Sum2 As Double = Tables("记账凭证.凭证明细").Compute("Sum(贷方金额)")
If Sum1 <> Sum2  Then
     MessageBox.Show("借贷不平衡!","提示")
End If

 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:111381 积分:566969 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2023/9/9 16:41:00 [只看该作者]

用高精度

Dim Sum1 As Decimal= Tables("记账凭证.凭证明细").Compute("Sum(借方金额)")
Dim Sum2 As Decimal= Tables("记账凭证.凭证明细").Compute("Sum(贷方金额)")

 回到顶部