老师,奇怪,不知道哪里有问题,sum = dz 不成立:![dvubb 图片点击可在新窗口打开查看](skins/default/filetype/png.gif)
此主题相关图片如下:微信截图_20190402115404.png
![dvubb 图片点击可在新窗口打开查看](UploadFile/2019-4/2019421204173789.png)
Dim sum As Double = Forms("租金支付报备表").Controls("table1").Table.Compute("Sum(实付金额)")
Dim dz As Double = Forms("租金支付报备表").Controls("textbox2").value
output.show(sum)
output.show(dz)
If sum = dz Then
messagebox.show("对账正确 !","提示",MessageBoxButtons.ok, MessageBoxIcon.Information)
Else
messagebox.show("对账错误 !","提示",MessageBoxButtons.ok, MessageBoxIcon.Information)
End If
[此贴子已经被作者于2019/4/2 12:00:43编辑过]