| 以文本方式查看主题 - Foxtable(狐表) (http://foxtable.com/bbs/index.asp) -- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2) ---- 设置条件打印报表问题 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=114112) |
| -- 作者：aza520 -- 发布时间：2018/1/29 10:28:00 -- 设置条件打印报表问题 我有两WORD报表模板，想在一个按钮中实现有条件生成报表的功能，就是当“表B”的“第一列”有数据时，生成“报表1”，“第一列”没有数据时，生成“报表2”，能实现 吗？其中“表A”与“表B”关联，“表B”是子表。 Dim tm As String = ProjectPath & "Attachments\\报表1.doc" \'指定模板文件 Dim fl As String = ProjectPath
& "Reports\\报表1.doc"
\'指定目标文件 Dim wrt As
New WordReport(Tables("表A"),tm,fl) \'定义一个WordReport wrt.Build() \'逐行生成报表 wrt.Show() \'显示报表
Dim tm As String = ProjectPath & "Attachments\\报表2.doc" \'指定模板文件 Dim fl As String = ProjectPath
& "Reports\\报表2.doc"
\'指定目标文件 Dim wrt As New WordReport(Tables("表A"),tm,fl) \'定义一个WordReport wrt.Build() \'逐行生成报表 wrt.Show() \'显示报表 |
| -- 作者：有点甜 -- 发布时间：2018/1/29 10:50:00 -- 这个意思？
If Tables("表B").Current("第一列") = nothing Then
Else
End If
或者
If Tables("表a.表B").Current("第一列") = nothing Then
Else
End If |
| -- 作者：aza520 -- 发布时间：2018/1/29 11:21:00 -- 谢谢老师 |