主题：有个合并统计问题请教各位老师

此主题相关图片如下：1111.bmp


此主题相关图片如下：2222.bmp

我想把进行交叉统计后的数据再合并统计,如图每日统计表把"黄村","黄渡"单独统计,而其他站点全部合并应该怎么做.

或者是进行交叉统计前就进行分组,也是把"黄村","黄渡"单独统计,而其他站点全部合并.请各位老师赐教.

 

老大,我这个是数据统计菜单生成的临时表,不能增加表达式列啊

各位老师在指点一下,我是想把tables("历史运单")按日期筛选后再统计,单以下代码计算的是全部记录,并不是筛选后的结果,请教各位老师代码应该怎么改?

 

Tables("统计").StopRedraw
Dim dt As DataTable = DataTables("历史运单")
Dim aList As List(of String) = DataTables("历史运单").GetUniqueValues("","装车线路")
If aList IsNot Nothing Then
    For Each s As String In aList
        Dim dr As DataRow = DataTables("统计").AddNew
        dr("装车线路")=s
        dr("黄村1")=dt.Compute("count(到站)","装车线路='" & s & "' and 到站 = '黄村(京)'")
        dr("黄渡1")=dt.Compute("count(到站)","装车线路='" & s & "' and 到站 = '黄渡(上)'")
        dr("其他站点1")=dt.Compute("count(到站)","装车线路='" & s & "' and 到站 <> '黄渡(上)'and 到站 <> '黄村(京)'")

        dr("黄村2")=dt.Compute("sum(装车数量)","装车线路='" & s & "' and 到站 = '黄村(京)'")
        dr("黄渡2")=dt.Compute("sum(装车数量)","装车线路='" & s & "' and 到站 = '黄渡(上)'")
        dr("其他站点2")=dt.Compute("sum(装车数量)","装车线路='" & s & "' and 到站 <> '黄渡(上)'and 到站 <> '黄村(京)'")
        'dr("日期") = dt("发货日期")
        Next
    End If
    Tables("统计").ResumeRedraw

 

 

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

点击浏览该文件:管理项目3.rar

有点甜老师,根据你的代码测试没响应啊,麻烦再帮忙看看代码有没问题.

不好意思有点甜老师,这个日期能否等于我控件里面的日期,我就想做个"统计"按钮,统计经过控件里面的日期筛选的记录

 

此主题相关图片如下：aaaa.bmp

终于行了,谢谢有点甜老师不厌其烦地帮助,再次谢谢!!