主题：求助:数据填充

统计表中的编号列有重复？

你要的可是这种效果？

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

是订单表(表a)  肯定会有重复录入的情况呀

对呀对呀,就是这个效果

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

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("单价")