Foxtable(狐表)用户栏目专家坐堂 → 增加一个限制的数量,这个条件TextBox2的条件如何加上


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

主题:增加一个限制的数量,这个条件TextBox2的条件如何加上

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


加好友 发短信
等级:二尾狐 帖子:559 积分:6330 威望:0 精华:0 注册:2008/9/7 20:15:00
增加一个限制的数量,这个条件TextBox2的条件如何加上  发帖心情 Post By:2023/6/5 20:44:00 [只看该作者]


If e.Form.Controls("GF").text > ""
    If Filter >"" Then
        Filter = Filter & " And "
    End If
    Filter = Filter & "低分等效 <= " &   e.Form.Controls("GF").text
End If

If e.Form.Controls("DF").text > ""
    If Filter >"" Then
        Filter = Filter & " And "
    End If
    Filter = Filter & "低分等效 >= " &  e.Form.Controls("dF").text
End If

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

Tables("专业录取线").Sort = "低分等效 DESC"  '按"低分等效"列降序排列

红色字体中如果按条件进行设定筛选,如:586到520分的区间,可能筛选出五千条的数据 ,我想在设置一个TextBox2,来控制这个筛选出的条数,比如TextBox2=96,这样让586到520分这个的区间所筛选出的条数等于TextBox2控制的数,这个条件如何加上?谢谢老师!
[此贴子已经被作者于2023/6/5 21:05:30编辑过]

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


加好友 发短信
等级:超级版主 帖子:111358 积分:566848 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2023/6/5 20:57:00 [只看该作者]

筛选无法控制条数,只能筛选后判断,如果条数大于96就把多余的数据隐藏

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


加好友 发短信
等级:二尾狐 帖子:559 积分:6330 威望:0 精华:0 注册:2008/9/7 20:15:00
  发帖心情 Post By:2023/6/5 20:59:00 [只看该作者]

如果:
筛选无法控制条数,只能筛选后判断,如果条数大于96就把多余的数据隐藏

老师:这个筛选后隐藏条件如何加上啊

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


加好友 发短信
等级:超级版主 帖子:111358 积分:566848 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2023/6/5 20:59:00 [只看该作者]

Tables("专业录取线").Sort = "低分等效 DESC"
if Tables("专业录取线").rows.count > 96 then
dim a as double = Tables("专业录取线").rows(95)("低分等效")
Tables("专业录取线").Filter = Tables("专业录取线").Filter & " and 低分等效 >=" & a
end if

 回到顶部