主题：[求助]非常非常麻烦的报表怎么实现？狐爸帮帮忙 （将表修改后）

实在不好意思，之前的提问没有把问题说清楚，给大家带来麻烦了，现在将问题修改后重新传上来，还请大家帮我想想办法：

你在命令窗口执行下面的代码：

 

Dim dt1 As Date = #1/1/2013#
Dim dt2 As Date = #12/31/2013#
Dim dt As DataTable = DataTables("产品录入")
Dim filter As String = "日期 >= #" & dt1 & "# And 日期 <= #" & dt2 & "#"
Dim dtb As New DataTableBuilder("统计")
dtb.AddDef("姓名", Gettype(String), 32)
dtb.AddDef("完整_经手人1", Gettype(Integer))
dtb.AddDef("完整_经手人2", Gettype(Integer))
dtb.AddDef("水果_经手人1", Gettype(Integer))
dtb.AddDef("水果_经手人2", Gettype(Integer))
dtb.AddDef("零食_经手人1", Gettype(Integer))
dtb.AddDef("零食_经手人2", Gettype(Integer))
dtb.AddDef("时间_经手人1", Gettype(Integer))
dtb.AddDef("时间_经手人2", Gettype(Integer))
dtb.AddDef("个人利润_经手人1", Gettype(Integer))
dtb.AddDef("个人利润_经手人2", Gettype(Integer))
dtb.Build()
Dim lst1 As List(of String) = DataTables("产品录入").GetUniqueValues("","经手人一")
Dim lst2 As List(of String) = DataTables("产品录入").GetUniqueValues("","经手人二")
For Each nm As String In lst2
    If Lst1.Contains(nm) = False Then
        lst1.add(nm)
    End If
Next
For Each nm As String In lst1
    Dim r As Row = Tables("统计").AddNew()
    r("姓名") = nm
    r("完整_经手人1") = DataTables("产品录入").Compute("Count([_Identify])","经手人一 = '" & nm & "'")
    r("完整_经手人2") = DataTables("产品录入").Compute("Count([_Identify])","经手人二 = '" & nm & "'")
    r("零食_经手人1") = DataTables("产品录入").Compute("Count([_Identify])","经手人一 = '" & nm & "' And 类型 = '零食'")
    r("零食_经手人2") = DataTables("产品录入").Compute("Count([_Identify])","经手人二 = '" & nm & "' And 类型 = '零食'")
    r("水果_经手人1") = r("完整_经手人1") - r("零食_经手人1")
    r("水果_经手人2") = r("完整_经手人2") - r("零食_经手人2")
    r("个人利润_经手人1") = DataTables("产品录入").Compute("Sum(利润)","经手人一 = '" & nm & "'")
    r("个人利润_经手人2") = DataTables("产品录入").Compute("Sum(利润)","经手人二 = '" & nm & "'")
Next

谢谢您的回答，我试了下，不过好像没有时间的统计，能不能再帮帮忙

给你完全做好了：

 

 

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

点击浏览该文件:管理项目1.table

做的很好，非常感谢