VFP表单中提醒函数参数的值、类型或数目无效

VFP表单中提示函数参数的值、类型或数目无效
if len(alltrim(thisform.txt1.value))=0 .or.len(alltrim(thisform.txt2.value))=0
   nAnswer=messagebox('日期、堆存方式不能为空值！请再仔细检查一下！',0,'系统提示！')
   return
   thisform.txt1.setfocus
endif
sele matouzuoyuebiao
dele all for len(alltrim(日期))=0.and.len(alltrim(堆存方式))=0
set dele on
if xgbzhi
       go rec
       dele 
       locate all for alltrim(日期)=alltrim(thisform.txt1.value)
       if .not.eof()
             nAnswer=messagebox('日期已存在！请再仔细核查一下日期！',0,'系统提示！')
             set dele off
             go rec
             recall
             set dele on
             return
             thisform.txt1.setfocus
           else
             locate all for alltrim(堆存方式)=alltrim(thisform.txt2.value)
             if .not.eof()
                nAnswer=messagebox('堆存方式已存在！请再仔细核查一下堆存方式！',0,'系统提示！')
                set dele off
                go rec
                recall
                set dele on
                return
                thisform.txt2.setfocus
             endif
       endif
       set dele off
       go rec
       recall
       xhjs=1
       do while xhjs<=12
          xh=alltrim(str(xhjs))
          fdname=field(xhjs)
          repl &fdname with alltrim(thisform.txt&xh..value)
          xhjs=xhjs+1
       enddo
       set dele on
   else
       locate all for alltrim(日期)=alltrim(thisform.txt1.value)
       if .not.eof()
             nAnswer=messagebox('日期已存在！请再仔细核查一下日期！',0,'系统提示！')
             return
             thisform.txt1.setfocus