Office中国论坛/Access中国论坛

标题: 如何实现连续页 [打印本页]

作者: 付谦 时间: 2021-8-31 15:32
标题: 如何实现连续页
本帖最后由付谦于 2021-9-1 23:00 编辑

原是按每页按五世分页的，现要按世代分页，但页码不能编号同，见下：
表一
世代　原页　　　印页　　效果页　
１　　１－5　　　１　　　　　１
２　　１－５　　　1　　　　　2
２　　６－10　　　2　　　　　3
３　　１－５　　　１　　　　４
４　　１－５　　　１　　　　５
４　　６－10　　　２　　　　６
４　　１１－15　　３　　　　７　
．．．．．．．

作者: 付谦 时间: 2021-8-31 15:40
本帖最后由付谦于 2021-9-1 20:42 编辑

上贴有误，应是""原是每页按五世分页的，现要按世代分页，但页码不能连续编号，见下""

作者: 付谦 时间: 2021-9-1 20:44
请高手帮助，附件见上

作者: 付谦 时间: 2021-9-4 23:03
唉！无助了几天，琢磨几天，终于解决，附上供需者参考
      Dim rs3 As New ADODB.Recordset
      Dim ssql3 As String
      Dim jj, hh, kk, pp, nn As Integer
         ssql3 = "select 世代,原页,印页 from 表 ORDER BY 世代,原页 "
      rs3.Open ssql3, CurrentProject.Connection, adOpenKeyset, adLockOptimistic
      rs3.MoveFirst
            pp = 0
   For I = 1 To CLng(rs3.RecordCount)
         jj = rs3!世代
         hh = rs3!原页
         kk = jj + Int((rs3!原页 - 1) / 5)    '原页5页变一页
      If hh <= 5 Then
            rs3!印页 = kk + nn
      Else
            nn = DLookup("印页-世代", "表", "世代=" & jj)
      End If
            rs3!印页 = kk + nn
            nn = nn + kk - jj
            rs3.Update
         '' jj = rs3!世代 + 1
            rs3.MoveNext
   Next I
         rs3.Close
   　 Set rs3 = Nothing

作者: 灰太郎 时间: 2021-9-8 07:57
收到

作者: 灰太郎 时间: 2021-9-9 10:14
ccccc

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