以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  窗口计算  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=191721)

--  作者:admin22327
--  发布时间:2024/5/5 16:22:00
--  窗口计算
如图,“1”是个文本框,填入数字为“x”,假如,逻辑列(对账)没有勾选的合计数借方金额为“A”,贷方金额合计为“B”,想把"x+A-B"的合计数和一个“Label1”绑定,显示在窗口,求代码?,谢谢
图片点击可在新窗口打开查看此主题相关图片如下:截图.png
图片点击可在新窗口打开查看

--  作者:有点蓝
--  发布时间:2024/5/5 21:14:00
--  
表格datacolchanged事件

Select Case e.DataCol.Name
    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

文本框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

--  作者:admin22327
--  发布时间:2024/5/6 11:37:00
--  
这2组代码都过不去,提示编译错误
--  作者:有点蓝
--  发布时间:2024/5/6 11:39:00
--  
请上传实例说明
--  作者:admin22327
--  发布时间:2024/5/6 11:51:00
--  
 实例怎么上传
--  作者:有点蓝
--  发布时间:2024/5/6 11:55:00
--  
参考:http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&Id=78

注意上传的文件不能大于2M。如果原项目比较大,或者不方便上传,新建项目做个有同样问题的例子发上来

--  作者:admin22327
--  发布时间:2024/5/6 14:43:00
--  
 \'Page.Links.Add("本次对账不通过","本次对账不通过(" & cnt4 & ")" ),这个的删除代码怎么写
--  作者:有点蓝
--  发布时间:2024/5/6 14:51:00
--  
http://www.foxtable.com/webhelp/topics/0866.htm


--  作者:admin22327
--  发布时间:2024/5/6 14:59:00
--  
单击“试算平衡”按钮,计算“期初+银行日记账借方合计-银行日记账贷方合计=试算结果
 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:测试.rar

[此贴子已经被作者于2024/5/6 14:59:37编辑过]

--  作者:有点蓝
--  发布时间:2024/5/6 15:03:00
--  
 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:测试.zip