以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]我想打印合同后将所打印行的状态列内容改为已打印  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=111796)
--  作者：188802386
--  发布时间：2017/12/29 12:33:00
--  [求助]我想打印合同后将所打印行的状态列内容改为已打印
[求助]我想打印合同后将所打印行的状态列内容改为已打印，下面的判断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
--  作者：有点甜
--  发布时间：2017/12/29 14:56:00
--  

 你是父子表一起打印的情况？那先看看下面的【实例四】

 

http://www.foxtable.com/webhelp/scr/2649.htm