设置一文本框，要求输入日期，若日期或输入格式不对，不能到下一文本框：

IF Val(ThisForm.Text1.Text)>=1.01 .and. Val(ThisForm.Text1.Text)=<12.31
    Else
    ThisForm.Text1.SetFocus
Endif

ThisForm.Refresh

运行过程中IF判断正确，但不能将焦点固定到TEXT1上，没有报错信息。

请问：是什么地方错了？

[[it] 本帖最后由 zycwdfzd 于 2008-6-27 15:24 编辑 [/it]]

只要初始化表单的时候ThisForm.Text1.Value=DATE()即可，内部判断日期的合法性。