主题：[求助]销售退单只能输入负数代码

表中，有类别A列、数量B列、数量C列和金额列D,当类别A列是销售退单时，则B列、C列、D列不允许输入正数，只能输入负数，请老师前辈们写个代码，谢谢！

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

谢谢袍哥！