DataColChanged事件

Select Case e.DataCol.Name
    Case "姓名", "部门"
        If e.DataRow.IsNull("姓名") = False AndAlso e.DataRow.IsNull("部门") = False Then
            If e.DataRow("部门") = "编辑部" Then
                If DataTables("编辑信息表").DataCols.Contains(e.DataRow("姓名") & "_上传") = False Then
                    Dim Builder As New ADOXBuilder
                    Builder.Open() \'打开ADOXBuilder
                    With Builder.Tables("编辑信息表")
                        .AddColumn(e.DataRow("姓名") & "_上传",ADOXType.String, 12)
                        .AddColumn(e.DataRow("姓名") & "_采用",ADOXType.String, 12)
                    End With
                    Builder.Close() \'关闭ADOXBuilder
                    DataTables.Unload("编辑信息表")
                    DataTables.Load("编辑信息表")
                End If
            End If
        End If
End Select

参考代码

http://www.foxtable.com/help/topics/2122.htm

使用外部数据源

前面的代码都是针对内部数据源的，如果要为外部数据源动态创建表和列，只需在定义ADOXBuilder的时候，指定数据源名称即可：

Dim Builder As New ADOXBuilder("数据源名称")

例如在名为nwnd的外部数据源中创建一个订单表:

Dim Builder As New ADOXBuilder("nwnd") \'要指定数据源名称
Dim tbl As ADOXTable
Builder.Open()
tbl = Builder.NewTable("订单") \'创建表
With tbl
    .AddColumn("日期" ,ADOXType.DateTime)
    .AddColumn("产品" ,ADOXType.String, 12)
    .AddColumn("客户" ,ADOXType.String, 20)
    .AddColumn("数量" ,ADOXType.Integer)
    .AddColumn("备注" ,ADOXType.Text)
End With
Builder.AddTable(tbl) \'增加表
Builder.Close()