Office中国论坛/Access中国论坛

标题: [求助]查询出现了问题，输入条件后没反应 [打印本页]

作者: diwf 时间: 2009-6-2 21:07
标题: [求助]查询出现了问题，输入条件后没反应
本帖最后由 diwf 于 2009-6-2 21:23 编辑

我是新学者，刚刚模仿了一个查询
代码如下：
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里输入时，子窗体还是原先的数据，就像刷新了一遍，但还是没起作用，
到底是什么地方出了问题呢？是不是属性设置里有什么问题？

作者: chuang0321 时间: 2009-6-2 21:25
利用msgbox 显示一下 strcx的具体赋值变成了什么样？然后再msgbox看看"strcx & true"是不是你想要的结果。如果还有问题，看看事件是不是选错了。

作者: jackysu78 时间: 2009-6-3 09:50
建议初学者用查询的设计视图完成，可能效果会好些，设计成功后再看看代码是怎样的。

作者: taotao123 时间: 2009-6-3 15:14
是的，项

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)