数据导入后是完整的

此主题相关图片如下：1.jpg

但是对运单号做模糊查找“PST ”后，查不到数据

此主题相关图片如下：2.jpg

重新查找数据后

发现原表中带PST的记录都没有了

此主题相关图片如下：3.jpg

查询代码：

Dim ksrq As WinForm.DateTimePicker = e.Form.Controls("开始日期")
Dim jzrq As WinForm.DateTimePicker = e.Form.Controls("截止日期")
Dim sf As WinForm.TextBox = e.Form.Controls("始发")
Dim md  As WinForm.TextBox = e.Form.Controls("目的")
Dim hbh As WinForm.TextBox = e.Form.Controls("航班号")
Dim ydh As WinForm.TextBox = e.Form.Controls("运单号")
Dim pm As WinForm.TextBox = e.Form.Controls("品名")
Dim tyr As WinForm.TextBox = e.Form.Controls("托运人")
Dim dlr As WinForm.ComboBox = e.Form.Controls("代理人")
Tables("销售数据表").Filter="始发 Like \'*" & sf.Text & "*\' and 目的 Like \'*" & md.Text & "*\' and 出港航班号 Like \'*" & hbh.Text & "*\' And 运单号 Like \'*" & ydh.Text & "*\' and 品名 Like \'*" & pm.Text & "*\' and 托运人 Like \'*" & tyr.Text & "*\' and 代理人简称 Like \'*" & dlr.Text & "*\' and 航班出港日期 >= \'"& ksrq.Value & "\' and 航班出港日期 <= \'"& jzrq.Value & "\' "

求大神们指点

运单号的excel格式设置的是常规，表格字段设置是字符

\'先合成条件，看看条件是什么。

dim QueryStr as string = "始发 Like \'*" & sf.Text & "*\' and 目的 Like \'*" & md.Text & "*\' and 出港航班号 Like \'*" & hbh.Text & "*\' And 运单号 Like \'*" & ydh.Text & "*\' and 品名 Like \'*" & pm.Text & "*\' and 托运人 Like \'*" & tyr.Text & "*\' and 代理人简称 Like \'*" & dlr.Text & "*\' and 航班出港日期 >= \'"& ksrq.Value & "\' and 航班出港日期 <= \'"& jzrq.Value & "\' "

output.show(QueryStr )

\'Tables("销售数据表").Filter = QueryStr

始发 Like \'**\' and 目的 Like \'**\' and 出港航班号 Like \'**\' And 运单号 Like \'*PST77869094*\' and 品名 Like \'**\' and 托运人 Like \'**\' and 代理人简称 Like \'**\' and 航班出港日期 >= \'2013-3-1\' and 航班出港日期 <= \'2013-3-22\'

查询没结果

始发 Like \'**\' and 目的 Like \'**\' and 出港航班号 Like \'**\' And 运单号 Like \'*78438412286P*\' and 品名 Like \'**\' and 托运人 Like \'**\' and 代理人简称 Like \'**\' and 航班出港日期 >= \'2013-3-1\' and 航班出港日期 <= \'2013-3-23\'

查询就有结果

查询条件应该没问题啊

楼主查下帮助文档，设计查询窗口，这一章节。你的条件代码合成有问题。单纯查找筛选pst是没问题的

好的，谢谢

原因似乎是因为“托运人”一列存在空格，但是还不知道怎么解决问题

版主哥，没明白，用原来的代码能查得出？