以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  报表  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=42777)

--  作者:yuyu060712
--  发布时间:2013/11/21 17:03:00
--  报表
老师,我想问问EXCEL报表导出后,保存文件名可以用数据表中的一些数据进行生成吗?
--  作者:狐狸爸爸
--  发布时间:2013/11/21 17:06:00
--  

可以,参考:

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

 


--  作者:Bin
--  发布时间:2013/11/21 17:07:00
--  
当然可以,使用代码导出的话,名称是可以随意起的.


--  作者:yuyu060712
--  发布时间:2013/11/21 17:13:00
--  
老师,可能我没说清楚,比如:我的报表模板是:合格证 报表生成出来就是 合格证.xls我想的是用生成这个报表的其中的一段数据来替代“合格证”这3个字,比如X3-1655.XLS
--  作者:Bin
--  发布时间:2013/11/21 17:14:00
--  
你好,请查看我给你发的帮助连接,使用代码报错文件名是一个参数,是可以随意定义的.从哪里取都可以.例如在 表A的当前行 B列取 

CurrentTable.SaveExcel("C:\\data\\" & tables("表A").current("B列") & ".xls","订单")

--  作者:狐狸爸爸
--  发布时间:2013/11/21 17:17:00
--  

2楼的答案就是的了,例如你要用当前行某列的值作为文件名,帮助的原来的代码是:
 
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")
Dim fl As String = ProjectPath & "Reports\\“ & tables("表名").current("列名") & ".xls"
Book.Build() \'生成细节区
Book.Save(fl) \'保存工作簿
Dim Proc As New Process \'打开工作簿
Proc.File = fl
Proc.Start()

既然是编码,文件名随意生成。

[此贴子已经被作者于2013-11-21 17:23:08编辑过]

--  作者:yuyu060712
--  发布时间:2013/11/21 17:32:00
--  
老师,几个列名相加呢?列名1-列名2-列名3 这个表达式怎么写?
--  作者:Bin
--  发布时间:2013/11/21 17:33:00
--  
http://www.foxtable.com/help/topics/0221.htm

图片点击可在新窗口打开查看

 

看帮助一定要按顺序,头一两遍可以不求甚解,第三遍开始要将每个例子实际操作演练一遍,不明白的就上论坛求助。
三遍之后才开始做系统,先设计好表,想做什么功能,就做什么功能,遇到问题在帮助找答案,找不到的在论坛提问,不断遇到问题,不断解决问题,慢慢就熟悉了。
此外一定要先掌握《使用指南》,然后再看《开发指南》


--  作者:狐狸爸爸
--  发布时间:2013/11/21 17:36:00
--  

Dim r As Row = tables("表名").current

Dim Book As New XLS.Book(ProjectPath & "Attachments\\出库单.xls")
Dim fl As String = ProjectPath & "Reports\\“ & r("列名1") & r("列名2") & r("列名3") & ".xls"
Book.Build() \'生成细节区
Book.Save(fl) \'保存工作簿
Dim Proc As New Process \'打开工作簿
Proc.File = fl
Proc.Start()

 

呵呵,楼主可能还没有看到开发指南吧, 先参考上面的代码写。


--  作者:yuyu060712
--  发布时间:2013/11/21 17:40:00
--  
 "Reports\\" & r("材检编号") & "-" & r("编号") & "-" r("工票编号") & ".xls"
这样不行呢?