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
else
locate all for alltrim(堆存方式)=alltrim(thisform.txt2.value)
if .not.eof()
nAnswer=messagebox('堆存方式已存在！请再仔细核查一下堆存方式！',0,'系统提示！')
return
thisform.txt2.setfocus
endif
endif
appe blank
go bott
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
endif
xhjs=1
do while xhjs<=11
xh=alltrim(str(xhjs))
fdname=field(xhjs)
wnum=len(&fdname)
thisform.txt&xh..value=space(wnum)
thisform.txt&xh..enabled=.f.
xhjs=xhjs+1
enddo
thisform.txt12.value=space(1)
thisform.txt12.enabled=.f.
thisform.command1.enabled=.t.
thisform.command2.enabled=.t.
thisform.command3.enabled=.t.
thisform.command4.enabled=.f.
thisform.command5.enabled=.f.
thisform.command6.enabled=.t.
thisform.grid1.enabled=.t.
thisform.refresh
请各位高手帮看一下错在那里！谢谢
[解决办法]
