Foxtable(狐表)用户栏目专家坐堂 → 统计


  共有1493人关注过本帖树形打印复制链接

主题:统计

帅哥哟,离线,有人找我吗?
jjm1234567
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:婴狐 帖子:43 积分:493 威望:0 精华:0 注册:2016/2/3 13:33:00
统计  发帖心情 Post By:2016/12/27 17:58:00 [只看该作者]

我在《去向》表的datacolchanged事件中写了:

Select Case e.DataCol.Name
    Case "出厂批号1"
        Dim cnt,cnt2 As Single
        cnt = DataTables("去向").Compute("Sum(消耗1)", "出厂批号1 = '" & e.NewValue & "'")
        cnt2 = DataTables("去向").Compute("Sum(进厂数量1)", "出厂批号1 = '" & e.NewValue & "'")
        If cnt>cnt2 Then
            Output.Show("此批号原料消耗数量:" & cnt &" 大于" &"进厂数量:" & cnt2 &"!! 请选下一批号.")
        End If
 Case "出厂批号2"
        Dim cnt,cnt2 As Single
        cnt = DataTables("去向").Compute("Sum(消耗2)", "出厂批号1 = '" & e.NewValue & "'")
        cnt2 = DataTables("去向").Compute("Sum(进厂数量2)", "出厂批号1 = '" & e.NewValue & "'")
        If cnt>cnt2 Then
            Output.Show("此批号原料消耗数量:" & cnt &" 大于" &"进厂数量:" & cnt2 &"!! 请选下一批号.")
        End If
End Select

但无任何反应,为什么?应该怎么改?

 回到顶部
帅哥哟,离线,有人找我吗?
有点色
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:13837 积分:69650 威望:0 精华:0 注册:2016/11/1 14:42:00
  发帖心情 Post By:2016/12/27 18:02:00 [只看该作者]

第一行,加入msgbox(e.DataCol.Name)

 

然后,在下面的代码,也加入msgbox,看看能否弹出值。


 回到顶部
帅哥,在线噢!
有点蓝
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:105493 积分:536456 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2016/12/27 18:03:00 [只看该作者]

Output.Show

改为

Messagebox.Show

 回到顶部
帅哥哟,离线,有人找我吗?
jjm1234567
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:婴狐 帖子:43 积分:493 威望:0 精华:0 注册:2016/2/3 13:33:00
  发帖心情 Post By:2016/12/28 13:15:00 [只看该作者]

OK,谢谢

 回到顶部