rpt2temp.prg

来自「foxpro连接sqlserver的例子」· PRG 代码 · 共 25 行

*-- 将报表文件转成一个临时表文件，这样可以用来修改报表文件以实现打印不同格式
Func rpt2temp
*-- 接受传递过来的报表文件，将之复制到一个临时目录，并在原报表文件前前导tmp_
para tcRptFileName

if	type("tcRptFileName") # "C"
	retu .F.
endif

if	!File("&tcRptFileName..frx")
	messagebox("报表文件 &tcRptFileName. 不存在，报表处理中断！",16,"错误")
	retu .F.
endif

Local lcTempFileFrx
lcTempFileFrx	= "&pcTempPath.\tmp_&tcRptFileName..frx"
delwfl("&lcTempFileFrx")
delwfl("&lcTempFileFrt")

if	OpenDB("&tcRptFileName..frx","&tcRptFileName")
	Copy to "&lcTempFileFrx"
	use
endif

retu .T.