关于报表筛选

cangqiong

跟据查询来做报表，想让组合框选哪个就预览哪个组，要分格线（没有分格线显的有点混）.并且能打印报表出来。  请高手帮忙

Henry D. Sy

在窗体上

Private Sub Command3_Click()
    If IsNull(Me.Combo0) Then Exit Sub
    DoCmd.OpenReport "报表", acViewPreview, , , , Me.Combo0
End Sub

在报表上

Private Sub Report_Open(Cancel As Integer)
    Dim strSQL As String
    strSQL = "select * from [0000000000] where 组='" & Me.OpenArgs & "'"
    Me.RecordSource = strSQL
End Sub