以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  DateTimePicker控件，选了日期后，不能选择到其他表  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=96526)
--  作者：szsmall
--  发布时间：2017/2/22 17:04:00
--  DateTimePicker控件，选了日期后，不能选择到其他表
DateTimePicker控件，选了日期后，不能选择到其他表。清空日期后，就可以。



图片点击可在新窗口打开查看此主题相关图片如下：228.gif
图片点击可在新窗口打开查看
 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:会计凭证.table
--  作者：有点色
--  发布时间：2017/2/22 17:26:00
--  

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