蓝老师:资料表有一列"使用单据" 想要在窗口按钮控件的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
加好友 
发短信
Post By：2023/4/25 21:17:00 [显示全部帖子]
