ActiveReport2 pro的使用问题

Question

不是，就象EXcel那样对本页本列的数据作个小计，可是我放在PageFooter就导致格式不对了

Answer 1

1.在pagefooter中添加一个textbox
2.把它的datafield设为要统计的字段
3.设它属性：
 summaryfunc=0
 summarytype=2ok

Answer 2

这样不行啊，我是有表格的那种。我想把小计一行加到每页的最后一行。如果放在pagefooter种，最后一页如果只有几行的话，会仍旧放在页面最下方，当中空开了很多。

Answer 3

写代码
private sub activereport_fetchdata()
static nnum as long
if nnum=50 then   ' record count per page
   newpage= ........ ' divide page
   nnum=0
elseend if
....
end sub

Answer 4

学习中：问题解决了没有!如果解决了，请告诉我一下。
我的Email: [email protected]
谢谢!

Answer 5

因为报表中数据是一条一条填进去的,我认为可以这样做
private sub activereport_fetchdata() or detail_format()
static nnum as long
dim ctl as object''每页显示50条记录
if nnum=50 then
    For Each ctl In Detail.Controls
        If ctl.Name = "ddd" Then
           Fields(ctl.Name).Value = 5555
        End If
    Next
   detail.newpage=ddNPBefore(/ddNPAfter)
   nnum=0
else
   nnum=nnum+1
   detail.newpage=ddNPNone
end ifend subprivate sub ActiveReport_DataInitialize()   ''动态加控件
    Dim ctl As Object
    Set ctl = Detail.Controls.Add("DDActiveReports2.Field")
    ctl.Left = 100   ''根据具体定
    ctl.Top = 1000
    ctl.Height = 500
    ctl.Width = 1000
    Fields.Add "ddd"  ' ctl.Name
    ctl.BackColor = vbRed
    ctl.BackStyle = 1end sub
具体的请你试试