以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  增加一个限制的数量,这个条件TextBox2的条件如何加上  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=186880)

--  作者:hbfnmxb
--  发布时间:2023/6/5 20:44:00
--  增加一个限制的数量,这个条件TextBox2的条件如何加上

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编辑过]

--  作者:有点蓝
--  发布时间:2023/6/5 20:57:00
--  
筛选无法控制条数,只能筛选后判断,如果条数大于96就把多余的数据隐藏
--  作者:hbfnmxb
--  发布时间:2023/6/5 20:59:00
--  
如果:
筛选无法控制条数,只能筛选后判断,如果条数大于96就把多余的数据隐藏

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

--  作者:有点蓝
--  发布时间: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