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
加好友 
发短信
Post By：2015/11/26 11:35:00 [显示全部帖子]
