下面三个文本框输入筛选代码如何写成一行，根据输入内容进行筛选
Dim dt1 As WinForm.DateTimePicker
Dim dt2 As WinForm.DateTimePicker
dt1 = e.Form.Controls("StartDate")
dt2 = e.Form.Controls("EndDate")
Dim cj As WinForm.TextBox = e.Form.Controls("TextBox1")
b.Filter ="简称 Like '*" & cj.Text & "*' and [日期] >= #" & dt1.Value & "# And [日期] <= #" & dt2.Value & "#"
b.Filter ="名称 Like '*" & cj.Text & "*' and [日期] >= #" & dt1.Value & "# And [日期] <= #" & dt2.Value & "#"
b.Filter ="中文简称 Like '*" & cj.Text & "*' and [日期] >= #" & dt1.Value & "# And [日期] <= #" & dt2.Value & "#
加好友 
发短信
Post By：2015/11/20 11:50:00 [显示全部帖子]
