報(bào)表打印未能完全打印通過(guò)TreeView篩選的結(jié)果

jc2016

通過(guò)TreeView對(duì)子窗體進(jìn)行篩選，建立報(bào)表，并對(duì)報(bào)表記錄源中的“學(xué)生登記號(hào)”設(shè)置條件——[Forms]![homepage]![sbinformation]![學(xué)生登記號(hào)]，但是報(bào)表預(yù)覽和打印只顯示光標(biāo)選中的那條記錄。我想要實(shí)現(xiàn)的是：通過(guò)TreeView對(duì)子窗體進(jìn)行動(dòng)態(tài)篩選，并把其結(jié)果通過(guò)報(bào)表進(jìn)行預(yù)覽和打印。請(qǐng)各位老師們幫忙解決，急用，謝謝！

jc2016

最近的提問(wèn)，總是沒(méi)人回答，比較郁悶。

jc2016

問(wèn)題很怪嗎？如果不能實(shí)現(xiàn)，請(qǐng)大俠們告知我，我只能另想辦法了，謝謝！

jc2016

頂��！

輕風(fēng)

示例運(yùn)行時(shí)總是提示錯(cuò)誤，沒(méi)法測(cè)試。你的報(bào)表與窗體記錄源的篩選條件是否設(shè)置一致？如果一致應(yīng)該不會(huì)有問(wèn)題。

jc2016

我測(cè)試下來(lái)是正常的，是不是通過(guò)treeview進(jìn)行篩選的數(shù)據(jù)和記錄源無(wú)關(guān)？新手不懂！謝謝！C:\Users\jackycao\Desktop\測(cè)試.bmp

jc2016

測(cè)試正常

jc2016

我用得是windows7 access2003

gnoy

按如下改造即可

1.刪除報(bào)表數(shù)據(jù)源where子句

2.打開(kāi)報(bào)表時(shí)間代碼
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

還可以在報(bào)表中設(shè)置篩選方法如下

1.取消報(bào)表數(shù)據(jù)源where子句
2.在報(bào)表事件中設(shè)置
Private Sub Report_Open(Cancel As Integer)
Me.Filter = [Forms]![homepage]![sbinformation].[Form].[Filter]
Me.FilterOn = True
End Sub