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

jc2016

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

ycxchen

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

学习TREE的好例子

jc2016

谢谢！一定努力！

gnoy

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

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

jc2016

{:soso_e181:}

jc2016

期待很久，终于成功，十分感谢，要不断学习！

gnoy

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

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

gnoy

按如下改造即可

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

jc2016

我用得是windows7 access2003

jc2016

测试正常