以文本方式查看主题 -  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=186391)

--  作者：victor_lin33 --  发布时间：2023/4/25 21:17:00 --  窗口按钮(产生EXCEL报表)时,实现依条件选择不同模版的代码写法? 蓝老师: 资料表有一列"使用单据"  想要在窗口按钮控件的click事件中实现 >不同"使用单据" 产生不同模版报表 >就是先判断所勾选的行如果 "使用单据"  是 "A单据" 就打印 A单据模版 .."B单据" 就打印 B单据模版... 请指导我怎样增加(修改)代码...谢谢! 现在代码如下: Dim rs As list(Of Row) = Tables("项目总览表.试制策划").GetCheckedRows If rs.count <= 0 Then     msgbox("没有勾选")     Return Else     MessageBox.Show("开启约需5-10秒钟,请勿重覆点击！")     DataTables("试制策划").Save()     DataTables("策划试制砂明细").Save()     DataTables("策划制芯明细").Save() End If For Each r As Row In rs     Dim Book As New XLS.Book(ProjectPath & "Attachments\\试制策划单.xlsx")      Dim fl As String = "d:\\BPM报表\\" & r("使用单据") & "  " & r("项目名称") & "  " & r("单号") & ".xlsx" \'保存的路径与档名     r.Table.Position = r.Index \'每一笔生成一档案     Book.Build() \'生成细节区     Book.Save(fl) \'保存文件     Dim Proc As New Process \'打开文件     Proc.File = fl     Proc.Start() Next

--  作者：有点蓝 --  发布时间：2023/4/26 8:39:00 --   Dim Book As New XLS.Book(ProjectPath & "Attachments\\试制策划单.xlsx")  改为 Dim Book As New XLS.Book(ProjectPath & "Attachments\\" & r("使用单据") & ".xlsx")