以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  execel 导出问题  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=26425)

--  作者:kmzb56
--  发布时间:2012/12/4 9:27:00
--  execel 导出问题
如图:我想每次查到客户资料时,要求:(1)表头要显示公司名称:(2)每次:查出的数据行数量不一样,选择到多条可以导出(这个功能能实现)但关键的是每次查到的公司名不一样,要变化公司名:这个实现不了。
图片点击可在新窗口打开查看此主题相关图片如下:excel导出.jpg
图片点击可在新窗口打开查看

--  作者:狐狸爸爸
--  发布时间:2012/12/4 9:48:00
--  

在这些地方找答案:

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

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

 


--  作者:kmzb56
--  发布时间:2012/12/4 12:10:00
--  
狐爸:帮我看一下,怎么不行?
Vars.Add("gs",Gettype(String),False)

Dim gsname As Row=Tables("发货记录查询_table1").current()
Vars("gs")=gsname("客户名称") 

Dim Book As New XLS.Book(ProjectPath & "Attachments\\发货记录模板.xls")
    Dim fl As String = ProjectPath & "Reports\\发货记录模板.xls"
    Book.Marks.Add("客户名称",gs)
    Book.Build() \'生成细节区
    Book.Save(fl) \'保存工作簿
    Dim Proc As New Process \'打开工作簿  
    Proc.File = fl
    Proc.Start()

红色的地方通不过,说gs没定义,但我已定义的全局变量了呀,


--  作者:狐狸爸爸
--  发布时间:2012/12/4 12:16:00
--  
Book.Marks.Add("客户名称",Vars(gs))
--  作者:kmzb56
--  发布时间:2012/12/4 12:48:00
--  
老大:还是不对,还是报告没有定义gs
--  作者:kmzb56
--  发布时间:2012/12/4 12:53:00
--  
Vars.Add("gs",Gettype(String),False)
Dim gsname As Row=Tables("发货记录查询_table1").current()
Vars("gs")=gsname("客户名称") 
    Dim Book As New XLS.Book(ProjectPath & "Attachments\\发货记录模板.xls")
    Dim fl As String = ProjectPath & "Reports\\发货记录模板.xls"
    Book.Marks.Add("客户名称",vars(gs)) 
    Book.Build() \'生成细节区
    Book.Save(fl) \'保存工作簿
    Dim Proc As New Process \'打开工作簿  
    Proc.File = fl
    Proc.Start()


老大:还是不对,还是报告没有定义gs


--  作者:狐狸爸爸
--  发布时间:2012/12/4 12:54:00
--  
Book.Marks.Add("客户名称",vars("gs"))
--  作者:kmzb56
--  发布时间:2012/12/5 9:22:00
--  
狐爸:代码是通过了,但是在excel中插入[客户名称], ,<客户名称>,<gs>都不行,请问应该怎么样?
--  作者:lin_hailun
--  发布时间:2012/12/5 9:32:00
--  
 这个问题其实很简单的吧?

 在模版里插入一个标记 <我是标记>,然后编写代码。

 
Dim gsname As Row=Tables("发货记录查询_table1").current()
Dim Book As New XLS.Book(ProjectPath & "Attachments\\发货记录模板.xls")
Dim fl As String = ProjectPath & "Reports\\发货记录模板.xls"
Book.Marks("我是标记") = gsname("客户名称")
Book.Build() \'生成细节区
Book.Save(fl) \'保存工作簿
Dim Proc As New Process \'打开工作簿  
Proc.File = fl
Proc.Start()
[此贴子已经被作者于2012-12-5 9:33:05编辑过]

--  作者:kmzb56
--  发布时间:2012/12/5 10:02:00
--  
不行,狐爸,这样不行,我试了,还是不行,这个问题都弄了好久了,我再试一下,你也帮我看一下,我到是看到一个方法看用父表的方式看可以不。