VFP 愛用者社區

[jtcom01]

程式如下..
*******************
MFRXNA='AAA.FRX'
*******************
IF NOT FILE('&MFRXPATH'+'&MFRXNA')
=MESSAGEBOX("無此報表!"+MFRXNA,0,"訊息視窗")
RETU
ENDIF
SELECT 11
USE '&MFRXPATH'+'&MFRXNA' EXCLUSIVE
GO TOP
MEXPR=EXPR
=SYS(1037)
MPRNA=ALLTRIM(SET("PRINTER",3))
MPRID=ALLTRIM(STR(PRTINFO(2)))
MDEVICE='DEVICE='+MPRNA
MPAPERSIZE='PAPERSIZE='+MPRID
MYN=MESSAGEBOX("確定存檔嗎?",4+48+256,"訊息視窗")
IF MYN=6
REPLACE TAG WITH "" , TAG2 WITH "" ;
EXPR WITH STUFF(EXPR,AT( "DEVICE=" , EXPR) , AT( "OUTPUT=" , EXPR) - AT( "DEVICE=" , EXPR) -1 , "&MDEVICE");
EXPR WITH STUFF(EXPR,AT( "PAPERSIZE=" , EXPR) , AT( "ASCII=" , EXPR) - AT( "PAPERSIZE=" , EXPR) -1 , "&MPAPERSIZE")
ELSE
REPLACE EXPR WITH MEXPR
ENDIF
USE
*****************************************
MODIFY REPORT '&MFRXPATH'+'&MFRXNA'
******************************************

[syntech]

通常在不同os下,執行情況不一樣,
會優先懷疑:
1. 防毒軟體有防止寫入功能
2. os 的權限問題

不會很簡單的下一個 "某某版本在xx os 執行有問題" 的標題

[perry]

指令用法問題!!
path_v='c:\'
file_n='aa.scx'
if file(path_v+file_n)
modi form (path_v+file_n)
endi

or 增加變數

path_file=path_v+file_n
modi form (path_file) or modi form &path_file

REPLACE TAG WITH "" , TAG2 WITH "" ; <-;之前好像少了 ,
EXPR WITH STUFF(EXPR,AT( "DEVICE=" , EXPR) , AT( "OUTPUT=" , EXPR) - AT( "DEVICE=" , EXPR) -1 , "&MDEVICE");<-;之前好像少了 ,
EXPR WITH STUFF(EXPR,AT( "PAPERSIZE=" , EXPR) , AT( "ASCII=" , EXPR) - AT( "PAPERSIZE=" , EXPR) -1 , "&MPAPERSIZE")

[garfield]

如果有將report 檔案包進執行檔中, 是無法修改它的值.

[jtcom01]

感謝各位先進指教..
報表檔沒含入EXE內.用MODI REPORT也一樣無法覆蓋成功
最後只能修改檔名後.再MODI REPORT 另存新檔後才成功