以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  求助代码:将另一个表的列名作为列表项目  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=71338)

--  作者:shixia
--  发布时间:2015/7/9 15:52:00
--  求助代码:将另一个表的列名作为列表项目

授权表中有两列:一列是表名,另一列是列名,选择了表名后,列名出现对应表的所有列名的列表项目 。求代码

 


--  作者:大红袍
--  发布时间:2015/7/9 16:02:00
--  

 参考

 

http://www.foxtable.com/bbs/dispbbs.asp?BoardID=5&ID=23959&skin=0

 


--  作者:大红袍
--  发布时间:2015/7/9 16:03:00
--  

Dim str As String = ""
For Each t As Table In Tables
    str &= t.Name & "|"
Next

msgbox(str.Trim("|"))