[浏览完整版]
标题：窗口计算
1楼
admin22327 发表于：2024/5/5 16:22:00如图，“1”是个文本框，填入数字为“x”，假如,逻辑列（对账）没有勾选的合计数借方金额为“A”，贷方金额合计为“B”,想把"x+A-B"的合计数和一个“Label1”绑定，显示在窗口，求代码?,谢谢
此主题相关图片如下：截图.png
此主题相关图片如下：截图.png2楼
有点蓝 发表于：2024/5/5 21:14:00表格datacolchanged事件
Select Case e.DataCol.Name
Case "借方金额","贷方金额","对账"
Case "借方金额","贷方金额","对账"
if forms("某窗口").opened
dim x as double = val(forms("某窗口").controls("文本框1").text)
dim a as couble = e.datatable.compute("sum(借方金额)","对账=false")
dim b as couble = e.datatable.compute("sum(贷方金额)","对账=false")forms("某窗口").controls("Label1").text = x+A-B
End If
End Select
End Select
文本框1，valuechanged事件
dim x as double = val(e.sender.text)
dim a as couble = datatable("某表").compute("sum(借方金额)","对账=false")
dim b as couble = datatable("某表").compute("sum(贷方金额)","对账=false")e.form.controls("Label1").text = x+A-B
3楼
admin22327 发表于：2024/5/6 11:37:00这2组代码都过不去，提示编译错误
4楼
有点蓝 发表于：2024/5/6 11:39:00请上传实例说明
5楼
admin22327 发表于：2024/5/6 11:51:00 实例怎么上传
6楼
有点蓝 发表于：2024/5/6 11:55:00参考：http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&Id=78
注意上传的文件不能大于2M。如果原项目比较大，或者不方便上传，新建项目做个有同样问题的例子发上来
7楼
admin22327 发表于：2024/5/6 14:43:00 'Page.Links.Add("本次对账不通过","本次对账不通过(" & cnt4 & ")" )，这个的删除代码怎么写
8楼
有点蓝 发表于：2024/5/6 14:51:009楼
admin22327 发表于：2024/5/6 14:59:00单击“试算平衡”按钮，计算“期初+银行日记账借方合计-银行日记账贷方合计=试算结果
”
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:测试.rar |
”
[此贴子已经被作者于2024/5/6 14:59:37编辑过]
10楼
有点蓝 发表于：2024/5/6 15:03:00| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:测试.zip |