主题：关于动态建立表的问题

用Select Case 逐个根据表中的值来判断对应的列类型，然后增加列。

已经很简单了

Dim Builder As New ADOXBuilder
Dim tbl As ADOXTable
Builder.Open()
tbl = Builder.NewTable("订单") '创建表
For Each dr As DataRow In Tables("xxx").DataRows
    With tbl
        Select Case dr("列类型")
            case "字符型"
               增加字符型列
            case "日期型"
               增加日期型列
            '...
    End With
Next
Builder.AddTable(tbl) '增加表

将打不开的项目传上来。