主题：折扣列如何限制小于1

ValidateEdit事件

If e.Col.Name = "折扣" AndAlso e.Text > "" Then
   
    If val(e.Text) > 1 Then
       
        msgbox("不能大于1")
       
        e.Cancel = True
       
    End If
   
End If