以文本方式查看主题 - 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()
|
|
-- 作者:狐狸爸爸 -- 发布时间: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 -- 不行,狐爸,这样不行,我试了,还是不行,这个问题都弄了好久了,我再试一下,你也帮我看一下,我到是看到一个方法看用父表的方式看可以不。 |