主题：[求助]

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()

 

  那你就不要用文本控件，你可以放一个table或者放记录窗口

    

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

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

lbl.Text = name