numbervar x1; //声明一个数字型 x1
numbervar x2;
numbervar p0;
numbervar p1;
//x1赋值分组总记录数
x1:=count({BAQReportResult.PODetail.PartNum},{BAQReportResult.POHeader.PONum});
//x2赋值运行汇总,当分组字段改变,当前字段的序
x2:={#RTotal0};
//总分页,每页7条记录,向上取整
p0:=roundup(x1/7);
//当前组分页
p1:=roundup(x2/7);
//页面输出
'第' + totext(p1,0) +'页 / 共' + totext(p0,0) + '页'