生成报表，并选择储存位置。但是不打开报表 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 生成报表，并选择储存位置。但是不打开报表

共有3488人关注过本帖树形打印复制链接主题：生成报表，并选择储存位置。但是不打开报表

Mr-sky

小大 1楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：幼狐帖子：68 积分：543 威望：0 精华：0 注册：2019/8/25 11:09:00

生成报表，并选择储存位置。但是不打开报表 发帖心情

Post By：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

str = str.Trim(vbcr).Trim(vblf)

wrt.Replace("[存在问题]",str)

wrt.BuildOne(Tables("季度大检查记录表").current)

wrt.Show() '显示报表

Forms("提示窗口").Close

有点蓝

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：110738 积分：563610 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：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

str = str.Trim(vbcr).Trim(vblf)

wrt.Replace("[存在问题]",str)

wrt.BuildOne(Tables("季度大检查记录表").current)

wrt.Quit()

Forms("提示窗口").Close

End If

下一主题 >> << 上一主题

主题：生成报表，并选择储存位置。但是不打开报表