以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  跨表查查询  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=130274)
--  作者：qinlao666
--  发布时间：2019/1/17 14:13:00
--  跨表查查询
表A ：供应商编码、
表B : 供应商编码、供应商名称
窗口 有个textBOX按钮，窗口并绑定表A

想在textbox内输入供应商名称，表A就能查询到对应的编码的数据
请老师提供代码，谢谢
--  作者：有点甜
--  发布时间：2019/1/17 15:07:00
--  

textbox控件不需要绑定表A的表列。

 

textbox的textchanged事件，写代码处理，如

 

Dim fdr As DataRow = DataTables("表B").compute("供应商名称 = \'" & e.sender.text & "\'")

If fdr IsNot Nothing Then

    Tables("表A").current("供应商编号") = fdr("供应商编号")

Else

    Tables("表A").current("供应商编号") = Nothing

End If
--  作者：qinlao666
--  发布时间：2019/1/17 16:14:00
--  
这段命令是赋值，而不是查找命令。
--  作者：qinlao666
--  发布时间：2019/1/17 16:15:00
--  
我要刷选出所有满足条件的数据，麻烦老师帮忙改一下
--  作者：有点甜
--  发布时间：2019/1/17 16:16:00
--  
以下是引用qinlao666在2019/1/17 16:14:00的发言：
这段命令是赋值，而不是查找命令。

 

你要这个？

 

http://www.foxtable.com/webhelp/scr/1058.htm

 

 
--  作者：qinlao666
--  发布时间：2019/1/17 16:44:00
--  
是的。但我的查找条件是表B中供应商名称=e.sender.TEXT,请教老师如何写代码
--  作者：有点甜
--  发布时间：2019/1/17 16:45:00
--  

Tables("表B").filter = "供应商名称 = \'" & e.sender.text & "\'"

 

Tables("表B").filter = "供应商名称 like \'%" & e.sender.text & "%\'"
--  作者：qinlao666
--  发布时间：2019/1/17 16:59:00
--  
麻烦老师提供完整代码，自己处理不好
--  作者：有点甜
--  发布时间：2019/1/17 17:36:00
--  

textbox的textchanged事件

 

Tables("表B").filter = "供应商名称 like \'%" & e.sender.text & "%\'"

 
--  作者：qinlao666
--  发布时间：2019/1/17 18:54:00
--  
 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:管理项目1.foxdb