电子表格请教在report machine中,如何做分组报表和交叉报表

1.请教在report machine中,如何做分组报表和交叉报表

结合了其他一些用户的经验给你一个解决方案：

unit Report. var lPageIndex: Integer. lList: TStringList. MyPageNo,MyPageTotal:integer. procedure Self_OnScriptBeginReport(Sender: TObject). begin if not Self.FinalPass then begin lList := TStringList.Create. lList.Add(0). end. end. procedure Self_OnScriptEndReport(Sender: TObject). begin if Self.FinalPass then begin lList.Free. lList := nil. end. end. procedure columnFooter1_OnBeforePrint(Sender: TObject). begin lPageIndex := lPageIndex 1

这些数据分组你可以交给ActiveReports来做啊，你想咋做就咋做，数据源指定，勾选两个属性就可以了，不要让自己太累了。。。所以有机会建议你试试ActiveReports报表控件，处理这类问题的效率和上手性都相对简单些~