以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  统计  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=94601)
--  作者：jjm1234567
--  发布时间：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

但无任何反应，为什么？应该怎么改？
--  作者：有点色
--  发布时间：2016/12/27 18:02:00
--  

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

 

然后，在下面的代码，也加入msgbox，看看能否弹出值。
--  作者：有点蓝
--  发布时间：2016/12/27 18:03:00
--  
Output.Show

改为

Messagebox.Show
--  作者：jjm1234567
--  发布时间：2016/12/28 13:15:00
--  
OK，谢谢