Office中国论坛/Access中国论坛

标题: 报表打印未能完全打印通过TreeView筛选的结果 [打印本页]

作者: jc2016 时间: 2013-9-1 08:37
标题: 报表打印未能完全打印通过TreeView筛选的结果

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

作者: jc2016 时间: 2013-9-1 10:42
最近的提问，总是没人回答，比较郁闷。

作者: jc2016 时间: 2013-9-1 13:04
问题很怪吗？如果不能实现，请大侠们告知我，我只能另想办法了，谢谢！

作者: jc2016 时间: 2013-9-1 19:36
顶！！

作者: 轻风 时间: 2013-9-2 10:29
示例运行时总是提示错误，没法测试。你的报表与窗体记录源的筛选条件是否设置一致？如果一致应该不会有问题。

作者: jc2016 时间: 2013-9-2 13:49
我测试下来是正常的，是不是通过treeview进行筛选的数据和记录源无关？新手不懂！谢谢！C:\Users\jackycao\Desktop\测试.bmp

作者: jc2016 时间: 2013-9-2 13:53
测试正常[attach]52393[/attach]

作者: jc2016 时间: 2013-9-2 13:54
我用得是windows7 access2003

作者: gnoy 时间: 2013-9-2 14:17
本帖最后由 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
还可以在报表中设置筛选方法如下

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

作者: jc2016 时间: 2013-9-2 14:46
期待很久，终于成功，十分感谢，要不断学习！

作者: jc2016 时间: 2013-9-2 14:46
{:soso_e181:}

作者: gnoy 时间: 2013-9-2 14:52

jc2016 发表于 2013-9-2 14:46
期待很久，终于成功，十分感谢，要不断学习！

做的东西干净利索，应该属于可塑之才，加油{:soso_e113:}

作者: jc2016 时间: 2013-9-2 15:09
谢谢！一定努力！

作者: ycxchen 时间: 2013-9-7 10:20

jc2016 发表于 2013-9-2 15:09
谢谢！一定努力！

学习TREE的好例子

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