Foxtable(狐表) → 用户栏目 → 专家坐堂 → 老师，看一个这段代码错在哪里，如何修改下？


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

主题：老师，看一个这段代码错在哪里，如何修改下？
帅哥哟，离线，有人找我吗？
有点蓝
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：107813 积分：548416 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2021/5/7 9:19:00 [显示全部帖子]

提示什么错误？

 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：107813 积分：548416 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2021/5/7 9:32:00 [显示全部帖子]

提示的意思是filter 这个变量名称重复了，前面已经定义了一个同名的变量，换个名称

'加组合,手动填加,
'开始生成筛选条件
Dim tj As String
For Each filter2 As String In Xkmys
    tj = tj & "'" & filter2 & "',"
Next
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：107813 积分：548416 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2021/5/7 9:46:00 [显示全部帖子]

Dim s As String=e.Form.Controls("ComboBox2").text

 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：107813 积分：548416 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2021/5/7 17:05:00 [显示全部帖子]

If Filter > "" Then
    Tables("专业录取线").Filter = Filter
End If

改为

If Filter > "" Then
if tj > "" then 
Filter = Filter & " and " & tj
end if
    Tables("专业录取线").Filter = Filter
End If
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：107813 积分：548416 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2021/5/8 9:12:00 [显示全部帖子]

和字是干嘛用的？没看懂

 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：107813 积分：548416 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2021/5/8 9:50:00 [显示全部帖子]

表格里有“地理和思想政治”这种数据吗？

 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：107813 积分：548416 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2021/5/8 10:57:00 [显示全部帖子]

合并的是“地理和思想政治”，那就只能查询“地理和思想政治”的数据，无法查询“思想政治和地理”这种数据。电脑不是人脑，没有这么聪明

 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：107813 积分：548416 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2021/5/8 11:14:00 [显示全部帖子]

因为首选科目等于物理的，再选科目没有其它组合的数据，只有化学和生物

 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：107813 积分：548416 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2021/5/8 11:27:00 [显示全部帖子]

那就把“选科系列”改为多选组合框，选多个组合查询

 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.03809 秒, 5 次数据查询