以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  [求助]咨询一下循环导出  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=111508)
--  作者：l1q2lq
--  发布时间：2017/12/23 10:54:00
--  [求助]咨询一下循环导出
Dim t As Table = e.Form.Controls("Table1").Table
Dim Book As New XLS.Book(ProjectPath & "Attachments\\采购订单模板.xlsx")
Dim fl As String = ProjectPath & "Reports\\采购订单\\" & t.current("采购订单号") & "-" & t.current("供应商") & "采购订单.xlsx"
Book.Build() \'生成细节区
Book.Save(fl) \'保存工作簿

以上这段代码只能选择一行订单导出一次，若选择多行则订单导出在一个XLSX里，如果想要选择多行后每行导出一个XLSX，需要怎么修改
--  作者：有点蓝
--  发布时间：2017/12/23 11:05:00
--  
使用勾选的方式：http://www.foxtable.com/webhelp/scr/1776.htm

然后参考：

Dim t As Table = e.Form.Controls("Table1").Table
For Each r As Row In t.GetCheckedRows()
    t.Position = r.Index
    Dim Book As New XLS.Book(ProjectPath & "Attachments\\采购订单模板.xlsx")
    Dim fl As String = ProjectPath & "Reports\\采购订单\\" & r("采购订单号") & "-" & r("供应商") & "采购订单.xlsx"
    Book.Build() \'生成细节区
    Book.Save(fl) \'保存工作簿
End If