主题：求助:数据填充

分组统计和交叉统计的实现原理

你要的可是这种效果？

此主题相关图片如下：2013-04-29 19-31-03.png

'代码如下，这是个动态表的代码，具体你自己根据需要修改：

Dim dt,nt As DataTable
Dim dr,nr As DataRow
Dim i As Integer
Dim MinDate As Date
Dim MaxDate As Date
Dim span As TimeSpan
Dim id As String

dt = DataTables("订单表")
Dim dtb As New DataTableBuilder("统计表")
dtb.AddDef("编号", Gettype(String), 16)
MinDate = dt.Compute("min(开始日期)")
MaxDate = dt.Compute("max(结束日期)")
span = MaxDate - MinDate
For i = 0 To span.TotalDays
    dtb.AddDef(format(MinDate.AddDays(i),"yyyyMMdd"), Gettype(Double),"",format(MinDate.AddDays(i),"yyyy_MM_dd"))
Next
dtb.Build()
Dim t As Table = Tables("统计表")
nt = t.DataTable
For Each id In dt.GetUniqueValues("","编号")
    nr = nt.AddNew
    nr("编号") = id
    For Each dr In dt.Select("编号 = '"& id &"'")
        MinDate = dr("开始日期")
        MaxDate = dr("结束日期")
        span = MaxDate - MinDate
        For i = 0 To span.TotalDays
            nr(format(MinDate.AddDays(i),"yyyyMMdd")) = dr("单价")
        Next
    Next
Next
t.AutoSizeCols
MainTable = t

'稍作改动即可

nr(format(MinDate.AddDays(i),"yyyyMMdd")) += dr("单价")