做了，可以筛选但是效果不理想
此主题相关图片如下：2.png
筛选结果果
此主题相关图片如下：3.png
可是我想要的是这样的
此主题相关图片如下：4.png
代码如下：
If e.keycode = 13 Then
If e.form.controls("TextBox3").text <> "" Then '文本框内容查询,表回显筛选结果
Tables("kmbn_cssj").Filter="第七列='" & e.form.controls("TextBox3").text & "'"
End If
Dim txt4 = e.form.controls("Textbox4") '把文本框3的内容,读到文本框4内
txt4.text = (txt4.text & "," & e.Sender.Text).Trim(",")
e.Cancel = True
e.Form.Controls("TextBox3").Text = Nothing '清除文本框内容
Dim TextBox3 As WinForm.TextBox = e.Form.Controls("TextBox3") '文本框获取焦点
TextBox3.Select()
TextBox3.SelectionStart = TextBox3.Text.Length
End If
加好友 
发短信
Post By：2017/7/29 13:59:00 [显示全部帖子]
