主题：[求助]垂直表和水平表的转换

Dim dtb As New DataTableBuilder("表B")

dtb.AddDef("日期",Gettype(Date))

dtb.AddDef("客户",Gettype(String),10)

For Each v As String In DataTables("订单").GetValues("产品")

    dtb.AddDef(v, Gettype(Double))

Next

dtb.Build()

For Each v As String() In DataTables("订单").GetValues("日期|客户")

    Dim dr1 As DataRow = DataTables("表B").AddNew()

    dr1("日期") = v(0)

    dr1("客户") = v(1)

    Dim filter As String = "日期 = '" & v(0) & "' And 客户 = '" & v(1) & "'"

    For Each v1 As String In DataTables("订单").GetValues("产品",filter)

        dr1(v1) = DataTables("订单").Compute("Sum(数量)",filter & " and 产品='" & v1 & "'")

    Next

Next

MainTable = Tables("表B")