PUBLIC cprompt
cprompt= " "
LOCAL ccustno,nlen
IF nKeyCode=-7 THEN
ccustno=ALLTRIM(this.Value)&&
nlen=LEN(ccustno) &&
SELECT d_jhd
SET FILTER TO LOWER(SUBSTR(ALLTRIM(mingcheng),1,nlen))==LOWER(ccustno)&&
SET PROCEDURE TO E:\jxc1.1\programs &&设定程序路径
DEFINE POPUP popup1 from 5,5 TO 25,50 PROMPT FIELD d_jhd.jhdh+ "--> "+ALLTRIM(d_jhd.ghs)&&
ON SELECTION POPUP popup1 do extproc with ALLTRIM(SUBSTR(PROMPT(),1))&&
ACTIVATE POPUP popup1 &&
SELECT jijipeizhi
SET FILTER TO &&
KEYBOARD CHR(13) &&
ENDIF
IF LEN(cprompt)> 0 THEN
this.Value= " " &&
*!* this.Value=ALLTRIM(cprompt) &&CPROMPT
this.Visible=.f.
ENDIF
RELEASE cprompt &&
thisform.Refresh
*!* && PROCEDURE extproc
*!* ****************************************
*!* PROCEDURE extproc &&
*!* PARAMETER MPROMPT
*!* CPROMPT = MPROMPT &&MPROMPT???CPROMPT
*!* DEACTIVATE POPUP POPUP1 &&DEFINE POPUP
*!* RETURN &&
*!* ENDPROC
这个可以用不知道PROCEDURE怎么用那个MPROMPT是什么参数不知到是怎的
------解决方案--------------------------------------------------------
将
PROCEDURE extproc &&
PARAMETER MPROMPT
CPROMPT = MPROMPT &&MPROMPT???CPROMPT
DEACTIVATE POPUP POPUP1 &&DEFINE POPUP
RETURN &&
ENDPRO
放在一个Prg中,如MyFunc.prg,然后在主程序中加代码:
set proc to Myfunc.prg
------解决方案--------------------------------------------------------
这个参数是
Do 的参数
------解决方案--------------------------------------------------------
LPARAMETERS Command
See Also
Collapse All Expand All
Assigns data passed from a calling program to local variables or arrays.
LPARAMETERS Parameter1 [AS type [OF ClassLib]]
[, Parameter2 [AS type [OF ClassLib]]]