如下是对日期（字符型，只含年月（YYYY-MM)）的VALIDATEEDIT的审核代码：
If e.Col.Name = "参加工作时间" AndAlso e.Text <> Nothing Then
Dim ary As String() = e.Text.Split("-")
If ary.Length <> 2 Then
MessageBox.Show("时间输入有误!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
e.cancel = True
Else
If val(ary(1)) > 12 Then
e.Cancel = True
MessageBox.Show("时间输入有误!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
End If
End If
End If
请教：如在上日期后再加日（列为字符型），格式为YYYY-MM-DD, 对如上代码如何修改？谢谢老师！
加好友 
发短信
Post By：2015/8/31 13:43:00 [显示全部帖子]
