……
Dim 生产合同编号 As String
Dim 姓名 As String
Dim 状态 As String
Dim Path As String = ""
Dim fl As String = ""
Dim drs As List(of DataRow) = DataTables("生产合同").SQLSelect(批量循环条件)
Dim 合同数量 As Integer = DRS.Count
Dim Y1 As Integer = 0
StatusBar.Message2 = 批量循环条件
StatusBar.Message3 = 合同数量
If 合同数量 = 0 Then
MESSAGEBOX.SHOW("没有打印导出的生产合同")
Return
End If
For Each dr As DataRow In drs
Y1 =Y1 + 1
生产合同编号 = dr("生产合同编号")
姓名 = dr("新建人")
状态 = dr("状态")
Path = ProjectPath & "\报表\" & "生产合同\" & 状态 & "\"
fl = Path & 生产合同编号 & "-" & 姓名 & ".xls"
Dim Book As New XLS.Book(ProjectPath & "Attachments\生产合同-报表.xls")
Book.Build() '生成细节区
Book.Save(fl) '保存工作簿
StatusBar.Message3 = Y1 & "/" & 合同数量 & " / " & 生产合同编号
Application.DoEvents
Next
加好友 
发短信
Post By：2021/11/7 21:54:00 [显示全部帖子]
