- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- [求助]请帮忙解决Excel报表条件筛选打印问题 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=106425)
-- 发布时间：2017/9/8 12:00:00
-- [求助]请帮忙解决Excel报表条件筛选打印问题
我需要打印报表1，条件是：子表关注年度列有数据的行，而且是按子表关注年度项目进行的。如：要打印2016年度进行了关注的就只有序号为1，5，10的父表行打印；要打印2017年度进行了关注的就有序号为1，7，10我父表行打印.结果是:如图 下载信息 [文件大小： 下载次数： ] 
点击浏览该文件:管理项目1.table
此主题相关图片如下：2016.png
此主题相关图片如下：2017.png
-- 发布时间：2017/9/8 12:40:00
--
Dim nd As String = "2016年度"
Dim str As String = "-1,"
str &= DataTables("表B").GetComboListString("序号", "关注年度 = \'" & nd & "\'").replace("|", ",")
Tables("表A").filter = "_Identify in (" & str.trim(",") & ")"
-- 发布时间：2017/9/8 15:06:00
--
以下是引用有点甜在2017/9/8 12:40:00的发言：
Dim nd As String = "2016年度"
Dim str As String = "-1,"
str &= DataTables("表B").GetComboListString("序号", "关注年度 = \'" & nd & "\'").replace("|", ",")
Tables("表A").filter = "_Identify in (" & str.trim(",") & ")"
Dim nd As String = "2016年度"
Dim str As String = "-1,"
str &= DataTables("表B").GetComboListString("序号", "关注年度 = \'" & nd & "\'").replace("|", ",")
Tables("表A").filter = "_Identify in (" & str.trim(",") & ")"
首先感谢您的帮助,但我不知道把这代码放入何处?我做了一按钮,放入按钮中它报错误信息.
此主题相关图片如下：aaaa.png
[此贴子已经被作者于2017/9/8 15:20:45编辑过]
-- 发布时间：2017/9/8 15:47:00
--
Dim nd As String = e.Form.Controls("ComboBox1").Text
Dim str As String = "-1,"
str &= DataTables("表B").GetComboListString("序号", "关注年度 = \'" & nd & "\'").replace("|", ",")
Tables("表A").filter = "_Identify in (" & str.trim(",") & ")"
如果还报错，上传具体例子测试。
-- 发布时间：2017/9/8 17:22:00
--
谢谢！可以了。但能请解释一下：e.Form.Controls("ComboBox1").Text
这句代码的意思好吗？就是这个后面为什么要加Text
[此贴子已经被作者于2017/9/8 17:22:41编辑过]
-- 发布时间：2017/9/8 17:27:00
--
e.Form.Controls("ComboBox1") \'获取控件
e.Form.Controls("ComboBox1").Text \'获取控件输入的值