Dim Book As New XLS.Book(ProjectPath & "Attachments\Packing list.xls")
Dim fl As String = ProjectPath & "Reports\_Packing list.xls"
Dim g As New GroupTableBuilder("统计表1", DataTables("Packinglist"))
g.Groups.AddDef("Box_No")
g.Groups.AddDef("Volume_CBM")
g.Totals.AddDef("Box_No", AggregateEnum.Count)
g.Filter = Tables("Packinglist").Filter
Dim dt As DataTable = g.Build(True)
vars("总箱数") = dt.DataRows.Count
vars("总立方") = dt.Compute("sum(Volume_CBM)")
Book.Build() '生成细节区
Dim Sheet As XLS.Sheet = Book.Sheets(0)
Dim idx As Integer = 5
For i As Integer = 6 To sheet.Rows.Count - 2
If sheet(i,0).text <> sheet(i-1,0).text
If i > idx +1
Sheet.MergeCell(idx,0,i-idx,1)
Sheet.MergeCell(idx,1,i-idx,1)
Sheet.MergeCell(idx,2,i-idx,1)
Sheet.MergeCell(idx,3,i-idx,1)
Sheet.MergeCell(idx,4,i-idx,1)
Sheet.MergeCell(idx,5,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/3 8:52:00 [只看该作者]
