查询不能实现？

JimmyOu3259

我的查询为什么不能实现啊？高手帮忙看看

kangking

将你的查询单击事件修改如下:

Private Sub 查询_Click()
Dim strWhere As String

If Not IsNull(Me.Text31) Then
    strWhere = "工号='" & Me.Text31 & "' and "
End If

If Not IsNull(Me.Text33) Then
    strWhere = strWhere & " 机件名称='" & Me.Text33 & "' and "
End If

If Len(strWhere) <> 0 Then
    strWhere = Left(strWhere, Len(strWhere) - 5)
End If

' 上面的代码写的是过滤条件,下面的两句是关键.
Me.机件结构表查询_子窗体.Form.Filter = strWhere
Me.机件结构表查询_子窗体.Form.FilterOn = True




Me.机件结构表查询_子窗体.Requery
End Sub

garyshang

好东西 谢谢！