主题：[原创]这样的统计能实现吗?

有一个简单的计划表，主要内容就合同编号，产品型号，订货数量，送货数量，欠货数量。

 

按一般的分组统计：

Dim g As New GroupTableBuilder("欠货统计明细表", DataTables("欠货明细表"))
g.Groups.AddDef("产品型号")
g.Groups.AddDef("合同编号")
g.Totals.AddDef("欠货数量")
g.SubTotal = True
g.Decimals = 0
g.Filter = "[欠货数量] > 0"
g.Build()
MainTable = Tables("欠货统计明细表")

 

结果为：

 

此主题相关图片如下：统计.jpg

能不能把统计结果显示为：

 

 

此主题相关图片如下：统计2.jpg

 

项目文件：

 

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

点击浏览该文件:计划单.table

 无法通过汇总得到......唯有手动写代码了。

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

楼主的要求太特殊，弄起来挺麻烦......最好问一下狐爸如何动态增加列。

Dim tb As DataTable = DataTables("欠货明细表")

'获得汇总数据
Dim sums As New List(Of Integer)
Dim data As New List(Of List(Of DataRow))
Dim ids As List(Of String) = tb.GetUniqueValues("", "产品型号")
For Each id As String In ids
    Dim sum As Integer = tb.Compute("Sum(欠货数量)", "产品型号='" & id & "'")
    Dim drs As List(Of DataRow) = tb.Select("产品型号='" & id & "'", "合同编号")
    sums.Add(sum)   
    data.Add(drs)
Next

'得到列数
Dim max As Integer = 0
For Each d As List(Of DataRow) In data
    If max < d.Count Then
        max = d.Count
    End If
Next

'生成临时表
Dim ntb As New DataTableBuilder("临时表")
ntb.AddDef("产品型号", tb.baseTable.Columns("产品型号").dataType)
ntb.AddDef("欠货数量", tb.baseTable.Columns("欠货数量").dataType)
For i As Integer = 1 To max
    ntb.AddDef("欠货明细_合同编号" & i, tb.baseTable.Columns("合同编号").dataType)
    ntb.AddDef("欠货明细_欠货数量" & i, tb.baseTable.Columns("欠货数量").dataType)
Next
ntb.Build()

'填充数据
Dim t As Table = Tables("临时表")
Dim count As Integer = 0
For Each d As List(Of DataRow) In data
    Dim r As Row = t.AddNew()
    Dim i As Integer = 0
    For Each dr As DataRow In d
        If i = 0 Then
            r("产品型号") = dr("产品型号")
            r("欠货数量") = sums(count)
        End If
        i = i + 1
        r("欠货明细_合同编号" & i) = dr("合同编号")
        r("欠货明细_欠货数量" & i) = dr("欠货数量")
    Next
    count = count + 1
Next

MainTable = t

谢谢楼上二位高手。

1、TO　lin_hailun

结果准确，基本上就是这个了。如果能把“g.Filter = "[欠货数量] > 0"”这个条件加进来就更好了，这样可以避免送货完毕的合同号出现在“欠货统计”中。

 

2、TO　don

　If hts.Count > n2 Then

 楼主估计都自己可以修改的.....

 If sum > 0 Then
     sums.Add(sum)  
     data.Add(drs)
 End If

说真的，本人水平真不够,整个统计代码不是太懂，但经过晚上学习，部分还是看懂了，包括缺少n2定义的部分。

再次谢谢楼上