如何实现这样的查询?

bonne

希望查询"编号"为1,2,4,9 四条记录里"内容"为a的记录

比如说可以设定一个分号 ;   为分隔符号

在编号里输入1;2;4;9 内容里输入a点击查询后,从这四条记录中筛选出满足条件的记录

andymark

Dim StrWhere As String
StrWhere = "[编号] in (" & Me.编号 & ")"
StrWhere = StrWhere & " and [内容]='" & Me.内容 & "'"
Me.表1_子窗体.Form.Filter = StrWhere
Me.表1_子窗体.Form.FilterOn = True

wwwwa

加入分隔符号文本框，比如为文本7

TRY：

Dim StrWhere As String
DD1 = ""
DD = Split(Me.编号, Me.文本7)
For I = LBound(DD) To UBound(DD)
DD1 = DD1 & DD(I) & ","
Next
DD1 = Mid(DD1, 1, Len(DD1) - 1)
StrWhere = "[编号] in (" & DD1 & ")"
StrWhere = StrWhere & " and [内容]='" & Me.内容 & "'"
Me.表1_子窗体.Form.Filter = StrWhere
Me.表1_子窗体.Form.FilterOn = True