以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  excel报表逐行生成  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=132166)
--  作者：cd_tdh
--  发布时间：2019/3/15 13:06:00
--  excel报表逐行生成

老师，excel报表模板怎么逐行生成？这样写不对。

Dim rs As List(of Row) = Tables("挂证付款申请").GetCheckedRows()
For Each r As  Row In rs
    Dim Book As New XLS.Book(ProjectPath & "Attachments\\挂证付款申请.xls")
    Dim fl As String =  ProjectPath &  "Reports\\挂证付款申请.pdf"
    Book.Build() \'生成细节区
    Book.SaveToPDF(fl) \'保存为PDF文件
    Dim Proc As New Process \'打开PDF文件
    Proc.File = fl
    Proc.Start()
Next

[此贴子已经被作者于2019/3/15 13:11:53编辑过]
--  作者：有点甜
--  发布时间：2019/3/15 15:40:00
--  

Dim rs As List(of Row) = Tables("挂证付款申请").GetCheckedRows()
For Each r As  Row In rs
    Dim Book As New XLS.Book(ProjectPath & "Attachments\\挂证付款申请.xls")
    Dim fl As String =  ProjectPath &  "Reports\\挂证付款申请" & r.index & ".pdf"
    r.Table.Position = r.Index
    Book.Build() \'生成细节区
    Book.SaveToPDF(fl) \'保存为PDF文件
    Dim Proc As New Process \'打开PDF文件
    Proc.File = fl
    Proc.Start()
Next

 
--  作者：cd_tdh
--  发布时间：2019/3/15 16:29:00
--  
老师，这样生成的是两个，怎么生存到一个，两页？
--  作者：有点甜
--  发布时间：2019/3/15 16:55:00
--  

动态合成条件，然后赋值到excel模板里面去，如

 

http://www.foxtable.com/webhelp/scr/2626.htm

 

不会做，发具体实例上来测试
--  作者：cd_tdh
--  发布时间：2019/3/15 17:07:00
--  
示例上传了，请老师看看
 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:管理项目1.rar

[此贴子已经被作者于2019/3/15 17:06:55编辑过]
--  作者：有点甜
--  发布时间：2019/3/15 17:34:00
--  

参考代码

 

Dim rs As List(of Row) = Tables("挂证付款申请").GetCheckedRows()
Dim filter As String = "1=2"
For Each r As  Row In rs
    filter &= " or [_Identify] = " & r("_Identify")
Next
Dim Book As New XLS.Book(ProjectPath & "Attachments\\挂证付款申请.xls")
Dim fl As String =  ProjectPath &  "Reports\\挂证付款申请.pdf"
book.sheets(0)(1, 11).value = "<" & filter & ">"
Book.Build() \'生成细节区
Book.SaveToPDF(fl) \'保存为PDF文件
Dim Proc As New Process \'打开PDF文件
Proc.File = fl
Proc.Start()