在一个文本框中，只需要输入年月，我设置 InputMask 为9999-99
但要防止输入月份大于13，除了在 LostFocus 中判断输入是否正确外，能否在设置时，让用户只有输入正确的月份？？

在文本框的VALID事件中，用代码判断月份是否大于12

月份大于12不可输入

还可以在InteractiveChange 事件中判断

把一个日期型字段直接拖到表单上。把‘日’忽略掉。

在lostfocus中的代码如下：

IF "    -  " # this.Value   &&如果内容为空，则跳过
   IF VAL(SUBSTR(this.Value,1,4)) <1000  &&年份少于1000，要求重新输入年份
      this.selstart=1
      this.SelLength=4
      this.SetFocus
   ENDIF
   IF VAL(SUBSTR(this.Value,6,2))>12   &&年份大于12，要求重新输入月份
      this.SelStart=6
      this.SelLength=2
      this.SetFocus      
   ENDIF
ENDIF

这样的代码，不知道怎么在执行的时候没有反应啊

干脆把失去焦点的 lostfocus中改成如下了：
LOCAL tmp_1
IF "    -  " # this.Value
   tmp_1 = INT(VAL(SUBSTR(this.Value,1,4)))
   IF  tmp_1<1000
      DO CASE
         CASE tmp_1 < 50
              tmp_1=tmp_1+2000
         CASE tmp_1 >=50 AND tmp_1 < 100
              tmp_1=tmp_1+1900
         CASE tmp_1>=100
              tmp_1=tmp_1+2000         
      ENDCASE
      this.Value=STUFF(this.Value,1,4,ALLTRIM(STR(tmp_1)))   
      this.selstart=0
      this.SelLength=4
      this.SetFocus
   ENDIF
   tmp_1 = INT(VAL(SUBSTR(this.Value,6,2)))
   IF VAL(SUBSTR(this.Value,6,2))>12
      tmp_1=12
      this.Value=STUFF(this.Value,6,2,ALLTRIM(STR(tmp_1)))
      this.SelStart=5
      this.SelLength=2
      this.SetFocus
   ELSE
      IF tmp_1<=0
         tmp_1=1
      ENDIF   
      this.Value=STUFF(this.Value,6,2,PADL(tmp_1,2,"0"))   
   ENDIF   
ENDIF

我通常是用两个文本框或微调框来解决，一个输入年份，另一个输入月份，简便明了。