以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  [求助]报表  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=106922)

--  作者:xh2207
--  发布时间:2017/9/18 11:29:00
--  [求助]报表

请指教,窗口有多列,只显示部分列,在窗口的输出按键设置如下代码,

导出excel模板,只有1行数据?究竟是代码问题还是模板的问题,请赐教并将修改的贴出,小狗到期了。非常感激!!

 

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


 


此主题相关图片如下:muban.png
按此在新窗口浏览图片

--  作者:有点甜
--  发布时间:2017/9/18 11:55:00
--  

模板没问题。你窗口表有多少行数据,就会导出多少行的。

 

但你的模板应该用关联表的方式设计 http://www.foxtable.com/webhelp/scr/0204.htm

 

如果还有问题,做个例子上来看看。


--  作者:xh2207
--  发布时间:2017/9/19 11:51: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.Verb = "Print" \'指定动作
\'Proc.Start()

 

\'将窗口明细表的列导出EXCEL表,保存在c:\\reports\\工程需求.xls,已测试可用,勿删!!!
Dim Book As New XLS.Book(ProjectPath & "Attachments\\订货.xls") \'模板存放位置
Dim Sheet As XLS.Sheet = Book.Sheets(0)
Sheet(5,6).Value = "制单人:" & User.Name \'修改模板,加入制单人信息
Dim fl As String = ProjectPath & "Reports\\订货单.xls" \'导出后excel表存放位置
Book.Build() \'生成细节区
Book.Save(fl) \'保存工作簿
Dim Proc As New Process \'打开工作簿
Proc.File = fl
Proc.Start()


--  作者:有点甜
--  发布时间:2017/9/19 12:02:00
--  
 做个可以测试的例子上传上来。