以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  [求助]关于筛选显示的问题  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=105150)

--  作者:Kloveying
--  发布时间:2017/8/12 16:01:00
--  [求助]关于筛选显示的问题
我想做一个查询的窗口。从表A查询出来的内容显示在表B里面,表A显示的内容不变,怎么做啊!
--  作者:Kloveying
--  发布时间:2017/8/12 16:04:00
--  
Dim txt As String = e.Form.Controls("TextBox1").Text
Dim tbl As Table = Tables("表A")
Dim tbb As Table = Tables("表B")
If txt = "" Then
    tbl.Filter = ""
Else
    txt = "\'%" & txt & "%\'"
    tbb.Filter = "公司名称 Like " & txt & " Or 公司地址 Like " & txt 
End If
这段代码有问题吗?

--  作者:Kloveying
--  发布时间:2017/8/12 16:05:00
--  
那个大神给看看
--  作者:有点蓝
--  发布时间:2017/8/12 16:10:00
--  
参考:http://www.foxtable.com/webhelp/scr/0680.htm
--  作者:Kloveying
--  发布时间:2017/8/12 16:13:00
--  
谢谢啊