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

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

gnoy

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

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

gnoy

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

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