以文本方式查看主题

-  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=47626)
--  作者：gaozhyu
--  发布时间：2014/3/13 16:45:00
--  求助
可不可以在某一列设置成下拉框，值为此项目的所有表，然后后一列是选定某表的所有列名
--  作者：Bin
--  发布时间：2014/3/13 16:51:00
--  
这些都是很基础的功能,帮助是必须要看的.


1、先在项目事件AfterOpenProject中设置如下代码：

dim bs as string
for each dt as datatable in datatables
     bs = bs & "|" & dt.name
next

Tables("表A").Cols("表").Combolist = bs.trim("|")

2、在表A的PrepareEdit事件中输入如下代码：

If e.Col.Name = "列" Then 
     dim bs as string

     for each dc as datacol  in datatables(e.row("表")).datacols
        bs = bs & "|" & dc.name
     next

     e.Col.Combolist = bs.trim("|")
End If
--  作者：gaozhyu
--  发布时间：2014/3/13 17:03:00
--  
帮助没找到，但还是很谢谢啊