以文本方式查看主题

-  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=128555)
--  作者：y2287958
--  发布时间：2018/12/10 14:07:00
--  
pr存在吗？
--  作者：有点甜
--  发布时间：2018/12/10 15:19:00
--  

在这里加入msgbox，看是否弹出

 

msgbox(1)

Select Case e.DataCol.Name
    Case "物料描述","规格型号","单价_不含税","单价_含税"
--  作者：有点甜
--  发布时间：2018/12/10 17:54:00
--  
以下是引用nuoyan88在2018/12/10 17:18:00的发言：
可以弹出来，显示1

 

那msgbox(e.DataCol.Name)看看
--  作者：有点蓝
--  发布时间：2018/12/10 20:51:00
--  
1楼的4个MessageBox全部不显示？
--  作者：有点蓝
--  发布时间：2018/12/10 21:21:00
--  
Case "物料描述","规格型号","单价_不含税","单价_含税"

说明上面4个列的值没有任何改动，所以不会触发事件，或者这4个列是表达式列

改为

Case "物料编码"，"物料描述","规格型号","单价_不含税","单价_含税"
--  作者：有点蓝
--  发布时间：2018/12/11 22:22:00
--  
Select Case e.DataCol.Name
    Case "中康编码","成品编码","业务员"
        Dim dr As DataRow = e.DataRow
        Dim pr As DataRow
        If dr.IsNull("中康编码") OrElse dr.IsNull("成品编码") OrElse dr.IsNull("业务员") Then
            dr("单价美金_不含税") = Nothing
            dr("单价美金_含税") = Nothing
            dr("税点") = Nothing
         Else
            Dim filter As String
            filter = "中康编码= \'" & dr("中康编码") & "\' And 成品编码 = \'" & dr("成品编码") & "\' and 业务员 = \'" & dr("业务员") & "\'"
            pr = DataTables("销售报价").SQLFind(filter)
            If pr IsNot Nothing Then
                dr("单价美金_不含税") = pr("单价美金_不含税")
                dr("单价美金_含税") = pr("单价美金_含税")
            End If
        End If
End Select