专家坐堂-增加一个限制的数量，这个条件TextBox2的条件如何加上Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  增加一个限制的数量，这个条件TextBox2的条件如何加上  (http://foxtable.net/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