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

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

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

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

 

先把月排序

此主题相关图片如下：112.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 日期 = #" & Date.Today & "#")
    dr("重量_累计") = DataTables("坯布输入").compute("Sum(重量)","产品名称 = '" & nm(0) & "' AND 年 = '" & nm(1) & "'And 月 = '" & nm(2) & "' and 日期 >= #" & ft & "# And 日期 <= #" & Date.Today & "#")

Next

如下：

 

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