SomeBody Help(进者有分) ~~~~ 命令中有不能识别的短语和关键字

[cookies10wen]

编译时提示‘ 命令中有不能识别的短语和关键字’。


出错语句： NOEJECT PROMPT

[MissingWen]

谢谢大家。。

[needanothercoder]

先顶

[ACMAIN_CHM]

VFP 版本多少？

[cookies10wen]

6。0

[needanothercoder]

试试用vfp9.0

[needanothercoder]

要用vfp9英文版,比较纯正,速度快,且稳定

[ZJPQJB]

9.0下也没查出这条命令。楼主是怎样得到的命令？想达到什么作用？

[十豆三]

这句是不对的，你这句是想完成什么目的，报错行的完整语句是这样的吗？

最好帖出上下全代码。

[WWWWA]

完整代码是什么？

[yrt888]

有这样的语句：

REPORT FORM 报表.frx TO PRINTER PROMPT NOEJECT NOCONSOLE

[qd163]

NOEJECT PROMPT

找找这个

[cookies10wen]

源代码：

***
*** ReFox MMII (Win) #UK813760 OSCAR VALENTE LINCKER S.R.L. [VFP60]
***
SET TALK OFF
CLEAR ALL
CLEAR
CLOSE ALL
CLEAR
CLEAR ALL
SET TALK OFF
SET SYSMENU TO
SET DELETED ON
SET SAFETY OFF
SET ESCAPE OFF
SET NOTIFY OFF
SET CENTURY ON
SET DATE TO dmy
SET EXCLUSIVE ON
DEFINE WINDOW win1 FROM 2, 10 TO ;
30, 100 FONT '', 14 GROW ;
FLOAT TITLE '输入数据 ' ;
MDI
DEFINE WINDOW win2 FROM 2, 10 TO ;
30, 100 FONT '', 14 GROW ;
FLOAT TITLE ;
' 按CTRL +W 开始打印 ' ;
MDI
DEFINE WINDOW win3 FROM 2, 01 TO ;
30, 100 FONT '', 14 GROW ;
FLOAT TITLE ;
' 参 数 修 改 ' MDI
SELECT 1
USE JF
ZAP
SELECT 2
USE jf2
ZAP
aaaaa = 1
dd = SPACE(10)
cc = SPACE(10)
yz = SPACE(10)
zh1 = 0
zh2 = 0
gxh1 = 0
gxh2 = 0
sl = 0
DO WHILE .T.
zh1 = 0
zh2 = 0
gxh1 = 0
gxh2 = 0
sl = 0
ACTIVATE WINDOW win1
@ 1, 4 SAY '订单:' GET dd ;
FUNCTION 'k'
@ 1, 20 SAY '床次:' GET cc ;
FUNCTION 'k'
@ 1, 38 SAY '烟治:' GET yz ;
FUNCTION 'k'
@ 3, 4 SAY '扎号从：' GET ;
zh1 FUNCTION 'k' PICTURE ;
'99999999'
@ 3, 20 SAY ' 到 ' GET zh2 ;
FUNCTION 'k' PICTURE ;
'99999999'
@ 5, 4 SAY '工序号从：' GET ;
gxh1 FUNCTION 'k' PICTURE ;
'999'
@ 5, 20 SAY ' 到 ' GET gxh2 ;
FUNCTION 'k' PICTURE ;
'999'
@ 7, 4 SAY ;
'请输入要重复的件数' GET ;
sl FUNCTION 'k'
READ
IF LASTKEY() = 27
EXIT
ENDIF
DEACTIVATE WINDOW win1
ACTIVATE WINDOW win2
gxh3 = gxh1
zh3 = zh1
DO WHILE .T.
APPEND BLANK
REPLACE 件数2 WITH sl
zh1 = zh1 + 1
IF zh1 > zh2
EXIT
ENDIF
ENDDO
GOTO TOP
ON KEY LABEL enter DO ENT1
BROWSE NOMENU
PUSH KEY CLEAR
DEACTIVATE WINDOW win2
DELETE ALL FOR 件数2 = 0
GOTO TOP
zh1 = zh3
DO WHILE .T.
js = 件数2
gxh1 = gxh3
SELECT 1
DO WHILE .T.
APPEND BLANK
REPLACE 件数 WITH ;
js
REPLACE 工序号从 ;
WITH gxh1
REPLACE 扎号从 ;
WITH zh1
REPLACE 订单 WITH ;
dd
REPLACE 床次 WITH ;
cc
REPLACE 烟治 WITH ;
yz
gxh1 = gxh1 + 1
IF gxh1 > gxh2
EXIT
ENDIF
ENDDO
zh1 = zh1 + 1
IF zh1 > zh2
EXIT
ENDIF
SELECT 2
SKIP
ENDDO
* IF aaaaa = 1
* SYS(1037)
* ENDIF
REPORT FORM JFBBNEW TO PRINTER PREVIEW ;
NOEJECT PROMPT
SELECT 1
ZAP
SELECT 2
ZAP
aaaaa = aaaaa + 1
ENDDO
RELEASE WINDOW win1
RELEASE WINDOW win2
RELEASE WINDOW win3
CLEAR ALL
CLEAR
CLOSE ALL
RETURN
ENDPROC
*
PROCEDURE ent1
PUSH KEY CLEAR
SELECT 2
SKIP 1
POP KEY
ENDPROC
*
***
*** ReFox - retrace your steps ...
***

[cookies10wen]

在‘连编可执行程序’时提示错误：

正在编译c:\documents and settings\j\my documents\打菲\源代码\df.prg
REPORT FORM JFBBNEW TO PRINTER PREVIEW NOEJECT PROMPT
第 133 行发生错误: 命令中含有不能识别的短语或关键字。

[cookies10wen]

红色：


***
*** ReFox MMII (Win) #UK813760 OSCAR VALENTE LINCKER S.R.L. [VFP60]
***
SET TALK OFF
CLEAR ALL
CLEAR
CLOSE ALL
CLEAR
CLEAR ALL
SET TALK OFF
SET SYSMENU TO
SET DELETED ON
SET SAFETY OFF
SET ESCAPE OFF
SET NOTIFY OFF
SET CENTURY ON
SET DATE TO dmy
SET EXCLUSIVE ON
DEFINE WINDOW win1 FROM 2, 10 TO ;
30, 100 FONT '', 14 GROW ;
FLOAT TITLE '输入数据 ' ;
MDI
DEFINE WINDOW win2 FROM 2, 10 TO ;
30, 100 FONT '', 14 GROW ;
FLOAT TITLE ;
' 按CTRL +W 开始打印 ' ;
MDI
DEFINE WINDOW win3 FROM 2, 01 TO ;
30, 100 FONT '', 14 GROW ;
FLOAT TITLE ;
' 参 数 修 改 ' MDI
SELECT 1
USE JF
ZAP
SELECT 2
USE jf2
ZAP
aaaaa = 1
dd = SPACE(10)
cc = SPACE(10)
yz = SPACE(10)
zh1 = 0
zh2 = 0
gxh1 = 0
gxh2 = 0
sl = 0
DO WHILE .T.
zh1 = 0
zh2 = 0
gxh1 = 0
gxh2 = 0
sl = 0
ACTIVATE WINDOW win1
@ 1, 4 SAY '订单:' GET dd ;
FUNCTION 'k'
@ 1, 20 SAY '床次:' GET cc ;
FUNCTION 'k'
@ 1, 38 SAY '烟治:' GET yz ;
FUNCTION 'k'
@ 3, 4 SAY '扎号从：' GET ;
zh1 FUNCTION 'k' PICTURE ;
'99999999'
@ 3, 20 SAY ' 到 ' GET zh2 ;
FUNCTION 'k' PICTURE ;
'99999999'
@ 5, 4 SAY '工序号从：' GET ;
gxh1 FUNCTION 'k' PICTURE ;
'999'
@ 5, 20 SAY ' 到 ' GET gxh2 ;
FUNCTION 'k' PICTURE ;
'999'
@ 7, 4 SAY ;
'请输入要重复的件数' GET ;
sl FUNCTION 'k'
READ
IF LASTKEY() = 27
EXIT
ENDIF
DEACTIVATE WINDOW win1
ACTIVATE WINDOW win2
gxh3 = gxh1
zh3 = zh1
DO WHILE .T.
APPEND BLANK
REPLACE 件数2 WITH sl
zh1 = zh1 + 1
IF zh1 > zh2
EXIT
ENDIF
ENDDO
GOTO TOP
ON KEY LABEL enter DO ENT1
BROWSE NOMENU
PUSH KEY CLEAR
DEACTIVATE WINDOW win2
DELETE ALL FOR 件数2 = 0
GOTO TOP
zh1 = zh3
DO WHILE .T.
js = 件数2
gxh1 = gxh3
SELECT 1
DO WHILE .T.
APPEND BLANK
REPLACE 件数 WITH ;
js
REPLACE 工序号从 ;
WITH gxh1
REPLACE 扎号从 ;
WITH zh1
REPLACE 订单 WITH ;
dd
REPLACE 床次 WITH ;
cc
REPLACE 烟治 WITH ;
yz
gxh1 = gxh1 + 1
IF gxh1 > gxh2
EXIT
ENDIF
ENDDO
zh1 = zh1 + 1
IF zh1 > zh2
EXIT
ENDIF
SELECT 2
SKIP
ENDDO
* IF aaaaa = 1
* SYS(1037)
* ENDIF
REPORT FORM JFBBNEW TO PRINTER PREVIEW ;
NOEJECT PROMPT
SELECT 1
ZAP
SELECT 2
ZAP
aaaaa = aaaaa + 1
ENDDO
RELEASE WINDOW win1
RELEASE WINDOW win2
RELEASE WINDOW win3
CLEAR ALL
CLEAR
CLOSE ALL
RETURN
ENDPROC
*
PROCEDURE ent1
PUSH KEY CLEAR
SELECT 2
SKIP 1
POP KEY
ENDPROC
*
***
*** ReFox - retrace your steps ...
***

[WWWWA]

REPORT FORM JFBBNEW TO PRINTER PREVIEW
or
REPORT FORM JFBBNEW TO PRINTER PROMPT NOEJECT

[WWWWA]

or
REPORT FORM JFBBNEW TO PRINTER PROMPT NOEJECT PREVIEW

[十豆三]

将你的
REPORT FORM JFBBNEW TO PRINTER PREVIEW ;
NOEJECT PROMPT

改为


Report Form JFBBNEW To Printer Prompt Noeject Preview

[十豆三]

***
*** ReFox - retrace your steps ...
***