主题:查找的借用
我用向导生成了一个新表单,有一个命令按钮组,其中有一个查找按钮,我看功能不错,想借用一下到我的其它表单,代码如下:LOCAL oSearchDlog
LOCAL lVisChange,lStateChange
IF EMPTY(ALIAS())
RETURN
ENDIF
* Check if SDI Window
IF THISFORM.ShowWindow = 2
IF !_VFP.Visible
_VFP.Visible = .T.
lVisChange = .T.
ENDIF
IF _SCREEN.WindowState = 1
_SCREEN.WindowState = 0
lStateChange = .T.
ENDIF
ENDIF
oSearchDlog = CREATE("searchform")
oSearchDlog.SHOW()
IF m.lVisChange
_VFP.Visible = .F.
ENDIF
IF m.lStateChange
_SCREEN.WindowState = 1
ENDIF
IF THISFORM.ShowWindow = 2
Activate Window (THISFORM.Name)
ENDIF提不找不到searchform类,请问我可以借用吗?怎样处理
LOCAL lVisChange,lStateChange
IF EMPTY(ALIAS())
RETURN
ENDIF
* Check if SDI Window
IF THISFORM.ShowWindow = 2
IF !_VFP.Visible
_VFP.Visible = .T.
lVisChange = .T.
ENDIF
IF _SCREEN.WindowState = 1
_SCREEN.WindowState = 0
lStateChange = .T.
ENDIF
ENDIF
oSearchDlog = CREATE("searchform")
oSearchDlog.SHOW()
IF m.lVisChange
_VFP.Visible = .F.
ENDIF
IF m.lStateChange
_SCREEN.WindowState = 1
ENDIF
IF THISFORM.ShowWindow = 2
Activate Window (THISFORM.Name)
ENDIF提不找不到searchform类,请问我可以借用吗?怎样处理