主题：[求助] 有关报关输出汇总问题

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
Tables("Shipment.Packinglist").sort = "BoxNo"
For i As Integer = 1 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")
        r1 = r
    End If
Next

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

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,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()

谢谢版主。学习了。

版主，又不对了，看，这次加总对了，便不合并了，是什么问题？不解。

50楼的实例我测试没有问题。如果代码完全看不懂，先去学学基础吧：http://www.foxtable.com/webhelp/scr/1592.htm

发现问题了，原来是模板的列不对了

版主，我在模板 C列插入了一列，改了以下的内容，可是不对，能不能帮忙再看一下，还要改哪几行，才正确，麻烦了。

 

            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)
            Sheet.MergeCell(idx,13,i-idx,1)

 

If sheet(i,9).text <> sheet(i-1,9).text
        If i > idx +1
            For j As Integer = idx+1 To i-1
                'msgbox(j & " " & idx & " " & i)
                sheet(j, 13).value = 0
            Next

            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)
            Sheet.MergeCell(idx,13,i-idx,1)
        End If
        idx = i
    End If

真心谢谢。又学习了。