专注于互联网--专注于架构

2008年9月25日activereports:Active Reports 补空白行实现方法及代码

maxGyo’每页显示的最大行数 PrivateSubActiveReport_FetchData(eofAsBoolean) IfDsoPrint.eofThen SelectCaseGyoNo Case1 eof=True ExitSub CaseElse eof=False EndSelect Else eof=False EndIf IfaaKEYFIELD<>DsoPrint.Fields(\"aKEYFIELD\")Then IfGyoNo<=maxGyoAndGyoNo<>1Then ’打印空白行 CallPrintD... [阅读全文] [PDF]