以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  [求助]有点甜老师  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=129134)
--  作者：tygzjsl
--  发布时间：2018/12/22 10:31:00
--  [求助]有点甜老师
有点甜老师，又要麻烦你，我想建立一个textbox控件，查询符合两列的内容，一列的列名是yxdc，另一列是xkjs，如果是同时符合两列内容，代码是怎样的，如果是只要符合若一列内容又是怎么写代码。
这是你以前给我的代码
With e.Form.Controls("textbox8")
    If .Value IsNot Nothing Then
        Filter &= " and yxdc like \'%" & .Value & "%\'"
    End If
End With

With e.Form.Controls("textbox6")
    If .Value IsNot Nothing Then
        Dim str As String = ""
        For Each s As String In .value.split(" ")
            str &= "yxdc like \'%" & s & "%\' or "
        Next
        Filter &= " and (" & str.substring(0, str.length-4) & ")"
    End If
End With

在这基础上，要完成以上两个要求的的查询，代码怎么改啊，多帮忙啊辛苦啦谢谢！
[此贴子已经被作者于2018/12/22 10:50:12编辑过]
--  作者：有点蓝
--  发布时间：2018/12/22 11:09:00
--  
With e.Form.Controls("textbox8")
    If .Value IsNot Nothing Then
        Filter &= " and yxdc like \'%" & .Value & "%\' and xkjs like \'%" & .Value & "%\'" \'同时符合
‘Filter &= " and (yxdc like \'%" & .Value & "%\' or xkjs like \'%" & .Value & "%\')" \'只要符合一项
    End If
End With
--  作者：tygzjsl
--  发布时间：2018/12/22 11:58:00
--  
太感谢老师啦！我建立了两个窗口，想通过点击按钮相互切换，是一个代码么Forms("窗口1").show，中午休息，再次感谢！
--  作者：有点蓝
--  发布时间：2018/12/22 11:59:00
--  
试试就知道了
--  作者：tygzjsl
--  发布时间：2018/12/22 13:55:00
--  
With e.Form.Controls("textbox8")
    If .Value IsNot Nothing Then
        Filter &= " and yxdc like \'%" & .Value & "%\' and xkjs like \'%" & .Value & "%\'" \'同时符合
‘Filter &= " and (yxdc like \'%" & .Value & "%\' or xkjs like \'%" & .Value & "%\')" \'只要符合一项
    End If
End With
具体我在textbox里输入查询字符时怎么输入，是这样么，yxdc我输入重点，然后xkjs输入双一流，重点双一流，中间有空格么，中间有没有空格我都试了，怎么不能查询啊，
谢谢老师解答
然后是两个窗口切换Forms("窗口1").show，没有任何反应啊，应该怎么做
--  作者：tygzjsl
--  发布时间：2018/12/22 16:18:00
--  
With e.Form.Controls("textbox8")
    If .Value IsNot Nothing Then
        Filter &= " and yxdc like \'%" & .Value & "%\' and xkjs like \'%" & .Value & "%\'" \'同时符合
‘Filter &= " and (yxdc like \'%" & .Value & "%\' or xkjs like \'%" & .Value & "%\')" \'只要符合一项
    End If
End With
具体我在textbox里输入查询字符时怎么输入，是这样么，yxdc我输入重点，然后xkjs输入双一流，重点双一流，中间有空格么，中间有没有空格我都试了，怎么不能查询啊，
谢谢老师解答
--  作者：有点甜
--  发布时间：2018/12/23 11:38:00
--  
具体实例发上来测试。