求助IN语句的查询问题

毒舌

Private Sub Command2_Click()
If Not IsNull(Me.名称1) Then
   StrWhere = Mid(Me.名称1, 1, Len(Me.名称1) - 1)
End If



'Debug.Print StrWhere



Me.表1查询子窗体.Form.Filter = "[名称] in (" & StrWhere & ")"
Me.表1查询子窗体.Form.FilterOn = True
End Sub




这个是按照andymark的代码修改的,可是这个代码只能能查询数据类型为"数字"的字段~但是怎么改才能可以查询数据类型为文本的文字和字母数字组合啊?

以上谢谢

coolbug

如果定义filter的值,可能需要完整的SQL语句,最好把这个加到子窗体的SQL的where条件中,另外需要在strwhere两端加上"'"& strwhere & "'",以便和string字符匹配.

浩雨

Private Sub Command2_Click()
If Not IsNull(Me.名称1) Then
   StrWhere = Mid(Me.名称1, 1, Len(Me.名称1) - 1)
End If

Debug.Print StrWhere

Me.表1查询子窗体.Form.Filter = "[名称] in ('" & StrWhere & "')"
Me.表1查询子窗体.Form.FilterOn = True
End Sub

毒舌

谢谢楼上2位的回复~

但是改成

Private Sub Command2_Click()
If Not IsNull(Me.名称1) Then
   StrWhere = Mid(Me.名称1, 1, Len(Me.名称1) - 1)
End If



Debug.Print StrWhere



Me.表1查询子窗体.Form.Filter = "[名称] in ('" & StrWhere & "')"
Me.表1查询子窗体.Form.FilterOn = True
End Sub



后就只能查询一个了~而不是多个同时查询

浩雨

供参考：

毒舌

十分感谢~



鞠躬