同样是关于报表页码的新问题

温柔一刀　发表于：2013-09-27 14:39:51 　

代码：
Dim Num As Integer
Num = DCount("财务凭证号", "网银导出数据报表管理", "财务凭证号 ='" & Me.财务凭证号 & "'")
Num = IIf(Num Mod 10 = 0, Num \ 1, Num \ 10 + 1)

Me.TO = Int(Me.i \ 10) + 1 & "/" & Num

经过几天的数据测试，又发现了新问题：

问题：

如果刚好是10行、20行、30行，这样的整10的倍数，那几张的页码就会出现1/10 2/10

或者是：1/20 2/20 这样的错误，其它的页码只要不是10的倍数全部正常，再请高手相助！

沧海桑田发表于：2013-09-27 14:52:46

把 Num = IIf(Num Mod 10 = 0, Num \ 1, Num \ 10 + 1)

改成 Num = Num \ 10 + 1

2689906881 发表于：2013-09-27 14:57:59

太历害了

总记录：2篇页次：1/1 9 1 :

Access交流中心