- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 关于目录树生成多层表头的求助 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=43649)
-- 发布时间：2013/12/12 11:59:00
-- 关于目录树生成多层表头的求助
因为，字段数量及名称的不确定性。我需要做一个供用户修改和调整表列的功能。
表列的样式如：采购物品_办公类_电脑、采购物品_办公类_打印机，最多为3层。列顺序暂时不管，我只想要用目录树生成“目标表”中的字段。同时，删除，重命名按钮能够对字段进行编辑。
示例中，逻辑是，根表头对应的：“采购物品”，次表头1对应的“办公类”，次表头2对应的“电脑”。
求大侠帮助！
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:管理项目5.table |
-- 发布时间：2013/12/12 15:39:00
--
怎么没人帮助啊
-- 发布时间：2013/12/12 15:39:00
--
等得着急
-- 发布时间：2013/12/12 15:40:00
--
没看懂.
-- 发布时间：2013/12/12 18:01:00
-- 解释一下
就是因为，用户他不能直接打开表属性来增加或删除或重命名字段。我想做一个目录树来让用户自己能改目标表的字段。因为这个目标表的字段是多层表头。比如：采购类型_办公类_电脑。
为了直观和美观。我希望的目录树里也是，根节点_子节点1_子节点2的对应生成一个字段。
示例项目里。建立一个"目录树生成表列"的表，是搭建目录树的。（是否需要我不知道。）
一个“目标表”是我需要用目录树生成的。不知老师明白了没有。
或者有什么更好的办法，让用户可以修改字段
-- 发布时间：2013/12/12 19:44:00
--
楼主想复杂了吧？不是可以直接修改表标题的么？
With DataTables("表A")
.DataCols("第一列").Caption
=
"一季度_东部"
.DataCols("第二列").Caption
=
"一季度_西部"
.BuildHeader()
End
With
-- 发布时间：2013/12/13 8:53:00
--
是的，没有必要整得太复杂，直接一个表，三列： 表名、列名、标题。
AfterOpenProject事件：
For Each dr As DataRow in DataTables("表名").DataRow
DataTables(dr("表名")).DataCols(dr("列名")).Caption = dr("表名")
Next
For Each dt As DataTable in DataTables
dt.BuildHeader()
Next
平时可以网用户直接在这个表通过下拉列表选择表和列，并输入对应的标题，简单快捷。