主题：统计报表车号不显示

 

此主题相关图片如下：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

 

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