Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助][原创]列表项目是所有的表的情况


  共有4079人关注过本帖树形打印复制链接

主题：[求助][原创]列表项目是所有的表的情况
美女呀，离线，留言给我吧！
happy7531
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：婴狐 帖子：4 积分：115 威望：0 精华：0 注册：2013/12/9 9:20:00 		[求助][原创]列表项目是所有的表的情况  发帖心情 Post By：2014/2/25 17:25:00 [只看该作者]

求助大神：
表A的第一列的名称为“表名”  第二列名称为“列名”


要求第一列的列表项目为本项目所有的数据表的名称  第二列的列表项目为对应的第一列的数据表的所有的列名。求助在线等
 回到顶部
帅哥哟，离线，有人找我吗？
lsy
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：版主 帖子：5246 积分：33163 威望：0 精华：8 注册：2013/1/17 21:28:00 		  发帖心情 Post By：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
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：贵宾 帖子：35433 积分：178524 威望：0 精华：3 注册：2013/3/30 16:36:00 		  发帖心情 Post By：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
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：版主 帖子：5246 积分：33163 威望：0 精华：8 注册：2013/1/17 21:28:00 		  发帖心情 Post By：2014/2/25 17:32:00 [只看该作者]

呵呵，看岔了。

 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.03906 秒, 4 次数据查询