Rss & SiteMap
Foxtable(狐表) http://www.foxtable.com
老大,那表名写什么?
临时表不是也有名称的吗?
如果名称不固定,可以通过代码修改模板,加粗的代码根绝需要调整编写。
Dim Book As New XLS.Book(ProjectPath & "Attachments\出库单.xls")
Dim fl As String = ProjectPath & "Reports\出库单.xls"
Dim Sheet As XLS.Sheet = Book.Sheets(0)
Sheet(3,0) = "<临时表名>"
Sheet(6,0) = "<临时表名>"
Book.Build() '生成细节区
Book.Save(fl) '保存工作簿
Dim Proc As New Process '打开工作簿
Proc.File = fl
Proc.Start()
可以
Dim g As New CrossTableBuilder("运作单窗口", DataTables("运作单"))
g.HGroups.AddDef("制单ID")
g.HGroups.AddDef("递交面料")
g.HGroups.AddDef("递交辅料")
g.HGroups.AddDef("递交样卡")
g.HGroups.AddDef("款号")
g.HGroups.AddDef("英文款名")
g.HGroups.AddDef("中文款名")
g.HGroups.AddDef("类别")
g.HGroups.AddDef("面辅料ID")
g.HGroups.AddDef("面辅料名称")
g.HGroups.AddDef("用于部位")
g.HGroups.AddDef("面辅料单耗")
g.HGroups.AddDef("供应来源")
g.VGroups.AddDef("颜色")
g.Totals.AddDef("配色说明", "配色说明")
Tables("运作单_Table1").DataSource = g.BuildDataSource()
老大,帮帮忙,这一段代码生成的临时表,报表的名称叫运作单,写一个模版打印的代码给我,行吗?从来没有接触过和弄过这个.
既然表名固定,设计模板的时候,表名直接指定为<运作单窗口>即可。
打印代码:
Dim Book As New XLS.Book(ProjectPath & "Attachments\模板名称.xls")
Dim fl As String = ProjectPath & "Reports\模板名称.xls"
Book.Build() '生成细节区
Book.Save(fl) '保存工作簿
Dim Proc As New Process '打开工作簿
Proc.File = fl
Proc.Start()
正常,注意文件和路径,如果不正确,就会出现你说的的错误:
Dim Book As New XLS.Book(ProjectPath & "Attachments\模板名称.xls")