为何出现“Thisform只能在方法程序中使用。”的错误提示?
请高手指点!
--------------------------------------------------------------------------------
为何出现“Thisform只能在方法程序中使用。”的错误提示?
我在PVFP5.0编写一表单集程序。
FORM1:有一命令按钮COMMAND3
CLICK:if len(alltrim(thisform.text1.value))<>0
SET FILTER TO
sele ryqk
if substr(alltrim(thisform.text1.value),1,1)$'0123456789'
set filter to substr(ryqk.no,1,len(alltrim(thisform.text1.value)))=alltrim(thisform.text1.value)
else
set filter to substr(ryqk.name,1,len(alltrim(thisform.text1.value)))=alltrim(thisform.text1.value)
endif
go top
endif
*Thisformset.form2.HIDE
Thisformset.form2.show
thisform.refresh
按第一次无错误提示,按第二次出现错误提示!请问是何原因????????
另我做如下改动:
if len(alltrim(thisform.text1.value))<>0
SET FILTER TO
sele ryqk
mya=thisform.text1.value &&mya 在 FORM1 ACTIVE:PUBLIC MYA
if substr(alltrim(mya),1,1)$'0123456789'
set filter to substr(ryqk.no,1,len(alltrim(mya)))=alltrim(mya)
else
set filter to substr(ryqk.name,1,len(alltrim(mya)))=alltrim(mya)
endif
go top
endif
*Thisformset.form2.HIDE
Thisformset.form2.show
thisform.refresh
此无问题!!!!!
请高手指点!!!!