bb_prev2.bak

来自「这是一款非常实用的福彩3D彩票统计分析软件,实现各种代码走势图的查看,以及按照相」· BAK 代码 · 共 22 行

para cReportName,cTitleName

public totalpages

totalpages=0
set message to '预览报表...'
DEFINE WINDOW WinRptPre FROM 0,0 TO SROWS()-10,SCOLS()-10  TITLE '预览报表：'+cTitleName ;
                        system CLOSE FLOAT ;
                        GROW ZOOM ICON FILE 'SEARCH.ICO'
set message to '正在计算'+cTitleName+'总页数...'
report form &cReportName nocons environment
TotalPages=_pageno
activate windows WinRptPre
ZOOM WINDOW WinRptPre MAX
label FORM &cReportName PREVIEW WINDOW WinRptPre nowait
SELECT a
USE &dataname
release window WinRptPre
set message to ''