主题：求Excel打印模板，有项目例子

这个意思？

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

点击浏览该文件:01模板.xls

统计参考 http://www.foxtable.com/webhelp/scr/1389.htm

统计，参考这里处理，不清楚你要统计哪些列的数据

http://www.foxtable.com/webhelp/scr/1389.htm

1、修改模板如

<cdbl([米数加送数])>
<cdbl(*[米数加送数+1]*)>
<cdbl(*[米数加送数+2]*)>

2、参考模板

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

点击浏览该文件:01模板.xls

3、参考代码

Dim fname As String = e.Form.name

'Dim dr As Row=Tables(fname & "_Table1").Current
Dim f As String = " 订单号 = 'DDH190304'"

Dim n As String = ProjectPath & "01模板.xls"
Dim Book As New XLS.Book(n)
'Dim r As Row=Tables(fname & "_Table1").Current
Dim fl As String = ProjectPath & "打印输出.xls"

book.AddDataTable("打印主表","主数据源","select * from DY_主表 ") '添加子表
book.AddDataTable("打印颜色列表","主数据源","select * from DY_颜色统计") '添加子表    2
book.AddDataTable("打印颜色统计","主数据源","select * from DY_颜色统计") '添加子表    2
book.AddDataTable("打印码单明细","主数据源","select * from YW_检验码单 where " &  f) '添加子表

book.AddRelation("打印主表","订单号","打印颜色列表","订单号") '建立关联2
book.AddRelation("打印主表","订单号","打印颜色统计","订单号") '建立关联2
book.AddRelation("打印颜色统计","颜色","打印码单明细","颜色") '建立关联2

Book.Build()
Book.Save(fl)

Dim App As New MSExcel.Application
Dim Wb As MSExcel.WorkBook = App.WorkBooks.Open(fl)
Dim Ws As MSExcel.WorkSheet = Wb.WorkSheets(1)
Dim Rg As MSExcel.Range
For i As Integer = 1 To ws.UsedRange.Rows.count
    If Ws.Cells(i,1).text = "TTL:" Then
        Ws.Cells(i, 2).FormulaR1C1 = "=COUNT(R[-40]C[1]:R[-1]C[1]"
        Ws.Cells(i, 4).FormulaR1C1 = "=SUM(R[-40]C:R[-1]C)"
        Ws.Cells(i, 6).FormulaR1C1 = "=COUNT(R[-40]C[2]:R[-1]C[2]"
        Ws.Cells(i, 7).FormulaR1C1 = "=COUNT(R[-40]C:R[-1]C"
    End If
Next
App.Visible = True

这个意思？ 

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

点击浏览该文件:01模板.xls