[求助]我想打印合同后将所打印行的状态列内容改为已打印，下面的判断spzt是否为已批准不够逻辑，能否点击打印按钮后判断所打印内容的状态列内容是否全部都是已批准，如果全是已批准，那么执行打印并将状态列内容改成已打印，如果有任何一条状态列数据不是已批准，那么弹出提示并取消打印，求大侠帮忙解决下，谢谢
Dim zt As WinForm.ComboBox = e.Form.Controls("ComboBox4")
Dim spzt As String =zt.text
If spzt = "已批准" Then
Dim Book As New XLS.Book(ProjectPath & "Attachments\合同一览表.xls")
Dim fl As String = ProjectPath & "Reports\合同一览表.xls"
Book.Build() '生成细节区
Book.Save(fl) '保存工作簿
Dim Proc As New Process '打开工作簿
Proc.File = fl
'Proc.Verb = "Print" '指定动作
Proc.Start()
Else
msgbox("请确认所查询的数据全部已批准")
End If
加好友 
发短信
Post By：2017/12/29 12:33:00 [显示全部帖子]
