主题：请问：如何完成表中坯布统计报表

非常谢谢。

但是我还是不能完成需要的内容，上传附件帮助解决

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

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

就是按年、月、产品名称分组来统计长度、重量。

你的“坯布输入.mdb”这个文件呢？

要这个文件才能打开你发上来的项目。

做个统计按钮：

For Each dr As DataRow In DataTables("坯布统计").DataRows
    Dim nm As String = dr("产品名称")
    Dim ft1 As Date = new Date(dr("年"),dr("月"),23)
    ft1= ft1.AddMonths(-1)
    Dim ft2 As Date = new Date(dr("年"),dr("月"),22)
    If dr("年") = Date.today.Year AndAlso dr("月") = Date.Today.Month
        dr("长度_本日") = DataTables("坯布输入").compute("Sum(长度)","产品名称 = '" & nm & "' and 日期 = #" & Date.Today & "#")
        dr("长度_累计") = DataTables("坯布输入").compute("Sum(长度)","产品名称 = '" & nm & "' and 日期 >= #" & ft1 & "# And 日期 <= #" & ft2 & "#")
    Else
        dr("长度_本日") = Nothing
        dr("长度_累计") = Nothing
    End If
    dr("重量_本日") = DataTables("坯布输入").compute("Sum(重量)","产品名称 = '" & nm & "' and 日期 = #" & Date.Today & "#")
    dr("重量_累计") = DataTables("坯布输入").compute("Sum(重量)","产品名称 = '" & nm & "' and 日期 >= #" & ft1 & "# And 日期 <= #" & ft2 & "#")
Next

提示： 统计表需要手工输入年、月和产品名称，输入完成后，单击这个按钮，就能得到最新的统计结果。

非常感谢您不厌其烦的给我解答问题。我已根据您给的代码完成自动输入累计，同时又增加了一个逻辑列累计，就是当该列为是时，就统计结果，否则不合计，如图。

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

代码如下:

DataTables("班产量表").DataRows.Clear() '清除原来的数据
For Each nm() As String In DataTables("坯布输入").GetUniqueValues("","班别","年","月")
    Dim dr  As DataRow = DataTables("班产量表").AddNew()
    Dim ft As Date = new Date(Date.Today.Year,Date.Today.Month,1)
    dr("年") = nm(1)
    dr("月") = nm(2)
    dr("班别") = nm(0)
    dr("产量_本日") = DataTables("坯布输入").compute("Sum(产量)","班别 = '" & nm(0) & "' AND 年 = '" & nm(1) & "'And 月 = '" & nm(2) & "' and 日期 = #" & Date.Today & "#")
    dr("产量_累计") = DataTables("坯布输入").compute("Sum(产量)","班别 = '" & nm(0) & "' AND 年 = '" & nm(1) & "'And 月 = '" & nm(2) & "' and 日期 >= #" & ft & "# And 日期 <= #" & Date.Today & "#")
    dr("双面_本日") = DataTables("坯布输入").compute("Sum(产量)","班别 = '" & nm(0) & "' AND 年 = '" & nm(1) & "'And 月 = '" & nm(2) & "' And 双面 = '" & True & "'  and 日期 = #" & Date.Today & "#")
    dr("双面_累计") = DataTables("坯布输入").compute("Sum(产量)","班别 = '" & nm(0) & "' AND 年 = '" & nm(1) & "'And 月 = '" & nm(2) & "' And 双面 = '" & True & "'  and 日期 >= #" & ft & "# And 日期 <= #" & Date.Today & "#")
    dr("扣分_本日") = DataTables("坯布输入").compute("Sum(扣分)","班别 = '" & nm(0) & "' AND 年 = '" & nm(1) & "'And 月 = '" & nm(2) & "' and 日期 = #" & Date.Today & "#")
    dr("扣分_累计") = DataTables("坯布输入").compute("Sum(扣分)","班别 = '" & nm(0) & "' AND 年 = '" & nm(1) & "'And 月 = '" & nm(2) & "' and 日期 >= #" & ft & "# And 日期 <= #" & Date.Today & "#")
    dr("重量_本日") = DataTables("坯布输入").compute("Sum(总重)","班别 = '" & nm(0) & "' AND 年 = '" & nm(1) & "'AND 月 = '" & nm(2) & "' and 日期 = #" & Date.Today & "#")
    dr("重量_累计") = DataTables("坯布输入").compute("Sum(总重)","班别 = '" & nm(0) & "' AND 年 = '" & nm(1) & "'And 月 = '" & nm(2) & "' and 日期 >= #" & ft & "# And 日期 <= #" & Date.Today & "#")
Next