2014报表控件的详细使用说明.docxVIP

[推荐]activereport报表控件的详细使用说明 使用ActiveReport报表若干问题1.如何判断是否到报表的最后一页2.当报表数据源为空是，如果填充记录，也就是空报表(主要报表是以表格方式)第页20行数据!3.以表格形式做报表时，细节和本页合计部分有一部分空间，如何去掉，谢谢!==================以下为CSDN handwolf(初学者)回答1,这一点我也不知道有什么属性可以判断是否到报表的最后一页，但是方法是有的，我以前 的方法是控制一页的记录行数，然后根据记录总数计算出总的页数，报表的pageNumber属 性表示当前的页码，比较一下就可以了，然后显示总页数与当前页码的方法如下： --在页脚中添加一个用于显示总页数的Field和一个用于显示第几页的Field2。 --显示总页数的Field1：设置Summaryrunning的值为：0(ddsrNone) summaryFunc的值为0 Summarytype的值为4 --显示第几页的Field2:设置Summaryrunning的值为：2(ddsrall) summaryFunc的值为2 Summarytype的值为42，这个问题我也遇到过，我的解决方法是程序控制（假设你一页打印20行） 1）如果记录源空，则可以建一临时记录集，除了允许字段为空外，其他的与原记录源 相同，这样可以增加空记录（比如20条），然后用临时记录集绑定 2）如果记录源不空，记录数不能添满一页，想用空记录添满；则可以用如下方法控制： 首先，要有变量记录当前打印的是一页中的第几行（如整型的printline变量） 然后在报表的Detail_Format()事件中控制是否到达记录集尾，是否打印了20行 如果打到最后一条记录还没有打完一页，就让帮定的记录集moveprevious！！！直到 打印完一页！ 注意：这里的最后一行可要控制好 第一次moveprevious时，不要进行清空绑定的field控件 第二次到最后一次moveprevious时，一定要清空绑定的field控件，否则会一直 显示最后一条记录3，你可以将本页合计放在Detail部分，设置它的visible为false， 当到这一页最后一条记录时，设置它的visible为true，下面的是第一次做的代码，命名不规则！！！希望你看得不会累！后来写的代码是用临时记录集的！Dim rst As ADODB.RecordsetDim num As Integer 记录已输出的有效记录数-1Dim bc As Integer 记录所需补的空记录数 ，在变，最后减为0Dim bc2 As Integer 记录所需补的空记录数 ，一直不变Dim totalPagenum As Integer 记录总页数Dim recordnum As Integer 记录总记录数Dim flag As Boolean 控制开关，控制最后一条记录的显示Private Sub ActiveReport_ReportStart()Set rst = GetRecordset(select * from ymjzjl) 注意这里的打开方式，recordcount 的属性必须可用赋初值num = -1recordnum = rst.RecordCount总记录数bc = 10 - recordnum Mod 10If bc = 10 Thenbc = 0End Ifbc2 = bc 需要补充的行数If bc = 0 ThentotalPagenum = recordnum / 10总的页数ElsetotalPagenum = recordnum / 10 + 1End Ifrst.MoveFirstDataControl1.Recordset = rstEnd SubPrivate Sub Detail_Format()PageBreak1.Enabled = False PageBreak1用来控制一页只显示10条记录num = num + 1 已经打印的行数If num = recordnum - 1 And bc 0 Then If flag = True Then Field2.Text = Field1.Text = Field3.Text = Field4.Text = Field5.Text = End If flag = True rst.MovePrevious bc = bc - 1 还需打印的空行减1End IfIf bc = 0 And flag = True Then Field2.Text = Field1.Text = Field3.Text = Field4.Text = Fiel