1 做好一个按订单号分组输出的报表模版
2 按查询条件以订单号分组输出报表
dim filter1 as string ="查询条件"
Dim V2 As List(Of String)=DataTables("货物明细表").GetUniqueValues(filter1,"入库单编号")
For Each rkdbh As String In V2
Dim Book As New XLS.Book(ProjectPath & "Attachments\入库单.xlsx")
Dim fl As String = ProjectPath & "Reports\入库单.xlsx"
Book.Build() '生成细节区
Book.Save(fl) '保存工作簿
next
Dim Proc As New Process '打开工作簿
Proc.File = fl
Proc.Start()
具体的合计计算,大小写等工作由报表模板完成,不需要写程序代码
加好友 
发短信
Post By：2012/10/26 9:54:00 [显示全部帖子]
