以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  一样的条件,按重复第几次查找,填写跨表对应内容  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=171242)

--  作者:ganlan
--  发布时间:2021/8/23 16:13:00
--  一样的条件,按重复第几次查找,填写跨表对应内容

图片点击可在新窗口打开查看此主题相关图片如下:1-360截图20210823160635966.jpg
图片点击可在新窗口打开查看

图片点击可在新窗口打开查看此主题相关图片如下:2-360截图20210823160654577.jpg
图片点击可在新窗口打开查看
您好,请教一下,想在表A的第二列根据第一列的内容,去表B第一列的内容查找,按照顺序把重复的内容填过来,可以做到吗?


 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:管理项目3.table



--  作者:有点蓝
--  发布时间:2021/8/23 16:27:00
--  
For Each s As String In DataTables("表A").GetValues("第一列")
    Dim drsa As List(Of  DataRow) = DataTables("表A").Select("第一列=\'" & s & "\'","_sortkey")
    Dim drsb As List(Of  DataRow) = DataTables("表B").Select("第一列=\'" & s & "\'","_sortkey")
    For i As Integer = 0 To math.Min(drsa.Count - 1,drsb.Count - 1)
        drsa(i)("第二列") = drsb(i)("第二列")
    Next
Next

--  作者:ganlan
--  发布时间:2021/8/23 17:11:00
--  
如果先找表B,再找表C,再找表D呢(表B表C表D可能也会有重复,重复的话,就以前面的表为准,后面表的不理会)
--  作者:有点蓝
--  发布时间:2021/8/23 17:16:00
--  
没看懂,举例说明一下