这个代码中的数字该如何表示？ - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 这个代码中的数字该如何表示？

共有4411人关注过本帖树形打印复制链接主题：这个代码中的数字该如何表示？

有点甜

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

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2014/7/8 16:14:00 [显示全部帖子]

如果是加载行后不显示数据，那你的代码应该写在表的加载事件afterload里，而不是窗口的afterload事件。

e.DataTable.DataCols("编号").RaiseDataColChanged()

有点甜

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

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2014/7/8 16:23:00 [显示全部帖子]

以下是引用身份不明在2014-7-8 16:17:00的发言：
我之前的代码写在表的AfterLoad事件里的：DataTables("轮转排单").DataCols("编号").RaiseDataColChanged()

那，统计应该就是没有问题，是不是你出库表的数据没有保存导致的没有计算？

有点甜

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

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2014/7/8 16:27:00 [显示全部帖子]

以下是引用身份不明在2014-7-8 16:26:00的发言：
已经保存了，数据都是前几天做的出库。

代码，请加入到对应表的afterload事件，同时加入msgbox(1)，看是否触发了代码。

有点甜

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

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2014/7/8 16:29:00 [显示全部帖子]

请看16楼，代码要写在排班表的 afterload事件里，看是否弹出对话框。

[此贴子已经被作者于2014-7-8 16:30:28编辑过]

有点甜

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

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2014/7/8 16:33:00 [显示全部帖子]

以下是引用身份不明在2014-7-8 16:31:00的发言：

代码是写在这个排单表的afterload事件里的。

那，就看是否弹出msgbox

有点甜

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

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2014/7/8 16:38:00 [显示全部帖子]

以下是引用身份不明在2014-7-8 16:35:00的发言：

都是正常弹出，每次加载都显示1，代码是正常运行的啊

那你在Datacolchanged事件加入代码，看结果

Select Case e.DataCol.Name
    Case "编号"
        Dim filter As String = "编号 = '" & e.DataRow("编号") & "'"
        e.DataRow("实用数量") = DataTables("原纸出库").SQLCompute("sum(实用数量)", filter)
        e.DataRow("应用数量") = DataTables("原纸出库").SQLCompute("sum(应用数量)", filter)

msgbox("编号 = " & e.DataRow("编号") & " 数量 = " & DataTables("原纸出库").SQLCompute("sum(应用数量)", filter) )
End Select