[求助]查询出现了问题，输入条件后没反应

diwf

我是新学者，刚刚模仿了一个查询
代码如下：
Private Sub Text177_KeyUp(KeyCode As Integer, Shift As Integer)
    Dim strCx As String
    If Nz(Combo184, 0) = 0 Then Me.城市_子窗体.Form.FilterOn = False: Exit Sub
    If KeyCode = vbKeySpace Then Exit Sub     '分隔符不为空格时,可省去
    For i = 0 To UBound(Split(Text177.Text, " "))
        strCx = strCx & "InStr(" & STemp & ", '" & Split(Text177.Text, " ")(i) & "') > 0 Or "
    Next i
    Me.城市_子窗体.Form.Filter = strCx & True
    Me.城市_子窗体.Form.FilterOn = True
End Sub
在组合框Combo184选择条件后，然后在文本框Text177里输入时，子窗体还是原先的数据，就像刷新了一遍，但还是没起作用，
到底是什么地方出了问题呢？是不是 属性 设置里有什么问题？

taotao123

是的，项

jackysu78

建议初学者用查询的设计视图完成，可能效果会好些，设计成功后再看看代码是怎样的。

chuang0321

利用msgbox 显示一下 strcx的具体赋值变成了什么样？ 然后再msgbox看看"strcx & true"是不是你想要的结果。如果还有问题，看看事件是不是选错了。