Foxtable(狐表)用户栏目专家坐堂 → 临时表支持excel模版吗?


  共有12001人关注过本帖树形打印复制链接

主题:临时表支持excel模版吗?

帅哥哟,离线,有人找我吗?
blackzhu
  1楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信 一级勋章
等级:狐仙 帖子:9875 积分:57596 威望:0 精华:15 注册:2008/9/1 9:45:00
临时表支持excel模版吗?  发帖心情 Post By:2011/5/17 21:47:00 [只看该作者]

用代码生成的临时表我知道用saveexcel支持保存到excel,但是支持模版生成报表吗?

 回到顶部
帅哥哟,离线,有人找我吗?
狐狸爸爸
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:管理员 帖子:47448 积分:251060 威望:0 精华:91 注册:2008/6/17 17:14:00
  发帖心情 Post By:2011/5/17 21:52:00 [只看该作者]

支持,一样,用代码:

 

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

 


 回到顶部
帅哥哟,离线,有人找我吗?
blackzhu
  3楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信 一级勋章
等级:狐仙 帖子:9875 积分:57596 威望:0 精华:15 注册:2008/9/1 9:45:00
  发帖心情 Post By:2011/5/17 22:08:00 [只看该作者]

老大,那表名写什么?

 


 回到顶部
帅哥哟,离线,有人找我吗?
狐狸爸爸
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:管理员 帖子:47448 积分:251060 威望:0 精华:91 注册:2008/6/17 17:14:00
  发帖心情 Post By: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
  5楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信 一级勋章
等级:狐仙 帖子:9875 积分:57596 威望:0 精华:15 注册:2008/9/1 9:45:00
  发帖心情 Post By:2011/5/17 22:19:00 [只看该作者]

CrossTableBuilder  生成的这个统计表能用模版吗?

 回到顶部
帅哥哟,离线,有人找我吗?
狐狸爸爸
  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:管理员 帖子:47448 积分:251060 威望:0 精华:91 注册:2008/6/17 17:14:00
  发帖心情 Post By:2011/5/17 22:23:00 [只看该作者]

可以


 回到顶部
帅哥哟,离线,有人找我吗?
blackzhu
  7楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信 一级勋章
等级:狐仙 帖子:9875 积分:57596 威望:0 精华:15 注册:2008/9/1 9:45:00
  发帖心情 Post By: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()

 

 

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


 回到顶部
帅哥哟,离线,有人找我吗?
狐狸爸爸
  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:管理员 帖子:47448 积分:251060 威望:0 精华:91 注册:2008/6/17 17:14:00
  发帖心情 Post By: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
  9楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信 一级勋章
等级:狐仙 帖子:9875 积分:57596 威望:0 精华:15 注册:2008/9/1 9:45:00
  发帖心情 Post By:2011/5/17 22:41:00 [只看该作者]

怎么没有用啊?
图片点击可在新窗口打开查看此主题相关图片如下:tm截图未命名.jpg
图片点击可在新窗口打开查看

 回到顶部
帅哥哟,离线,有人找我吗?
狐狸爸爸
  10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:管理员 帖子:47448 积分:251060 威望:0 精华:91 注册:2008/6/17 17:14:00
  发帖心情 Post By:2011/5/17 22:47:00 [只看该作者]

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

 

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


 回到顶部
总数 16 1 2 下一页