定向到数据源 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Dim Builder As New ADOXBuilder("订单1") '要指定数据源名称
Dim tbl As ADOXTable
Builder.Open()
tbl = Builder.NewTable("订单情况") '创建表
For Each dc As DataCol In DataTables("订单情况").DataCols
    With tbl
        Select Case dc.DataType.Name
            Case "String"
                .AddColumn(dc.Name ,ADOXType.String,100)
            Case "DateTime"
                .AddColumn(dc.Name ,ADOXType.DateTime)
            Case "Boolean"
                .AddColumn(dc.Name ,ADOXType.Boolean)
            Case "Double"
                .AddColumn(dc.Name ,ADOXType.Double)
            Case "Text"
                .AddColumn(dc.Name ,ADOXType.Text)
        End Select
    End With
Next
Builder.AddTable(tbl, True, True) '增加表
Builder.Close()

主题：定向到数据源