- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- [求助] 重载决策失败 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=157322)
-- 发布时间：2020/10/12 11:35:00
-- [求助] 重载决策失败
此主题相关图片如下：微信截图_20201012105925.png
同样的代码，在不同的文本框中，一个没问题，一个有问题-- 发布时间：2020/10/12 11:37:00
--
代码？？？
-- 发布时间：2020/10/12 11:46:00
--
With Forms("工程资金审批单").Controls("TextBox3")
Dim a As Double = DataTables("到账资金表").Compute("Sum(到账金额)","项目编号
= \'" & forms("工程资金审批单").controls("Label2").text & "\'")
Dim b As Double = DataTables("资金拨付表").Compute("Sum(实际拨付金额)","项目编号
= \'" & forms("工程资金审批单").controls("Label2").text & "\'")
\'Dim f As
Double = DataTables("到账资金表").Compute("Count(到账金额)","项目编号
= \'" & forms("工程资金审批单").controls("Label2").text
& "\'")
Dim k As Double = DataTables("扣款登记表").Compute("Sum(扣款金额)","项目编号
= \'" & forms("工程资金审批单").controls("Label2").text & "\'And 扣款类型 = \'预留风险金\'
" )
Dim dr3 As DataRow
dr3 = DataTables("工程资金审批单_Table1").Find("扣款内容 = \'预留风险金\'"
) \'总包合同主表中找到下拉框中内容相应的行
If forms("工程资金审批单").controls("项目名称").text = ""
Then
-- 发布时间：2020/10/12 11:48:00
--
我用对话框测试了一下，问题应该在蓝色代码部分，但是不知道错在哪里。同样是文本框，一个可以一个却不可以
-- 发布时间：2020/10/12 11:57:00
--
肯定不是这句代码的问题，请贴出完整代码
-- 发布时间：2020/10/12 12:07:00
--
此主题相关图片如下：微信截图_20201012120447.png
-- 发布时间：2020/10/12 12:10:00
--
下次麻烦直接贴代码，不要截图
此主题相关图片如下：1.png
-- 发布时间：2020/10/12 12:52:00
--
有点蓝老师，应该不是这里的问题，这个位置可能我刚才复制代码后不小心碰到删了。
此主题相关图片如下：微信截图_20201012124923.png
-- 发布时间：2020/10/12 12:55:00
--
可能找到原因了，等一下不行的话再向您请教
-- 发布时间：2020/10/12 13:00:00
--
搞定了，谢谢有点蓝老师