以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  时间文本效验问题  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=87354)
--  作者：HJG_HB950207
--  发布时间：2016/7/8 19:21:00
--  时间文本效验问题
表A 有日期列，只要求输入年月，采用文本属性，掩饰码####-##
为控制其有效性，表属性VALIDATEEDIT 代码如下：

If e.Col.Name = "日期" AndAlso e.Text <> Nothing Then
    Dim ary As String() = e.Text.Split("-")
    If ary.Length <> 2 Then
 e.cancel = True
    Else
        If val(ary(1)) > 12 Then
            e.Cancel = True
        End If
    End If
End If

此代码在表输入中控制有效，而建立窗口时，用TEXTBOX （掩码还是####-##）输入时，上代码控制无效，请教老师如何在窗口中也能控制其输入符合逻辑？
谢谢！！
--  作者：Hyphen
--  发布时间：2016/7/9 8:51:00
--  
TEXTBOX ，Validating事件

If  e.Sender.Value > "" Then
    Dim ary As String() = e.sender.Text.Split("-")
    If ary.Length <> 2 Then
        e.cancel = True
    Else
        If val(ary(1)) > 12 Then
            e.Cancel = True
        End If
    End If
End If