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

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 关于DataColChanged代码有时不执行的问题

共有1690人关注过本帖树形打印复制链接主题：关于DataColChanged代码有时不执行的问题

有点色

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：13837 积分：69650 威望：0 精华：0 注册：2016/11/1 14:42:00

Post By：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("支出单号") & "'") )

有点色

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：13837 积分：69650 威望：0 精华：0 注册：2016/11/1 14:42:00

Post By：2017/4/20 11:09:00 [显示全部帖子]

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

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

有点色

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：13837 积分：69650 威望：0 精华：0 注册：2016/11/1 14:42:00

Post By：2017/4/20 12:11:00 [显示全部帖子]

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

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

有点色

小大 4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：13837 积分：69650 威望：0 精华：0 注册：2016/11/1 14:42:00

Post By：2017/4/20 14:16:00 [显示全部帖子]

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

2、代码改成

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

下一主题 >> << 上一主题

主题：关于DataColChanged代码有时不执行的问题