主题：DateTimePicker控件，选了日期后，不能选择到其他表

Leave代码

If e.sender.text.length <= 2 Then
    If val(e.sender.Text) <= Date.DaysInMonth(Date.today.Year, Date.Today.Month) Then
        If e.sender.Text.length = 1 Then
            e.Sender.value = new Date(Date.Today.Year, Date.Today.Month, val(e.sender.text))
        ElseIf e.sender.Text.length = 2 Then
            e.Sender.value = new Date(Date.Today.Year, Date.Today.Month, val(e.sender.text))
        End If
    Else
        e.sender.Select
    End If
End If