主题：请教怎么根据规格生成不同编码

我A表中的数据是这样的

我要输出的报表格式是这样的

我想借鉴下面的代码，最终输出一个excel表格文件，怎么实现，请高手指导！！

Dim dt As DataTable = DataTables("订单")
Dim Book As New XLS.Book '定义一个Excel工作簿
Dim Sheet As XLS.Sheet = Book.Sheets(0) '引用工作簿的第一个工作表
Dim Names As List(Of String) = dt.GetUniqueValues("","产品")
Sheet(0,1).Value = "产品销售统计"

For i As Integer = 0 to Names.Count - 1
    Sheet(i + 1, 0).Value = Names(i)
    Sheet(i + 1, 1).Value = dt.Compute("Sum(数量)","[产品] = '" & Names(i) & "'")
Next
'下面的代码用于将首行字体加粗

Dim Style As XLS.Style = Book.NewStyle
Style.FontBold = True
Sheet(0,1).Style = Style
'打开工作簿
Book.Save("c:\reports\test.xls")
Dim Proc As New Process
Proc.File = "c:\reports\test.xls"
Proc.Start()

狐爸给的代码我在帮助文件中已经学习过，但是不符合我的要求。

我现在只有每个品类的数量，要输出品类对应数量的个数的代码

例如A1数量是10，我要输出A1B0001--A1B0010，品类和固定字段也要自动输出，因为不可能来手动录入，工作量太大，请狐爸帮忙。

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

点击浏览该文件:book7.xls