当前位置: 代码迷 >> VFP >> 在自定义窗口中显示报表预览,为何点一下报表,出现“no table is open in the current work area”呢,该怎么解决
  详细解决方案

在自定义窗口中显示报表预览,为何点一下报表,出现“no table is open in the current work area”呢,该怎么解决

热度:4688   发布时间:2013-02-26 00:00:00.0
在自定义窗口中显示报表预览,为何点一下报表,出现“no table is open in the current work area”呢
在自定义窗口中显示报表预览,为何点一下报表,出现“no table is open in the current work area”呢
就是下面的代码,可以实现在自定义窗口显示报表预览,但是问题有二。
1.没有滚动条,无法看到整个报表,(我的报表是A3纸打印的)
2.我点一下报表,出现提示:
no table is open in the current work area
意思我明白,是当前工作区,没有表打开,
但是我不明白,为什么?
如果不在自定义窗口显示报表,不会出现这种现象,
我如何解决呢?


*!* DEFINE WINDOW w_printform ;
*!* FROM 1, 1 TO 200, 300 ;
*!* TITLE "Parent" && 父窗口。
*!*  
*!* activate windows w_printform 
*!* deac wind w_printform 
*!* ZOOM WINDOW w_printform MAX


*!* REPORT FORM repgzybb_shebei PREVIEW WINDOW w_printform NOWAIT 
*!* RELEASE WINDOWS w_printform

------解决方案--------------------------------------------------------
1. 关于没有滚动条的问题,是因为用 define window 创建的窗口不存在滚动条,一般采用类似下面的方式来做到:
VB code
oo = NEWOBJECT('Preview')oo.Visible = .T.REPORT FORM ? PREVIEW WINDOW (oo.name) NOWAIT DEFINE CLASS Preview AS Form  ScrollBar = 3  TitleBar = 0  WindowState = 2ENDDEFINE
  相关解决方案