以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  请教怎么根据规格生成不同编码  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=22904)
--  作者：pefong
--  发布时间：2012/8/27 10:04:00
--  请教怎么根据规格生成不同编码

我A表中的数据是这样的

品类 固定字段 数量
A1 B0 10
A2 B0 100

 

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

品类 固定字段 编码
A1 B0 A1B0001
A1 B0 A1B0002
. . .
A1 B0 A1B0010
A2 B0 A2B0001
. . .
. . .
A2 B0 A2B0100
. . .
. . .

 

 

我想借鉴下面的代码，最终输出一个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()
--  作者：pefong
--  发布时间：2012/8/27 10:42:00
--  
急用，各位高手帮忙了
--  作者：狐狸爸爸
--  发布时间：2012/8/27 11:59:00
--  
 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:管理项目59.table
--  作者：pefong
--  发布时间：2012/8/27 14:24:00
--  

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

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

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

 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:book7.xls
--  作者：飞
--  发布时间：2012/8/27 14:39:00
--  

Dim Book As new XLS.Book
Dim Sht As XLS.Sheet = Book.Sheets(0)

Dim r As Long = 0
Sht(r,0).Value = "品类"
Sht(r,1).Value = "固定字段"
Sht(r,2).Value = "编码"
For Each Dr As DataRow In DataTables("表A").DataRows
    If Not Dr.IsNull("品类") Then
        For i As Integer = 1 To Dr("数量")
            R + = 1
            Sht(r,0).Value = Dr("品类")
            Sht(r,1).Value = Dr("固定字段")
            Sht(r,2).Value = Dr("品类") & Dr("固定字段") & Format(i,"000")
        Next
    End If
    R + = 1
Next

 

Dim Style As xls.style = book.NewStyle
Style.FontBold = True
Sht.Rows(0).Style = Style

 

Book.Save("d:\\test.xls")


Dim proc As new Process
proc.File = "d:\\test.xls"
proc.Start
[此贴子已经被作者于2012-8-27 14:40:19编辑过]
--  作者：pefong
--  发布时间：2012/8/27 18:17:00
--  无
非常感谢，很好用@