求助

高处不胜寒

谢谢

高处不胜寒

谢谢站长，以后一定注意。感谢您在百忙之中给予指点。

tmtony

建议：以后问问题，最好能够有详细说明，说明问题所在，最好贴上部分代码，这样大家更容易帮上忙，因为打开程序再去找的不是十分方便。改正代码：Dim strWhere As String

   

    strWhere = "true "

   

   

    If Not IsNull(Me.txt1) Then

        

        strWhere = strWhere & "and ([NO] like '" & Me.txt1 & "*') "

    End If

   

   

  If Not IsNull(Me.txt2) Then

      

        strWhere = strWhere & " and ([name] like '*" & Me.txt2 & "*')"

    End If



    Me.表1_子窗体.Form.Filter = strWhere

    Me.表1_子窗体.Form.FilterOn = True

    Me.表1_子窗体.Requery

    Me.Form.Requery