设为首页收藏本站Access中国

Office中国论坛/Access中国论坛

 找回密码
 注册

QQ登录

只需一步,快速开始

返回列表 发新帖
查看: 1069|回复: 1

[报表] 如何按要求分页?

[复制链接]
发表于 2022-1-18 21:57:44 | 显示全部楼层 |阅读模式
本帖最后由 付谦 于 2022-1-18 21:59 编辑

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

本帖子中包含更多资源

您需要 登录 才可以下载或查看,没有帐号?注册

x
 楼主| 发表于 2022-1-19 09:40:13 | 显示全部楼层
已解决。改成这样
   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
您需要登录后才可以回帖 登录 | 注册

本版积分规则

QQ|站长邮箱|小黑屋|手机版|Office中国/Access中国 ( 粤ICP备10043721号-1 )  

GMT+8, 2024-3-29 21:50 , Processed in 0.094257 second(s), 27 queries .

Powered by Discuz! X3.3

© 2001-2017 Comsenz Inc.

快速回复 返回顶部 返回列表