Question

vfp 编程的问题！提示“找不到parameter语句”，请高手指教！！

我编写的语句如下：（它在一按纽的CLICK事件里，不知道怎么回事老提示上面的句子。）

parameter cparam1
if empty(alltrim(thisform.list4.value))
messagebox("对不起！条件不全，不能查询！"+chr(13)+chr(13)+"确认后请重新选择！",48,'提示')
thisform.refresh
return 0
else
cParam1=thisform.list4.value
do form jieguo with cParam1
endif
thisform.refresh

Answer 1

如果程序就这么几句的话，parameter语句是多余的。因为这个参数没有在程序中使用。

如果需要这么一句的话，PARAMETERS 应该是出现在一个过程、子程序、函数或或独立程序中。

Answer 2

parameter cparam1
if empty(alltrim(thisform.list4.value))
messagebox("对不起！条件不全，不能查询！"+chr(13)+chr(13)+"确认后请重新选择！",48,'提示')
thisform.refresh
return 0
else
cParam1=thisform.list4.value
do form jieguo with cParam1
endif
thisform.refresh