以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  一个筛选语句的求助  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=85245)
--  作者：李睿涵
--  发布时间：2016/5/21 9:34:00
--  一个筛选语句的求助

我想做个勾选打印的效果，就是勾选了复选框的，就能打印出来

 

以下是代码：

 

Dim ids As String   \'根据主键，合成筛选条件
For Each r As Row In Tables("数据表").GetCheckedRows
    ids = ids & "," & r("_Identify")
Next


Tables("数据表").filter = "姓名 Is not null and _Identify In (" & ids.trim(",")  & ")"   \'根据勾选，以及姓名非空的，做个筛选，好做excel模板套打

\'打印代码 ，略----

 

Tables("数据表").filter  = ""  \'取消筛选，显示所有数据
For Each r As Row In Tables("数据表").rows   \'把之前勾选的再勾选上（筛选后，复选会失效）
    If r("_identify") In  ids.trim(",")  Then   \'就这句不对
         r.Checked  = True
    End If
 Next

 

上面红色部分代码不行，请指教

另外，黄色代码，是筛选条件，在excel模板打印里，一般是写<all>来打印全部记录，若想替换为黄色代码，把筛选放进模板里，请问该怎么改?
--  作者：Hyphen
--  发布时间：2016/5/21 10:10:00
--  
Tables("数据表").filter  = ""  \'取消筛选,显示所有数据
ids  = "," & ids & ","
For Each r As Row In Tables("数据表").rows   \'把之前勾选的再勾选上(筛选后,复选会失效)
    If ids.Contains("," & r("_identify") & ",")  Then   \'就这句不对
        r.Checked  = True
    End If
Next