此主题相关图片如下：2016-04-18_172503.jpg

这是明细表.

此主题相关图片如下：2016-04-18_172555.jpg

生成报表后无车号,无费用合计

这是报表模板

此主题相关图片如下：2016-04-18_172631.jpg

报表事件:

Select Case e.Book.TempLate
    Case "货物运输确认"
        Dim str1 As String = ""
        Dim str2 As String = ""
        Dim Filter As String = "协议号 = \'" & e.DataRow("协议号") & "\'"
        For Each dw As String In e.DataRow.DataTable.GetValues("收货单位", filter)
            str1 &= dw &  e.DataRow.DataTable.compute("sum(送货吨位)", filter & " and 收货单位 = \'" & dw & "\'") & "T,"
        Next
      
        For Each dr As String In e.DataRow.DataTable.GetValues("送货单号", filter)          
                str2 &= dr & ","
        Next
        e.Book.Marks("收货单位") = str1.trim(",")
        e.Book.Marks("送货单号") = str2.trim(",")
        e.Book.Marks("送货费用") = DataTables("金发科技").Compute("Sum(送货费用)",Filter)
        e.Book.Marks("回货费用") = DataTables("金发科技").Compute("Sum(回货费用)",Filter)
        e.Book.Marks("装卸费") = DataTables("金发科技").Compute("Sum(装卸费)",Filter)
        e.Book.Marks("多点配送费") = DataTables("金发科技").Compute("Sum(多点配送费)",Filter)
        e.Book.Marks("其它费用") = DataTables("金发科技").Compute("Sum(其它费用)",Filter)
        e.Book.Marks("送货吨位") = DataTables("金发科技").Compute("Sum(送货吨位)",Filter)
       
End Select

我发现只有收货单位为字母的就不显示车号和费用合计

1、车号的单元格，不要超出<End>的范围；

2、费用合计，你也可以用 e.Book.Marks("送货吨位") = xxx 的方式计算得出嘛。

3、确实不会做就上传实例。

这不应该啊

我另一个版本是数值类,但是生成报表时就是少195和203这两个车号