Foxtable(狐表)用户栏目专家坐堂 → 筛选条件


  共有8576人关注过本帖树形打印复制链接

主题:筛选条件

帅哥哟,离线,有人找我吗?
ysl1966
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:婴狐 帖子:13 积分:174 威望:0 精华:0 注册:2012/6/13 11:02:00
筛选条件  发帖心情 Post By: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
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:狐神 帖子:4746 积分:34528 威望:0 精华:0 注册:2008/8/31 22:44:00
  发帖心情 Post By: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
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:婴狐 帖子:13 积分:174 威望:0 精华:0 注册:2012/6/13 11:02:00
  发帖心情 Post By:2012/6/23 19:44:00 [只看该作者]

狐爷,没有能成功。


 回到顶部
帅哥,在线噢!
y2287958
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:狐神 帖子:4746 积分:34528 威望:0 精华:0 注册:2008/8/31 22:44:00
  发帖心情 Post By:2012/6/23 19:48:00 [只看该作者]

传文件

 回到顶部
帅哥哟,离线,有人找我吗?
don
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:八尾狐 帖子:1812 积分:12999 威望:0 精华:14 注册:2008/10/11 18:07:00
  发帖心情 Post By: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
  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:婴狐 帖子:13 积分:174 威望:0 精华:0 注册:2012/6/13 11:02:00
  发帖心情 Post By:2012/6/23 20:41:00 [只看该作者]

好了,谢谢。


 回到顶部