用的帮助文件 中的生成表的代码，如下

Dim tx1 As WinForm.TextBox = e.Form.Controls("TextBox1")
If tx1.Value="" Then tx1.Value="表" & Tables.Count
Dim adb As new ADOXBuilder
Dim tbl As ADOXTable

adb.Open()

tbl = adb.NewTable(tx1.Value) \'创建表

With tbl
    For Each r As Row In Tables("增加表_Table1").Rows
        If r.IsNull("列名")=False Then
            Select Case r("类型")
                Case "字符"
                    .AddColumn(r("列名"),ADOXType.String,r("长度"))
                Case "日期时间型"
                    .AddColumn(r("列名"),ADOXType.DateTime)
                Case "逻辑型"
                    .AddColumn(r("列名"),ADOXType.Boolean)
                Case "备注型"
                    .AddColumn(r("列名"),ADOXType.Text)
                Case "整数型"
                    .AddColumn(r("列名"),ADOXType.Integer)
                Case "长整数型"
                    .AddColumn(r("列名"),ADOXType.Long)
                   
                Case "短整数型"
                    .AddColumn(r("列名"),ADOXType.Short)
                Case "微整数型"
                    .AddColumn(r("列名"),ADOXType.Byte)
                Case "双精度小数型"
                    .AddColumn(r("列名"),ADOXType.Double )
                Case "单精度小数型"
                    .AddColumn(r("列名"),ADOXType.Single)
                Case "高精度小数型"
                    .AddColumn(r("列名"),ADOXType.Decimal)
            End Select
        End If
    Next
   
End With
adb.AddTable(tbl)
adb.Close()
If e.Form.Controls("CheckBox1").checked=True Then
    Syscmd.Project.Open(ProjectFile)
End If

我用窗口，录入字段的信息，名称、标题和数据类型

Dim b As New DataTableBuilder("NewTable")   \',临时表
With b
    .AddDef ("列名" ,Gettype(String),20)
    .AddDef("类型" ,Gettype(String), 12)
    .AddDef("长度" ,Gettype(Integer ))
    .AddDef("标题" ,Gettype(String),50)
End With
b.Build()
Tables("增加表_Table1").DataSource =b.BuildDataSource    \'DataTables("NewTable")

Dim tb As Table = Tables("增加表_Table1")
Dim ri() As String ={ "第一列","第二列","第三列" ,"第四列","第五列","第六列","第七列","第八列","第九列", "第十列" }
With tb 
    For i As Integer =0 To 9
        .AddNew()
        .Current("列名")=ri(i)
        .Current("类型")="字符"
        .Current("长度")=16
   Next  
    .RowHeaderVisible = False
    .AllowEdit=True
    .Cols("类型").ComboList=DataTables("sys_DataType").GetComboListString("DataCaption","","_Identify")  
End With

\'//** 在<增加数据表> @cb-选择数据源 显示已有数据源

Dim cb As WinForm.ComboBox = e.Form.Controls("ComboBox1")
Dim dts As String ="内部数据源"
For Each cn As Connection In Connections
    dts=dts & "|" & cn.Name
Next
If dts <> Nothing Then
    cb.ComboList=dts
End If
cb.Value="内部数据源"

   e.cancel=true
    Syscmd.Project.Open(ProjectFile)
End If