Comments:

Flat Nested Threaded Embedded

Oldest First Newest First

Author	Thread:
admin	如何制作的统计信息的页脚 Posted: Wednesday, April 12, 2006 3:41 PM (中) 用报表设计器打开报表， --------------------------------------------------------------------------------------- Page Header的OnPrint输入： MyFooter = "" CurrentPrdName = "" CurrentPrdNum=0 CurrentPrdArea=0 PrdIndex=0 ---------------------------------------------------------------------------------------- Detail的OnPrint输入： If CurrentPrdName = P_Product_Id Then    CurrentPrdNum = Num + CurrentPrdNum    CurrentPrdArea = Area + CurrentPrdArea Else    If CurrentPrdName<> "" Then         PrdIndex = PrdIndex + 1         MyFooter = MyFooter & "(" & PrdIndex &")" & CurrentPrdName & ":" & CurrentPrdNum & "=" &CurrentPrdArea & "~~~~~~~~"    EndIf    CurrentPrdNum = Num    CurrentPrdArea = Area    CurrentPrdName = P_Product_Id EndIf ----------------------------------------------------------------------------------- Page Footer里的OnPrint输入： If CurrentPrdName<> "" Then         PrdIndex = PrdIndex+1         MyFooter = MyFooter & "(" & PrdIndex &")" & CurrentPrdName & ":" & CurrentPrdNum & "=" &CurrentPrdArea & "    " EndIf  ------------------------------------------------------------------------------------- 最后在Page Footer建立打印对象， Name=MyFooter Text=MyFooter Calculated=true
?	如何制作的统计信息的页脚 Posted: Wednesday, April 12, 2006 5:40 PM (中) 顶一下.值得研究,都是用VB语言写, 可以解决不少问题.特别是手工模式根深蒂固的人员一般都有这样的要求