标题：怎样通过目录树创建表

要求如下图,这样表可以根据需要在使用中有操作人员任意创建.如何做到

此主题相关图片如下：snap1.jpg


此主题相关图片如下：snap2.jpg


此主题相关图片如下：snap3.jpg

临时表还是固定表.你那个目录树是动态创建的还是固定的?

可以参照帮助中的动态创建表的一项.

目录树是动态创建，表是固定的表，也就是由操作者创建，而非设计者。

希望有人指点，狐表能否做到

看不懂啊···

狐表肯定能做到，动态创建表和列，请参考帮助的ADOXBuilder。

 

图3,选中123,按右键创建表结构.

首先动态创建目录树,然后通过目录树节点创建表.

以上由使用者按需要操作

 

ADOXBuilder动态创建的表与我的要求不一样.ADOXBuilder创建的表要在代码里定.由开发人员设计,我需要的是使用人员创建表,包括字段名也随意指定

AdoxBuilder既然可以动态创建列，那么就一样可以由用户输入列类型，根据用户的输入来生成列，例如假定有个表用来输入列类型，列名称，和列长度，你可以：
 
Dim Builder As New ADOXBuilder
Builder.Open()

tbl = Builder.NewTable("表名")
For Each dr As DataRow in DataTables("xxx").DataRows
   Select Case dr("类型")
        Case "字符型"
              tbl.AddColumn(dr("列名称") , ADOXType.String, dr("列长度"))
         Case "日期"
              tbl.AddColumn(dr("列名称") , ADOXType.DateTime)
         Case "整数型"
              tbl.AddColumn(dr("列名称") , ADOXType.Integer) 
         '其余类推，自己写即可
   End Select
Next
Builder.Close()