以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  窗口按钮(产生EXCEL报表)时,实现依条件选择不同模版的代码写法?  (http://foxtable.net/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")