以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]销售退单只能输入负数代码  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=77836)
--  作者：ZHX241806
--  发布时间：2015/11/26 10:52:00
--  [求助]销售退单只能输入负数代码

表中，有类别A列、数量B列、数量C列和金额列D,当类别A列是销售退单时，则B列、C列、D列不允许输入正数，只能输入负数，请老师前辈们写个代码，谢谢！
--  作者：jialihaha
--  发布时间：2015/11/26 10:56:00
--  
加个判断，如果>0就不保存，并且给出提示
--  作者：大红袍
--  发布时间：2015/11/26 11:35:00
--  

DataColChanging

 

Select Case e.DataCol.Name

    case "B", "C", "D"

        If e.NewValue <> Nothing AndAlso e.Datarow("A") = "销售" AndAlso e.NewValue < 0 Then

e.Cancel = True

msgbox("销售单不能是正数")

        End If

End Select
--  作者：ZHX241806
--  发布时间：2015/11/26 12:29:00
--  

谢谢袍哥！