以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  关于根据条件查询的问题  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=106249)
--  作者：chaogege
--  发布时间：2017/9/5 14:21:00
--  关于根据条件查询的问题
点击查询按钮后，怎么查询出包含某个字符的所有数据，求代码，谢谢了。。
--  作者：有点甜
--  发布时间：2017/9/5 15:22:00
--  

Dim s As String = "123"

Tables("表A").filter = "第一列 Like \'%" & s & "%\'"
--  作者：chaogege
--  发布时间：2017/9/5 17:21:00
--  
已完美解决问题，谢谢
--  作者：tom123456
--  发布时间：2017/9/19 14:53:00
--  
同问，比如查询“长城”，查询结果是“万里长城”，当然我数据里有“长城”“万里长城”，但我想查询“长城”就出来“长城”，输入“万里长城”就出来“万里长城”啊，求代码。
我的代码是这样的：
Dim tbx As WinForm.TextBox = e.Form.Controls("txtfind")
Dim chk As WinForm.CheckBox = e.Form.Controls("模糊查找")
Dim str As String = tbx.value
Dim dr As DataRow 
If chk.checked Then
  dr = DataTables("表A").find("品种 like \'%" & str & "%\'")
  dr = DataTables("表A").find("别名 like \'%" & str & "%\'")
Else
  dr = DataTables("表A").find("品种 = \'" & str & "\'")
  dr = DataTables("表A").find("品种 like \'%" & str & "%\'")
End If
If dr IsNot Nothing Then
   Dim idx As Integer = Tables("表A").findrow(dr)
   If idx >= 0 Then
      Tables("表A").position = idx
   End If
End If

我是菜鸟，求指导！非常感谢
--  作者：有点甜
--  发布时间：2017/9/19 16:06:00
--  
Dim tbx As WinForm.TextBox = e.Form.Controls("txtfind")
Dim chk As WinForm.CheckBox = e.Form.Controls("模糊查找")
Dim str As String = tbx.value
Dim dr As DataRow
If chk.checked Then
    dr = DataTables("表A").find("品种 like \'%" & str & "%\' or 别名 like \'%" & str & "%\'")
Else
    dr = DataTables("表A").find("品种 = \'" & str & "\' or 别名 = \'" & str & "\'")
End If
If dr IsNot Nothing Then
    Dim idx As Integer = Tables("表A").findrow(dr)
    If idx >= 0 Then
        Tables("表A").position = idx
    End If
End If