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


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

主题：统计
帅哥哟，离线，有人找我吗？
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


加好友 发短信
等级：超级版主 帖子：110570 积分：562740 威望：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，谢谢

 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.04688 秒, 4 次数据查询