主题：垂直表和水平表转换

Dim dtb As New DataTableBuilder("表E")
dtb.AddDef("项目", Gettype(String), 32)
For Each v As String In DataTables("表C").GetValues("第一列", "", "_Sortkey")
    dtb.AddDef(v, Gettype(String))
Next
dtb.Build()
For Each dc As DataCol In DataTables("表C").datacols
    Dim dr1 As DataRow = DataTables("表E").AddNew()
    dr1("项目") = dc.name
Next
MainTable = Tables("表E")

1、2

 

Dim dtb As New DataTableBuilder("表E")
dtb.AddDef("项目", Gettype(String), 32)
For Each v As String In DataTables("表C").GetValues("第一列", "", "_Sortkey")
    dtb.AddDef(v, Gettype(String))
Next
dtb.Build()

For Each dc As DataCol In DataTables("表C").datacols
    If dc.name <> "第一列" Then
        Dim dr1 As DataRow = DataTables("表E").AddNew()
        dr1("项目") = dc.name
        For Each dr As DataRow In DataTables("表C").datarows
            dr1(dr("第一列")) = dr(dc.name)
        Next
    End If
Next

MainTable = Tables("表E")

 

3、你把临时表导出，然后导入即可。

3、

 

Dim Builder As New ADOXBuilder
Builder.Open()

If DataTables.Contains("表E") Then
    If DataTables("表E").Type <> 5 Then
        With Builder
            .DeleteTable("表E")
        End With
    End If
    DataTables.unload("表E")
End If

Dim tbl = Builder.NewTable("表E") '创建表
tbl.AddColumn("项目" ,ADOXType.String, 32)
For Each v As String In DataTables("表C").GetValues("第一列", "", "_Sortkey")
    tbl.AddColumn("a" & v,ADOXType.String)
Next
Builder.AddTable(tbl) '增加表
Builder.Close()

DataTables.load("表E")
For Each dc As DataCol In DataTables("表C").datacols
    If dc.name <> "第一列" Then
        Dim dr1 As DataRow = DataTables("表E").AddNew()
        dr1("项目") = dc.name
        For Each dr As DataRow In DataTables("表C").datarows
            dr1("a" & dr("第一列")) = dr(dc.name)
        Next
    End If
Next

MainTable = Tables("表E")

 

代码的最后，你动态加一个临时列，然后计算即可

 

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

 

 具体例子发上来测试。

maintableChanged事件，去掉这些代码，如果要运行，你至少要加上表名判断啊

 

DataTables("茂星业务").DataCols("订单编号").RaiseDataColChanged()

Dim f As New Filler
f.SourceTable = DataTables("订单") '指定数据来源
f.SourceCols = "订单编号,客户简称,出口日期" '指定数据来源列
f.DataTable = DataTables("出口单证") '指定数据接收表
f.DataCols = "Orderno,客户简称,departure_date" '指定数据接收列
f.Fill() '填充数据

Dim g As New Filler
g.SourceTable = DataTables("订单") '指定数据来源
g.SourceCols = "订单编号,品名,数量,出口单价USD" '指定数据来源列
g.DataTable = DataTables("出口明细") '指定数据接收表
g.DataCols = "Orderno,description,quantity,unit_price" '指定数据接收列
g.Fill() '填充数据

无语，谁叫你把代码写到datacolchanged事件去啊，单独做一个按钮生成表啊。

 

不要在DataColChanged事件写那段代码啊，单独做一个按钮写。