写了段输入验证的代码，提示信息总是弹出，是怎么回事?请大家帮忙看看

If e.Col.Name = "车号"
   Dim s As String = e.Row("车号")
      If e.Text > "" Then
      If s.Length <> 7 OrElse IsNumeric(s) = False Then
      messagebox.show("无效的车号!")
      e.Cancel = True
        End If
    End If
End If
If e.Col.Name = "计划号"
   Dim s As String = e.Row("计划号")
      If e.Text > "" Then
      If s.Length <> 11 OrElse IsNumeric(s) = False Then
      messagebox.show("无效的计划号!")
      e.Cancel = True
        End If
    End If
End If

If e.Col.Name = "车号"

    if e.datarow.isnull("车号") = false
        Dim s As String = e.Row("车号")
        If s.Length <> 7 \'OrElse IsNumeric(s) = False Then(当前车号规则不是纯数值型，后面这段不要）
            messagebox.show("无效的车号!")
            e.datarow("车号") = nothing
        End If
    End If
End If

下面这段自己看着改！

是在datacolchanged里面才行吧，我在validatedit用就不行，谢版主热情帮助