以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  [求助][原创]列表项目是所有的表的情况  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=46564)
--  作者：happy7531
--  发布时间：2014/2/25 17:25:00
--  [求助][原创]列表项目是所有的表的情况
求助大神：
表A的第一列的名称为“表名”  第二列名称为“列名”


要求第一列的列表项目为本项目所有的数据表的名称  第二列的列表项目为对应的第一列的数据表的所有的列名。求助在线等
--  作者：lsy
--  发布时间：2014/2/25 17:30:00
--  

要把所有的主表都加载进来，然后执行代码，不然没加载的表循环不到。

For Each dt As DataTable In DataTables
    For Each dc As DataCol In dt.DataCols
        Dim dr As DataRow = DataTables("表列管理").AddNew
        dr("表名") = dt.Name
        dr("列名") = dc.Name
    Next
Next
--  作者：Bin
--  发布时间：2014/2/25 17:31:00
--  
dim s as string 
for each dt as datatable in datatables
    s = s & "|" & dt.name
next

tables("XX").cols("第一列").comboList=s.trim("|")

PrepareEdit事件

dim s as string
 if e.col.name="第二列" then
for each c as col in tables(e.row("第一列")).cols
   s = s & "|" c.name
next
  tables("XX").cols("第二列").comboList=s.trim("|")
end if
--  作者：lsy
--  发布时间：2014/2/25 17:32:00
--  
呵呵，看岔了。