主题：还是filter

还是那三个text，一个完全匹配，两个模糊匹配，从两个表中查，帮忙再看看吧。
两个表筛出来，结果总是一行。每个text筛出至少一条数据的话，按说应该至少三行才对。但结果总是后面的覆盖前面的，最后显示一条数据。


Dim Filter1 As String
Dim Filter2 As String
Dim Filter3 As String
Dim Filter As String
Dim txt1 As String = e.Form.Controls("TextBox7").Text
Dim txt2 As String = e.Form.Controls("TextBox8").Text
Dim txt3 As String = e.Form.Controls("TextBox9").Text



txt1 = "'" & txt1 & "'"
Filter1 = "编号 = " & txt1

txt2 = "'%" & txt2 & "%'"
txt3 = "'%" & txt3 & "%'"
Filter2 = "公司名称 Like " & txt2
Filter3 = "产品名称 Like " & txt3

If txt1 <> "''" And txt2 <>"'%%'" And txt3 <>"'%%'" Then
   filter = filter1 & " or " & filter2 & " or " & filter3
 
End If

If txt1 = "''" And txt2 <>"'%%'" And txt3 <>"'%%'" Then
   filter = filter2 & " or " & filter3

End If

If txt1 = "''" And txt2 ="'%%'" And txt3 <>"'%%'" Then
   filter = filter3

End If

If txt1 <> "''" And txt2 ="'%%'" And txt3 <>"'%%'" Then
   filter = filter1 & " or " & filter3

End If

If txt1 <> "''" And txt2 ="'%%'" And txt3 ="'%%'" Then
   filter = filter1

End If

If txt1 = "''" And txt2 <>"'%%'" And txt3 ="'%%'" Then
   filter = filter2

End If

If txt1 = "''" And txt2 ="'%%'" And txt3 ="'%%'" Then
   messagebox.show("请填写要搜索的内容","提示")

End If

If txt1 <> "''" And txt2 <>"'%%'" And txt3 ="'%%'" Then
   filter = filter1 & " or " & filter2

End If

Dim dr1 As DataRow
With DataTables("ChemSign1")    
    
         .LoadFilter = Filter
    .Load
    dr1 = .Find(Filter)

End With

Dim dr2 As DataRow
With DataTables("ChemSign2")    
    
         .LoadFilter = Filter
    .Load
    dr2 = .Find(Filter)

End With

 我要被这个filter折磨死了

Dim dr1 As DataRow
With DataTables("ChemSign1")    
    
         .LoadFilter = Filter

 谢谢，增加那个top的一行，内容第一次搜的挺好，多次运行后面就不变化了，结果就不对了。
之前我那代码换了台电脑，运行却能出正确结果。有些郁闷。到底是为啥？

 刚检查运行，又不行了。不知道代码到底哪里有问题。

弹出你的FIlter看看 值是什么

 假如说前两个text有文字，点查找按钮，filter是
编号 = '1203' or 公司名称 Like '%公司%'

条件没错啊.

 把昨天您回复的那个按钮的代码直接复制过来，对应改完，前面那个页面一点问题没有，这个页面每次就只查出一行数据。感觉是只查出text2的，好像后面的把前面的覆盖了。

根据你7楼的条件,没有错.除非没有符合条件的数据.