主题：关于客户合计，为什么有错？

不是，我想要的是，不是每个客户都进行一次合计，而是，所列行中，最后一行进行合计即可？？

例如：

北京

上海

深圳

....

....

合计

 把这段去掉，就没有合计行了

******************************合计行
dr = DataTables("统计").AddNew()
dr("客户") = "合计"
For Each prd As String() In prds
    Dim ColName1 As String = prd(0) & "_" & prd(1) & "_目标"
    Dim ColName2 As String = prd(0) & "_" & prd(1) & "_销售"
    dr(ColName1) = dt1.Compute("Sum(目标)","[年] = '" & prd(0) & "' and 月份 = '"& prd(1) &"'")
    dr(ColName2) = dt2.Compute("Sum(销售)","[年] = '" & prd(0) & "' and 月份 = '"& prd(1) &"'")
Next
dr("目标总额") = DataTables("统计").Compute("Sum(目标总额)")
dr("销售总额") = DataTables("统计").Compute("Sum(销售总额)")
'********************************

在最后可以加一行合计，具体怎么合计，我也不知道你怎样的，你参考改一下吧。

Dim ndr = DataTables("统计").AddNew()
ndr("客户") = "合计"
For Each prd As String() In prds
    Dim ColName1 As String = prd(0) & "_" & prd(1) & "_目标"
    Dim ColName2 As String = prd(0) & "_" & prd(1) & "_销售"
    ndr(ColName1) = dt1.Compute("Sum(目标)","[年] = '" & prd(0) & "' and 月份 = '"& prd(1) &"'")
    ndr(ColName2) = dt2.Compute("Sum(销售)","[年] = '" & prd(0) & "' and 月份 = '"& prd(1) &"'")
Next
ndr("目标总额") = DataTables("统计").Compute("Sum(目标总额)")
ndr("销售总额") = DataTables("统计").Compute("Sum(销售总额)")