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


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

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

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

再增加个表达式列，将其余各列的值汇总到这个表达式列即可。

任何表，包括临时表，都可以用代码添加表达式列的：

http://www.foxtable.com/help/topics/1428.htm

或者你在原始数据表增加一个表达式列，用于合计那几列的数据，统计的时候，就单单统计黄村"、"黄渡"以及这个表达式列即可。

各位老师在指点一下,我是想把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