KeyDownEdit事件，输入后按回车
If e.Col.Name = "发货日期" AndAlso e.KeyCode = keys.enter
If e.text.Length <= 2 Then
If val(e.Text) <= Date.DaysInMonth(Date.today.Year, Date.Today.Month) Then
e.text= new Date(Date.Today.Year, Date.Today.Month, val(e.text))
Else
e.Cancel = True
End If
ElseIf e.text.Length = 5
Dim m As Integer = val(e.Text.SubString(0,2))
If m >= 1 AndAlso m <= 12 Then
Dim d As Integer = val(e.Text.SubString(2))
If d <= Date.DaysInMonth(Date.today.Year, m) AndAlso d > 0 Then
e.text= new Date(Date.Today.Year, m, d)
Else
e.Cancel = True
End If
End If
End If
End If
加好友 
发短信
Post By：2017/9/5 21:51:00 [显示全部帖子]
