[求助]窗体查询de 问题？？谢谢//

onlyfish

以下是子窗体应用窗体查询，那改什么字符串让主窗体应用窗体查询啊？？谢了??/

Private Sub subquery_Click()

   On Error GoTo Err_subquery_Click

    Dim strWhere As String

   

    strWhere = ""

   

   

    If Not IsNull(Me.BLNO) Then

        

        strWhere = strWhere & "([BLNO] like '*" & Me.BLNO & "*') AND "

    End If

   

      

     If Not IsNull(Me.VENDOR) Then

        

        strWhere = strWhere & "([VENDOR] like '*" & Me.VENDOR & "*') AND "

    End If

        

      

   

    If Len(strWhere) > 0 Then

        

        strWhere = Left(strWhere, Len(strWhere) - 5)

    End If

   

   

    Debug.Print strWhere

   

   

   

    Me.EXTRA_CHARGE_LIST_subform.Form.Filter = strWhere

    Me.EXTRA_CHARGE_LIST_subform.Form.FilterOn = True

   

   

   

Exit_subquery_Click:

    Exit Sub

Err_subquery_Click:

    MsgBox Err.Description

    Resume Exit_subquery_Click

   

End Sub