以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]跨表引用列数据  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=129453)
--  作者：rophy0952
--  发布时间：2018/12/28 17:43:00
--  [求助]跨表引用列数据
请教一下，在表A的列标题中查找“窗口控件1”的值，符合要求的列数据全部引用到表B的第一列中，请问该如何处理，谢谢?
--  作者：有点甜
--  发布时间：2018/12/28 17:54:00
--  

Dim s As String = "列"
Dim str As String = ""
For Each c As Col In Tables("表A").Cols
    If c.Caption.Contains(s) Then
        str &= c.Caption & ","
    End If
Next
msgbox(str.trim(","))
--  作者：rophy0952
--  发布时间：2018/12/28 18:03:00
--  
谢谢甜！刚才试过以上代码结果为符合要求的列标题，如果要把这一列的所有数据引用到“表B”呢，又该如何操作，谢！
--  作者：有点甜
--  发布时间：2018/12/28 19:56:00
--  
不理解你的意思。上传实例说明需要得到的效果。
--  作者：rophy0952
--  发布时间：2018/12/29 13:19:00
--  

 

[此贴子已经被作者于2018/12/29 13:58:43编辑过]
--  作者：有点蓝
--  发布时间：2018/12/29 13:49:00
--  
参考：http://www.foxtable.com/webhelp/scr/2965.htm