我写了一段vf代码，文本框的值我已经设置为日期型了，为什么运行时一直提示参数类型不匹配？求高手指点!


num1=alltrim(thisform.ym.page3.pageframe3.page3.text1.value)
num2=alltrim(thisform.ym.page3.pageframe3.page3.text2.value)
num3=alltrim(thisform.ym.page3.pageframe3.page3.text3.value)


set exact on  && 不允许输入空数据
do case
    case num1=""
         messagebox("学号不能为空!",0+48,"系统提示!")
         this.parent.text1.setfocus
    case num2=""
         messagebox("违纪情况不能为空!",0+48,"系统提示!")
         this.parent.text2.setfocus
    case num3=""
         messagebox("违纪日期不能为空!",0+48,"系统提示!")
       this.parent.text3.setfocus
    endcase
   messagebox("确认添加么?",1+64+0,"系统提示!")
   insert into xswjxx values (num1,num2,num3)
 select * from  xsrwjxx into cursor  xswjtemp
 thisform.ym.page3.pageframe3.page3.grid1.recordsource="xswjtemp"
  thisform.refresh

用ctod()转换一下看看

嗯   谢谢   我先试试

我写了 还是一样的错误

case num1=""
这种设置是没用的，改为
case EMPTY(num1)

试试
NUM2,NUM3类似

[ 本帖最后由 sdta 于 2014-5-12 09:23 编辑 ]

说明楼主对VFP中的常用函数的使用方法，还没有掌握好，建议要经常看看VFP帮助文件

从楼主书写的代码中不难发现，楼主的基本功还需要加强：
1. 当控件的 Value 属性为字符型时，才可以使用 Alltrim()函数。正如 sdta 版主所分析的，num3 可能是日期型的，这样在对其执行 Alltrim()时肯定出错。
2. 使用 Set Exact On 防止输入空数据不妥。应该使用 empty()函数。
   如：case empty(num1)
         messagebox('学号不能为空！',48,'提示')
3. 若检测到用户输入值不合法，在给出提示后，仅靠 THISFORM.控件.SetFocus 无法中断后续代码的执行，还应该添加 Return 语句
4. 在添加数据之前，再让用户确认一下是一个好习惯。但是楼主的 messagebox()有问题。应改为：
   if messagebox("确认添加么？",1+64,"系统提示") = 2    && 单击“取消”时，中断处理
        return
   endif


[ 本帖最后由 liuxingang28 于 2014-5-12 13:02 编辑 ]

SET EXACT ON是设置字符型数据进行精确比较，但是你输入的数据有日期型数据，所以还是使用EMPTY（）进行判断比较好。

非常感谢各位的指导，代码改正确了