Dim bd1 As New CrossTableBuilder("统计表1", jd)
bd1.HGroups.AddDef("产品名称") '添加客户列用于水平分组
bd1.HGroups.AddDef("规格型号") '添加客户列用于水平分组
bd1.HGroups.AddDef("单位") '添加客户列用于水平分组
bd1.VGroups.AddDef("接单日期", DateGroupEnum.Year, "{0}年")
bd1.VGroups.AddDef("接单日期", "{0}月") '添加日期列用于垂直分组,按月分组
bd1.VGroups.AddDef("客户来源", "{0}")
bd1.Totals.AddDef("销售数量", "接单")
bd1.Totals.AddDef("已发货数量", "发货")
Tables("统计汇总_table1").DataSource = bd1.BuildDataSource()
Dim tbl As Table = Tables("统计汇总_table1")
Dim hdr As Integer = tbl.HeaderRows '获得表头的层数
Dim szs() As Integer = {250, 120, 50}
Dim Book As New XLS.Book
Dim Sheet As XLS.Sheet = Book.Sheets(0)
Dim Style As XLS.Style = Book.NewStyle() '定义新样式
Dim fnt As New Font("宋", 11)
Style.ForeColor = Color.black '设置样式的字体颜色
Style.AlignHorz = XLS.AlignHorzEnum.Center
Style.AlignVert = XLS.AlignVertEnum.Center
tbl.CreateSheetHeader(Sheet, 1, 0, False) '生成表头
Sheet.DefaultRowHeight = 35
Sheet.GridColor = Color.blue
For f As Integer = 0 To 2
Sheet.Cols(f).Width = szs(f) '指定列宽
Next
For s As Integer = 3 To tbl.Cols.Count - 1
Sheet.Cols(s).Width = 50 '指定列宽
Next
For c As Integer = 0 To tbl.Cols.Count - 1
For r As Integer = 1 To tbl.Rows.Count - 1
sheet(r + hdr, c).value = tbl(r, c)
Sheet.MergeCell(0, 0, 1, c + 1)
Sheet(0, 0).Value = "接单送货汇总表"
Sheet(r, c).Style = Style
Sheet(r, c).Style.Font = fnt
Next
Next
Dim St2 As XLS.Style = Book.NewStyle
St2.Font = New Font("微软雅黑", 15, FontStyle.Bold)
St2.AlignHorz = XLS.AlignHorzEnum.Center
St2.AlignVert = XLS.AlignVertEnum.Center
Sheet.Rows(tbl.Rows("0").Index).Style = st2
Book.Save("d:\data\接单送货汇总表.xls")
Dim Proc As New Process
Proc.File = "d:\data\接单送货汇总表.xls"
Proc.Start()
加好友 
发短信
Post By：2024/12/20 16:02:00 [只看该作者]
