谢谢!能否再具体地指点一下?我不太懂foxpro,这次是不得已帮别人改程序,只要改一点点东西,其他都搞定了,就是这个问题解决不了。
代码后半部分如下:
go top
sele 6
public prnto
prnto=3
do form ch_print.scx
do case prnto
case prnto=1
report form report1 preview
case prnto=2
report form report1 nocon to print prompt
endcase
release prnto
use
sele 2
use
sele 1
use
sele 6
use
release jw1,title1,r_sm1,r_sm2