有关说明请参加打开项目后的窗口，我好像在这里碰到麻烦，转不出弯来，请各位给以指导，谢谢先！

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:管理项目1.rar

下面的并不是表达式来的，所以不能用eval来计算：

.AddColumn("zlh",ADOXType.String,16)

大概的思路：

Dim Builder As New ADOXBuilder("cs") \'要指定数据源名称
Dim tbl As ADOXTable
Builder.Open()
tbl = Builder.NewTable("table2") \'创建表
With tbl
    For Each dr As DataRow In DataTables("tabledatatype").DataRows
        Select Case dr("ADOXType")
            Case "date"
                .AddColumn(dr("name"),ADOXType.DateTime)
            Case "boolean"
                .AddColumn(dr("name"),ADOXType.Boolean)
            Case String
                .AddColumn(dr("Name"),ADOXType.String,dr("length"))
        End Select
    Next
End With
Builder.AddTable(tbl, True, True) \'增加表
Builder.Close()