Office中国论坛/Access中国论坛

标题: 如何按要求分页？ [打印本页]

作者: 付谦 时间: 2022-1-18 21:57
标题: 如何按要求分页？
本帖最后由付谦于 2022-1-18 21:59 编辑

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

作者: 付谦 时间: 2022-1-19 09:40
已解决。改成这样
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

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)