以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]表A.表B当前编号列值筛选表C编号列  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=187504)

--  作者:185723664
--  发布时间:2023/7/22 10:49:00
--  [求助]表A.表B当前编号列值筛选表C编号列
表A.表B当前编号列值筛选表C编号列行
--  作者:有点蓝
--  发布时间:2023/7/22 12:04:00
--  
    Dim ids As String
    For Each 
r As Row In Tables("表A.表B").Rows
        
ids = ids & ",\'" & dr("编号") & "\'"
    Next
    
idsids.Trim(",")
    Tables(
"表C").Filter = "编号 In (" & ids & ")"