请帮助循环问题

付谦

我想以后打印报表时，将页号打在每条记录后，每页13条记录，前13条记录每条记录后的页号字段均是1，后13条记录每条记录后的页号均是2，以此类推，为此在表中加了页号字段，用循环语句自动填写，但实现不了，特向大师请教解决问题，谢谢。
Set rst1 = Me.世代列表子窗体.Form.Recordset
     rst1.MoveFirst
    For j3 = 1 To Count()
       rst1.Edit               ' 编辑   
        For j2 = 1 To 13
          rst1.Edit
           lngN1 = 1
         rst1.MoveNext    '把数据库指针移到下一条
        Next j2
        Else
            lngN1 = lngN1 + 1
       End If
        rst1!新谱页 = lngN1
        rst1.Update
        rst1.MoveNext    '把数据库指针移到下一条
    Next j3
    rst1.MoveFirst      '把数据库指针移到第一条

t小宝

在记录后加个文本框，设置控件来源为:=page

付谦

谢二楼，设计报表是可以能解决问题的。但我想在表中添加页号字段，以便在打印树形组织结构图姓名后有页号，便于查找。请大师们帮助！

zpy2

没明白 在表中和在报表中 结果不一样吗?

roych

付谦 发表于 2015-5-15 20:07
谢二楼，设计报表是可以能解决问题的。但我想在表中添加页号字段，以便在打印树形组织结构图姓名后有页号， ...

试试用ADO在窗体数据源中处理成自定义字段（DCount函数可能无法实现），而不是在窗体中处理。

付谦

   通过学习，参考教材，循环改成如下代码，达到了目的，谢谢2，5楼帮助
c = 1
     For m = 1 To k Step 13
         For n = 1 To 13
            If n > 0 Then
            rst1.Edit   ' 编辑
            End If
            rst1!新谱页 = c
             rst1.Update
                  If n < 13 Then
                     rst1.MoveNext    '把数据库指针移到下一条
                  End If
        Next n
             rst1.MoveNext    '把数据库指针移到下一条
             c = c + 1
     Next m

todaynew

付谦 发表于 2015-5-16 14:39
通过学习，参考教材，循环改成如下代码，达到了目的，谢谢2，5楼帮助
c = 1
     For m = 1 To k Step ...

select *,int(dcount("*","阁下的数据表","id<=" [id])/13)+1 as 页号
from 阁下的数据表

zpy2

用pagesize=13 分段取出 改写页号也行吧

zpy2

付谦 发表于 2015-5-16 14:39
通过学习，参考教材，循环改成如下代码，达到了目的，谢谢2，5楼帮助
c = 1
     For m = 1 To k Step ...

这个K如不是13的整数倍，呵呵

zpy2

todaynew 发表于 2015-5-18 10:19
select *,int(dcount("*","阁下的数据表","id

简洁明了，赞一个