以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  临时表支持excel模版吗?  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=9999)

--  作者:blackzhu
--  发布时间:2011/5/17 21:47:00
--  临时表支持excel模版吗?
用代码生成的临时表我知道用saveexcel支持保存到excel,但是支持模版生成报表吗?
--  作者:狐狸爸爸
--  发布时间:2011/5/17 21:52:00
--  

支持,一样,用代码:

 

http://help.foxtable.com/topics/1145.htm

 


--  作者:blackzhu
--  发布时间:2011/5/17 22:08:00
--  

老大,那表名写什么?

 


--  作者:狐狸爸爸
--  发布时间:2011/5/17 22:12:00
--  

临时表不是也有名称的吗?
如果名称不固定,可以通过代码修改模板,加粗的代码根绝需要调整编写。
 
 
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()


--  作者:blackzhu
--  发布时间:2011/5/17 22:19:00
--  
CrossTableBuilder  生成的这个统计表能用模版吗?
--  作者:狐狸爸爸
--  发布时间:2011/5/17 22:23:00
--  

可以


--  作者:blackzhu
--  发布时间:2011/5/17 22:25:00
--  

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()

 

 

老大,帮帮忙,这一段代码生成的临时表,报表的名称叫运作单,写一个模版打印的代码给我,行吗?从来没有接触过和弄过这个.


--  作者:狐狸爸爸
--  发布时间:2011/5/17 22:33:00
--  

既然表名固定,设计模板的时候,表名直接指定为<运作单窗口>即可。

打印代码:

 

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()


--  作者:blackzhu
--  发布时间:2011/5/17 22:41:00
--  
怎么没有用啊?
图片点击可在新窗口打开查看此主题相关图片如下:tm截图未命名.jpg
图片点击可在新窗口打开查看

--  作者:狐狸爸爸
--  发布时间:2011/5/17 22:47:00
--  

正常,注意文件和路径,如果不正确,就会出现你说的的错误:

 

Dim Book As New XLS.Book(ProjectPath & "Attachments\\模板名称.xls")