以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  生成报表，并选择储存位置。但是不打开报表  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=147752)
--  作者：Mr-sky
--  发布时间：2020/3/23 14:10:00
--  生成报表，并选择储存位置。但是不打开报表
求助！想要实现的功能：生成报表，并选择储存位置，但是不打开报表。下面的代码是生成好直接打开的，要怎么修改呢？
单击按钮
Forms("提示窗口").open
Application.DoEvents()\'显示正在执行,请稍后

Dim tm As String  = ProjectPath & "Attachments\\处罚通知单.doc" \'指定模板文件
Dim fl As String = ProjectPath & "Reports\\处罚通知单.doc" \'指定目标文件
Dim wrt As New WordReport(Tables("季度大检查记录表"),tm,fl) \'定义一个WordReport
Dim str As String = ""
    For Each r As Row In Tables("季度大检查记录表").rows \'逐行生成报表
If r("经济处罚") = "是"
        str = str & vbcrlf & r("存在问题")
End If
    Next
    str = str.Trim(vbcr).Trim(vblf)
wrt.Replace("[存在问题]",str)
wrt.BuildOne(Tables("季度大检查记录表").current)
wrt.Show() \'显示报表

Forms("提示窗口").Close
--  作者：有点蓝
--  发布时间：2020/3/23 15:26:00
--  
Dim dlg As New SaveFileDialog \'定义一个新的SaveFileDialog 
dlg.Filter= "word文件|*.doc" \'设置筛选器
If dlg.ShowDialog = DialogResult.Ok Then \'如果用户单击了确定按钮
Forms("提示窗口").open
Application.DoEvents()\'显示正在执行,请稍后

Dim tm As String  = ProjectPath & "Attachments\\处罚通知单.doc" \'指定模板文件
Dim fl As String = dlg.FileName \'指定目标文件
Dim wrt As New WordReport(Tables("季度大检查记录表"),tm,fl) \'定义一个WordReport
Dim str As String = ""
    For Each r As Row In Tables("季度大检查记录表").rows \'逐行生成报表
If r("经济处罚") = "是"
        str = str & vbcrlf & r("存在问题")
End If
    Next
    str = str.Trim(vbcr).Trim(vblf)
wrt.Replace("[存在问题]",str)
wrt.BuildOne(Tables("季度大检查记录表").current)
wrt.Quit() 

Forms("提示窗口").Close

End If