Dim r1 As Row = Nothing
Dim cn1 As Integer = 0
Dim cn2 As Double = 0
Dim cn3 As Double = 0
Tables("Shipment.Packinglist").sort = "BoxNo"
For i As Integer = 0 To Tables("Shipment.Packinglist").Rows.Count - 1
    Dim r As Row = Tables("Shipment.Packinglist").Rows(i)
    If r1 Is Nothing OrElse r("ShippingNo") & r("BoxNo") <> r1("ShippingNo") & r1("BoxNo")
        cn1 += 1
        cn2 += r("Volume_CBM")
        cn3 += r("Gross_weight")
        r1 = r
    End If
Next

vars("总箱数") = cn1
vars("总立方") = cn2
vars("总毛重") = cn3

Book.Build() \'生成细节区
Dim Sheet As XLS.Sheet = Book.Sheets(0)

Dim idx As Integer = 5
For i As Integer = 6 To sheet.Rows.Count - 5
    If sheet(i,10).text <> sheet(i-1,10).text
        If i > idx +1
            For j As Integer = idx+1 To i-1
                \'msgbox(j & " " & idx & " " & i)
                sheet(j, 14).value = 0
            Next
           
            Sheet.MergeCell(idx,10,i-idx,1)
            Sheet.MergeCell(idx,11,i-idx,1)
            Sheet.MergeCell(idx,12,i-idx,1)
            Sheet.MergeCell(idx,13,i-idx,1)
            Sheet.MergeCell(idx,14,i-idx,1)
        End If
        idx = i
    End If
Next