如何将报表页数和页码写入相应的记录？(附件已上传)

cyber-bobo

问题就是有一控件类似备注字段，内容多少不能确定且控件大小一定要设为可以扩大，所以才会出现以上问题。敬请各位帮帮手！

liwen

原帖由 cuxun 于 2007-12-5 13:38 发表
Private Sub 主体_Format(Cancel As Integer, FormatCount As Integer)

  CurrentDb.Execute "UPDATE 订单 SET 订单.printID = '" & printID & "' WHERE 订单ID='" & 订单ID & "';"

End Sub

这个执行是正确的，不会出现你所说的情况，另按照你的示例，并不涉及可以扩大的备注字段。

liwen

原帖由 cyber-bobo 于 2007-12-5 15:17 发表
运行结果bug：如果打开报表只浏览第一页，那么第一页记录的printID 为2－1,而第二页记录的printID却变成了0－2,而不是2－2,
如果每一页都浏览过就会正常更新记录。
因为我想通过代码打开报表后马上又关闭报表，目的 ...

没注意，还真是这样的呢！原来Format时，[pages]开始值为0，只当初始Format会完毕后，[pages]才返回总页数的值，然后返回重新格式第一页，接着就停止了格式化。后面的页也是打开时主体才重新格式化。

cyber-bobo

或者换一个问法：如何才能使报表打开时显示所有的页？

cyber-bobo

老大，说了半天你还是不明白，就是因为控件为可以扩大且每页的记录数不确定才会这样的问题嘛！

cyber-bobo

请教cuxun：
CurrentDb.Execute "UPDATE 订单 SET 订单.printID = '" & printID & "' WHERE 订单ID='" & 订单ID & "';"
如果订单ID是一个数字型字段，上面的语句应作如何修改？

macky591

学习中dddddddddddddddddddddddddddd