改成
Dim Book As New XLS.Book(ProjectPath & "Attachments\Packing list.xls")
'Dim fl As String = ProjectPath & "Reports\_Packing list.xls"
Dim fl As String = ProjectPath & "Reports\" & Tables("packinglist").current("shippingNo") & ".xls"
Dim r1 As Row = Nothing
Dim cn1 As Integer = 0
Dim cn2 As Double = 0
For i As Integer = 1 To Tables("Shipment.Packinglist").Rows.Count - 1
Dim r As Row = Tables("Shipment.Packinglist").Rows(i)
If r("boxno") = r.Table.current("boxno") AndAlso (r1 Is Nothing OrElse r("ShippingNo") & r("BoxNo") <> r1("ShippingNo") & r1("BoxNo"))
cn1 += 1
cn2 += r("Volume_CBM")
r1 = r
End If
Next
vars("总箱数") = cn1
vars("总立方") = cn2
Dim Sheet As XLS.Sheet = Book.Sheets(0)
sheet(5,14).value = "<BoxNo='" & Tables("Shipment.Packinglist").current("boxno") & "'>"
Book.Build() '生成细节区
sheet = Book.Sheets(0)
'Dim idx As Integer = 5
'For i As Integer = 7 To sheet.Rows.Count - 5
' If sheet(i,6).text & sheet(i,1).text <> sheet(i-1,7).text & sheet(i-1,1).text
' If i > idx +1
' For j As Integer = idx+1 To i-1
' msgbox(j & " " & idx & " " & i)
' sheet(j, 13).value = 0
' Next
Dim idx As Integer = 5
For i As Integer = 6 To sheet.Rows.Count - 5
If sheet(i,8).text <> sheet(i-1,8).text
If i > idx +1
For j As Integer = idx+1 To i-1
'msgbox(j & " " & idx & " " & i)
sheet(j, 12).value = 0
Next
Sheet.MergeCell(idx,8,i-idx,1)
Sheet.MergeCell(idx,9,i-idx,1)
Sheet.MergeCell(idx,10,i-idx,1)
Sheet.MergeCell(idx,11,i-idx,1)
Sheet.MergeCell(idx,12,i-idx,1)
End If
idx = i
End If
Next
Book.Save(fl) '保存工作簿
Dim Proc As New Process '打开工作簿
Proc.File = fl
proc.start
加好友 
发短信
Post By：2018/11/8 21:57:00 [只看该作者]
此主题相关图片如下：捕获4.png