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

对了，太感谢了。最后模板保存时取相应的shippingNo号作文件名，也请帮忙完善一下。最后再次感谢。

此主题相关图片如下：捕获2.png

Dim fl As String = ProjectPath & "Reports\" & tables("某某表").current("shippingNo") & ".xls"

老师，对不起，我把模板调整了一下，结果就不对了，再麻烦一下。能帮忙备注一下要怎么调，也好学习一下。谢谢。

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:packing list.xls

什么地方不对？

我调整了一下位置后就一对了，另外在单元格M3中加了个shippinNO后没有出现。谢谢指点。

此主题相关图片如下：捕获.png

<Shipments>从A5移到A3

黄色的没有合并了。请看。
此主题相关图片如下：捕获.png

更改代码中的合并位置：http://www.foxtable.com/webhelp/scr/1153.htm

老师，还请帮忙看一下，我改成了8，9，10，11，12，还是不对，这个有点不懂

 

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, 5).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)

改成

 

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