专家坐堂-关于DataColChanged代码有时不执行的问题Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  关于DataColChanged代码有时不执行的问题  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=99487)

--  作者：mayazql
--  发布时间：2017/4/20 10:39:00
--  关于DataColChanged代码有时不执行的问题

现在有2个表，主表是zcmain, 子表是zcsub. 子表的金额统计后放在主表里。
在子表的DataColChanged 放了下面的代码：
If Tables("zcsub").Current("预支金额") IsNot Nothing Then
Tables("zcmain").Current("预支金额") = Tables("zcsub").Compute("sum(预支金额)","支出单号 = \'" & Tables("zcmain").Current("支出单号") & "\'")
End If

If Tables("zcsub").Current("付款金额") IsNot Nothing Then
Tables("zcmain").Current("付款金额") = Tables("zcsub").Compute("sum(付款金额)","支出单号 = \'" & Tables("zcmain").Current("支出单号") & "\'")
End If

If Tables("zcsub").Current("正常报销金额") IsNot Nothing Then
Tables("zcmain").Current("正常报销金额") = Tables("zcsub").Compute("sum(正常报销金额)","支出单号 = \'" & Tables("zcmain").Current("支出单号") & "\'")
End If

If Tables("zcsub").Current("冲账报销金额") IsNot Nothing Then
Tables("zcmain").Current("冲账报销金额") = Tables("zcsub").Compute("sum(冲账报销金额)","支出单号 = \'" & Tables("zcmain").Current("支出单号") & "\'")
End If

做了2个界面，一个是新增，一个是修改。如附件。
现在的问题是，在新增的界面不执行上述代码，新增的数据保存后，用修改的界面打开后，这段代码就能执行。
不知道是什么原因。麻烦老师指点下，谢谢！

此主题相关图片如下：2.png

此主题相关图片如下：1.png

[此贴子已经被作者于2017/4/20 10:40:12编辑过]

--  作者：有点色
--  发布时间：2017/4/20 10:44:00
--

加上这段代码，看弹出什么

msgbox(e.DataRow("支出单号"))

msgbox("支出单号 = \'" & e.DataRow("支出单号") & "\'")

Tables("zcmain").Current("预支金额") = DataTables("zcsub").Compute("sum(预支金额)","支出单号 = \'" & e.DataRow("支出单号") & "\'")

msgbox(DataTables("zcsub").Compute("sum(预支金额)","支出单号 = \'" & e.DataRow("支出单号") & "\'") )

--  作者：mayazql
--  发布时间：2017/4/20 10:55:00
--

此主题相关图片如下：3.png

此主题相关图片如下：4.png

此主题相关图片如下：5.png

[此贴子已经被作者于2017/4/20 10:55:47编辑过]

--  作者：mayazql
--  发布时间：2017/4/20 11:03:00
--

此主题相关图片如下：16.png

此主题相关图片如下：17.png

先是算出来了，后来又清空了

--  作者：有点色
--  发布时间：2017/4/20 11:09:00
--

你在什么事件，还写了这句代码？ Tables("zcmain").Current("预支金额")

你有可能重复赋值了，赋值为空白了。

--  作者：mayazql
--  发布时间：2017/4/20 12:07:00
--
查看了下，应该没有重复赋值，修改和新增的界面程序基本都是一样的。修改界面计算没有问题。不知道新增界面什么原因。
是不是因为要计算的太多了？有四个值要计算，但修改界面也没有问题，

If Tables("zcsub").Current("预支金额") IsNot Nothing Then
Tables("zcmain").Current("预支金额") = Tables("zcsub").Compute("sum(预支金额)","支出单号 = \'" & Tables("zcmain").Current("支出单号") & "\'")
End If

If Tables("zcsub").Current("付款金额") IsNot Nothing Then
Tables("zcmain").Current("付款金额") = Tables("zcsub").Compute("sum(付款金额)","支出单号 = \'" & Tables("zcmain").Current("支出单号") & "\'")
End If

If Tables("zcsub").Current("正常报销金额") IsNot Nothing Then
Tables("zcmain").Current("正常报销金额") = Tables("zcsub").Compute("sum(正常报销金额)","支出单号 = \'" & Tables("zcmain").Current("支出单号") & "\'")
End If

If Tables("zcsub").Current("冲账报销金额") IsNot Nothing Then
Tables("zcmain").Current("冲账报销金额") = Tables("zcsub").Compute("sum(冲账报销金额)","支出单号 = \'" & Tables("zcmain").Current("支出单号") & "\'")
End If

[此贴子已经被作者于2017/4/20 12:08:09编辑过]

--  作者：有点色
--  发布时间：2017/4/20 12:11:00
--

导出全部代码，搜索 ("预支金额") 这样的代码，你肯定在某个地方赋值为空白了。

如果查询不到问题，把你项目发上来看看。

--  作者：mayazql
--  发布时间：2017/4/20 12:38:00
--

下载信息  [文件大小：   下载次数： ]
点击浏览该文件:支出测试.rar

老师你好，我把相关的表转换为内部数据，做个一个单独的文件，这2个窗体也原样弄过去了，试了下还是不行。
麻烦老师帮忙看下。谢谢

刚才的例子忘记把这两个表关联了。重新上传了以下

[此贴子已经被作者于2017/4/20 12:52:03编辑过]

--  作者：mayazql
--  发布时间：2017/4/20 14:05:00
--
色老师，你好，麻烦有时间帮忙看下。谢谢！

--  作者：有点色
--  发布时间：2017/4/20 14:16:00
--

1、你新增行的时候，要给此行的【支出单号】赋值，也就是你要用按钮【新增明细】新增一行；

2、代码改成

If Forms("支出新增有订单").opened Then
    Forms("支出新增有订单").Controls("TB金额").Text = DataTables("zcsub").Compute("sum(预支金额)","支出单号 = \'" & e.DataRow("支出单号") & "\'")
End If