报表打印未能完全打印通过TreeView筛选的结果

jc2016 · 发表于 2013-9-1 08:37:11

通过TreeView对子窗体进行筛选，建立报表，并对报表记录源中的“学生登记号”设置条件——[Forms]![homepage]![sbinformation]![学生登记号]，但是报表预览和打印只显示光标选中的那条记录。我想要实现的是：通过TreeView对子窗体进行动态筛选，并把其结果通过报表进行预览和打印。请各位老师们帮忙解决，急用，谢谢！

jc2016 · 发表于 2013-9-1 10:42:18

最近的提问，总是没人回答，比较郁闷。

jc2016 · 发表于 2013-9-1 13:04:36

问题很怪吗？如果不能实现，请大侠们告知我，我只能另想办法了，谢谢！

jc2016 · 发表于 2013-9-1 19:36:15

顶！！

轻风 · 发表于 2013-9-2 10:29:09

示例运行时总是提示错误，没法测试。你的报表与窗体记录源的筛选条件是否设置一致？如果一致应该不会有问题。

jc2016 · 发表于 2013-9-2 13:49:06

我测试下来是正常的，是不是通过treeview进行筛选的数据和记录源无关？新手不懂！谢谢！C:\Users\jackycao\Desktop\测试.bmp

jc2016 · 发表于 2013-9-2 13:53:04

测试正常

jc2016 · 发表于 2013-9-2 13:54:15

我用得是windows7 access2003

gnoy · 发表于 2013-9-2 14:17:04

本帖最后由 gnoy 于 2013-9-2 14:29 编辑

按如下改造即可

1.删除报表数据源where子句

2.打开报表时间代码
Private Sub Command184_Click()
On Error GoTo Err_Command184_Click

Dim stDocName As String

stDocName = ChrW(23398) & ChrW(29983) & ChrW(23398) & ChrW(31821) & ChrW(25253) & ChrW(-30616)
DoCmd.OpenReport stDocName, acPreview, , [Forms]![homepage]![sbinformation].[Form].[Filter]

Exit_Command184_Click:
Exit Sub

Err_Command184_Click:
MsgBox Err.Description
Resume Exit_Command184_Click

End Sub

gnoy · 发表于 2013-9-2 14:26:16

还可以在报表中设置筛选方法如下

1.取消报表数据源where子句
2.在报表事件中设置
Private Sub Report_Open(Cancel As Integer)
Me.Filter = [Forms]![homepage]![sbinformation].[Form].[Filter]
Me.FilterOn = True
End Sub

帐号		自动登录	找回密码
密码			注册

群介绍
Access培训群 (792054000)
Access免费培训2群 (163530137)
Access免费培训群 (833510950)
Access免费培训群2 (792054000)
Access交流总群 (5004108)

主题相关群

地区相关群[您还没设置居住地]

[报表] 报表打印未能完全打印通过TreeView筛选的结果

本帖子中包含更多资源

本帖子中包含更多资源

群介绍
主题无相 (随机显示版	同地区群块其他地区)