- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 两表筛选查询更改列 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=91109)
-- 发布时间：2016/9/29 15:57:00
-- 两表筛选查询更改列
如附件图片，表A B中的某相关列数据。我希望表B的内容能够与表A的记录，实现查询相互匹配。
因为表A中的记录，均包含在表B的记录中。
请老师指教如何编写代码
此主题相关图片如下：截图00.png
也就是表B与表A的关系是一对多的选择关系。
[此贴子已经被作者于2016/9/29 15:58:34编辑过]
-- 发布时间：2016/9/29 16:51:00
--
Dim dr As Row = Tables("表A").Current
Dim ar() As String = dr("第一列").split("-")
Dim filter = "第一列 like \'" & ar(0) & "-%\' and (第一列+\'.\' like \'%" & "-" & ar(1) & "." & "%\' or 第一列+\'.\' like \'%" & "." & ar(1) & "." & "%\')"
Dim dr2 As DataRow = DataTables("表B").Find(filter)
If dr2 IsNot Nothing Then
msgbox(dr2("第一列"))
End If