主题：[求助]如何将表统计成这样的交叉表并汇总呢？

 垂直分组，控制成 日期。

 

 统计那里，稍微处理一下就行了。 日期获取最大值、加油量获取累加值

好像没这个效果啊

此主题相关图片如下：qq截图20150526114455.png

代码如下

 

Dim g As New SqlCrossTableBuilder("统计表1", "加油申请表")
g.HGroups.AddDef("车型","车型1_车型")
g.HGroups.AddDef("牌照号", "拍照号_牌照号")
g.VGroups.AddDef("日期", DateGroupEnum.None)
g.Totals.AddDef("日期", AggregateEnum.max, "日期")
g.Totals.AddDef("数量", "数量")
g.HorizontalTotal = True
g.Build()
Dim t As Table = Tables("统计表1")
t.grid.Rows(0).Height = 0
MainTable = t

您厉害！！非常佩服，多谢您！在设置交叉统计表里是怎么设置的呢，能截个图看看吗？

Dim sdt As DataTable = DataTables("加油申请表")
Dim max As Integer = 0
For Each ary() As String In sdt.GetValues("车型|牌照号")
    Dim c As Integer = sdt.Compute("count(车型)", "车型 = '" & ary(0) & "' and 牌照号 = '" & ary(1) & "'")
    If c > max Then max = c
Next

Dim dtb As New DataTableBuilder("交叉表")
dtb.AddDef("车型", Gettype(String), 32)
dtb.AddDef("牌照号", Gettype(String), 32)
For i As Integer = 1 To max
    dtb.AddDef("日期" & i, Gettype(Date),"","日期")
    dtb.AddDef("数量" & i, Gettype(Double),"","数量")
Next
dtb.Build()

Dim dt As DataTable = DataTables("交叉表")
For Each ary() As String In sdt.GetValues("车型|牌照号")
    Dim idx As Integer = 1
    Dim ndr As DataRow = dt.AddNew
    ndr("车型") = ary(0)
    ndr("牌照号") = ary(1)
    For Each dr As DataRow In sdt.Select("车型 = '" & ary(0) & "' and 牌照号 = '" & ary(1) & "'")
        ndr("日期" & idx) = dr("日期")
        ndr("数量" & idx) = dr("数量")
        idx += 1
    Next
Next

1、看7楼；

 

2、要用sqlCrossTableBuilder

非常谢谢，慢慢来研究吧！