关于报表页码显示不正确的问题

温柔一刀　发表于：2013-09-17 08:30:42 　

Private Sub 页面页脚_Format(Cancel As Integer, FormatCount As Integer)
Dim Num As Integer
Num = DCount("*", "网银导出数据报表管理", " 财务凭证号" = " & Me.财务凭证号 & ")
Num = IIf(Num Mod 12 = 0, Num \ 12, Num \ 12 + 1)
Me.页码 = IIf(i Mod 12 = 0 And i <> 0, i \ 12, Num) & "/" & Num

End Sub

这是原代码，请高手帮助看看，为何我要印出来时，页码一共为4页时，显示，却是这样的 1/0 2/0 3/0 4/0，而不是正常显示：1/4 2/4 3/4 4/4

请高手帮助，一个晚上我都没想明白哪出错了。谢谢

Top

zhaoyoulong 发表于：2013-09-17 11:39:52

Num = DCount("*", "网银导出数据报表管理", " 财务凭证号" = " & Me.财务凭证号 & ")

改成:

Num = DCount("*", "网银导出数据报表管理", " 财务凭证号 =' " & Me.财务凭证号 & "'")

Top

cspa 发表于：2013-09-17 11:56:43

查查你的Num是否永远是0呢？

Num = DCount("*", "网银导出数据报表管理", " 财务凭证号" = " & Me.财务凭证号 & ")中红色部分应为字段名吧，不能用"*"

Top

2689906881 发表于：2013-09-17 11:57:20

解决自由表字段启用文本的问题,赞一个

Top

2689906881 发表于：2013-09-17 12:02:08

cspa　(等级:实习版主

你解决了部分页码分页出错的问题,但是还有部分页码出错,请帮助!

最终修改,是否哪还有出错?

Private Sub 页面页脚_Format(Cancel As Integer, FormatCount As Integer)

Dim Num As Integer
Num = DCount("财务凭证号", "网银导出数据报表管理", "财务凭证号 ='" & Me.财务凭证号 & "'")
Num = IIf(Num Mod 12 = 0, Num \ 12, Num \ 12 + 1)
Me.TO = IIf(i Mod 12 = 0 And i <> 0, i \ 12, Num) & "/" & Num
End Sub

Top

zhaoyoulong 发表于：2013-09-17 14:52:47

报什么错？请说出来

Top

2689906881 发表于：2013-09-17 16:43:30

运行没有出错,

打印出来时,页码第1页没有显示

而下个分组的凭证号却变成1/1 1/5 2/5 3/5 4/5 ?????

这是什么原因?

每页为15行

这是打印时的:

Dim Num As Integer
Num = DCount("财务凭证号", "网银导出数据报表管理", "财务凭证号 ='" & Me.财务凭证号 & "'")
Num = IIf(Num Mod 15 = 0, Num \ 15, Num \ 15 + 1)
Me.TO = IIf(i Mod 15 = 0 And i <> 0, i \ 15, Num) & "/" & Num

Top

2689906881 发表于：2013-09-18 10:34:42

补充上面问题：

字段中文字的内容不是固定的，

可能是24个字符，也可能是4个字符，要看具体客户名称字符数，请在帮助处理问题时，也要考虑到字段字符多与少的问题？

字符多，行数必然便少，字符少，行数又相应增加了。这种随机相应的判断也要有，请高手！

Top

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

Access交流中心

关于报表页码显示不正确的问题