透视图

luoqin　发表于：2011-01-07 13:12:36 　

点击下载此附件请高手帮我看看，我想实现这样一个功能，就是在打开窗体1时，透视图中不显示那条折线，当在上面输入条件时再出现对应的透视图，就是在加载窗体时透视图为空，这个该怎么实现，谢谢

煮江品茶发表于：2011-01-07 13:53:13

Private Sub Command2_Click()
    Dim strWhere As String
    If Not IsNull(Me.Text0) Or Me.Text0 <> "" Then
        strWhere = "[c] Like '*" & Me.Text0 & "*'"
    Else
        strWhere = "False"
    End If
    With Me.[1].Form
       .Filter = strWhere
       .FilterOn = True
    End With
End Sub

Private Sub Form_Load()
Call Command2_Click
End Sub

Top

总记录：1篇页次：1/1 9 1 :

Access交流中心

透视图