- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- [求助]跨表模糊搜索 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=177058)
-- 发布时间：2022/5/7 22:18:00
-- [求助]跨表模糊搜索
求助表A当前行的 第一列 和 第二列 ，如果表B 第三列中都含有，就筛选出这行
中国 广东
表B 第三列
第一行 亚洲中国撒啊啊地方
第二行 产地广东
第三行 中国广东市区
第四行 阿斯顿发发
求助筛选出 表B 第三行 中国广东市区
-- 发布时间：2022/5/8 10:05:00
--
Dim gj As String = "中国"
Dim sh As String = "省"
Dim dr As DataRow = DataTables("B").find("第三列 Like \'*" & gj & "*\' And 第三列 Like \'*" & sh &"\'" )
-- 发布时间：2022/5/8 14:19:00
-- 回复：（狐狸爸爸）Dim gj As String = "中国"Dim sh ...
狐爸，怎么还是不行，辛苦再看看
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:跨表模糊搜索.foxdb |
Dim gj As String =
Tables("窗口1_Table2").current("第一列")
Dim sh As String =
Tables("窗口1_Table2").current("第二列")
\'\'Dim dr As
DataRow = DataTables("表B").find("第三列 Like \'*" & gj
& "*\' And 第三列 Like \'*" &
sh &"\'" )
Tables("窗口1_Table1").Filter
= "第三列 Like \'*" & gj & "*\' And 第三列 Like \'*"
& sh &"\'"
\'
\'DataTables("表B").loadfilter
= "第三列 Like \'*" & gj & "*\' And 第三列 Like \'*"
& sh &"\'"
[此贴子已经被作者于2022/5/8 14:19:04编辑过]
-- 发布时间：2022/5/8 15:51:00
--
Dim tb As Table = Tables(e.Form.Name & "_table2")
Dim r As Row = tb.Current
Tables("窗口1_Table1").Filter = "第三列 Like \'%" & r("第一列") & "%\' And 第三列 Like \'%" & r("第二列") & "%\'"
| 下载信息 [文件大小： 下载次数： ] | |
| 点击浏览该文件:跨表模糊搜索.foxdb |