以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  筛选条件  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=20918)
--  作者：ysl1966
--  发布时间：2012/6/23 19:08:00
--  筛选条件

Dim  str3 As  String=e.Form.Controls("CheckedComboBox2").value
Dim  x  As  String
x="[准教类型]   In  "  &  str3
Tables("教练员表").Filter =x

 

是狐爷指点 应该是第三句错了吧，怎么改？
--  作者：y2287958
--  发布时间：2012/6/23 19:28:00
--  

Dim  str3 As  String=e.Form.Controls("CheckedComboBox2").value
Dim  x  As  String
x="[准教类型]   In  （"  &  str3 & “）”
Tables("教练员表").Filter =x


试试看
--  作者：ysl1966
--  发布时间：2012/6/23 19:44:00
--  

狐爷，没有能成功。
--  作者：y2287958
--  发布时间：2012/6/23 19:48:00
--  
传文件
--  作者：don
--  发布时间：2012/6/23 20:09:00
--  
Dim  str3,fl As  String
str3 =e.Form.Controls("CheckedComboBox2").value
if str3 isnot  nothing then
    fl = "[准教类型] In  (\'"  &  str3.Replace(",","\',\'") & "\')"
    Tables("教练员表").Filter = fl
End if
--  作者：ysl1966
--  发布时间：2012/6/23 20:41:00
--  

好了，谢谢。