如何按要求分页？

付谦

每页不能超过26行，也不能转下页行，不足26行的不补行，用代码如何实现，具体见附件。

付谦

已解决。改成这样
   Dim rs2 As New ADODB.Recordset
          Dim 总页码, 本页已用行数, 页, k As Long
          Dim ssql2 As String
          Dim ii As Long
          CurrentDb.Execute "UPDATE 表  SET 页 =0"
           ssql2 = "select 行,页 from 表 ORDER BY 代码 "
          rs2.Open ssql2, CurrentProject.Connection, adOpenKeyset, adLockOptimistic
          rs2.MoveFirst
          总页码 = 1
          本页已用行数 = 0
    For ii = 1 To CLng(rs2.RecordCount)
           If rs2!行 = 1 Then
                k = 2
           Else
                k = rs2!行
           End If
               本页已用行数 = 本页已用行数 + k
               
          If 26 - 本页已用行数 >= 0 Then
               总页码 = 总页码
         
          ElseIf 26 - 本页已用行数 < rs2!行 Then
              本页已用行数 = 0
              总页码 = 总页码 + 1
              本页已用行数 = rs2!行
          End If
   
   
            总页码 = 总页码
           
             rs2!页 = 总页码
           rs2.Update
           rs2.MoveNext
    Next ii
          rs2.Close
          Set rs2 = Nothing