[浏览完整版]
标题：[求助]老师，这个随机筛选如果实现，帮忙写下代码
1楼
hbfnmxb 发表于：2024/9/5 20:53:00无法插入图片？图片如何插入？
有一个FS控件、有一个CFS控件、有一个WFS控件、还有一个BDF控件，筛选的分数区间是：第一个区间，小于FS+CFS，大于FS，第二个分数区间 ，小于FS，大于FS-WFS，第三个分数区间是，小于FS-WFS，大于FS-BDF。这三个分数区间分别设定具体个数，第一个分数区间设定的个数是：CSL控件中的个数，第二个分数区间是：WSL控件中的个数，第三个分数区间是BSL控件中的个数，这段代码如何来写，老师帮忙写一下，非常感谢！
e.Form.Controls("Label6").Text = "正在进行专业筛选,请稍后..."
Application.DoEvents()
Dim timestart, timeend As Date
timestart = Date.now
Dim drs As List(Of DataRow)
drs = DataTables("基础数据").Select("[确定导入] = True")
For Each dr As DataRow In drs
dr("确定导入") = False
Next
Dim Filter As String
If e.Form.Controls("选择历史").Checked = True Then
If Filter > "" Then
Filter = Filter & " And "
End If
Filter = Filter & "首选科目 = '历史'"
End If
If e.Form.Controls("选择物理").Checked = True Then
If Filter > "" Then
Filter = Filter & " And "
End If
Filter = Filter & "首选科目 = '物理'"
End If
Dim s As String = e.Form.Controls("CheckedComboBox1").Text
'考生选科数组
's=s.replace("物理","").replace("历史","").replace(",,",",").trim(",") '只剩下再选科目
'Output.Show(s)
Dim Xks() As String '考生选科集合
Xks = s.split(",")
Dim Jhxks As List(Of String) '招生计划中的选科
Jhxks = DataTables("基础数据").GetValues("次选科目")
Dim Xkmys As New List(Of String) '与我的选科匹配的选科集合
Xkmys.Add("不限")
Xkmys.Add(Xks(0) & "和" & Xks(1))
Xkmys.Add(Xks(1) & "和" & Xks(0))
''单科加"或"
For Index As Integer = 0 To Xks.Length - 1 '提示错误的位置在这里!
For Each Product As String In Jhxks
If (Product.contains(Xks(Index) & "或") Or Product.contains("或" & Xks(Index)) Or Product = Xks(Index)) And Xkmys.Contains(Product) = False Then
'filter=filter & "'" & Product & "'"
'Jhxks.Remove(Product)
Xkmys.Add(Product)
End If
Next
Next
'加组合,手动填加,
'开始生成筛选条件
Dim tj As String
For Each filter2 As String In Xkmys
tj = tj & "'" & filter2 & "',"
Next
tj = "[次选科目] In (" & tj.trim(",") & ")"
Tables("基础数据").Filter = tj
output.Show(tj)
If e.Form.Controls("FS+CGF").text > "" Then
If Filter > "" Then
Filter = Filter & " And "
End If
Filter = Filter & "预估分 <= " & e.Form.Controls("FS+CGF").text
End If
If e.Form.Controls("FS").text > "" Then
If Filter > "" Then
Filter = Filter & " And "
End If
Filter = Filter & "预估分 >= " & e.Form.Controls("FS").text
End If
If e.Form.Controls("FS").text > "" Then
If Filter > "" Then
Filter = Filter & " And "
End If
Filter = Filter & "预估分 <= " & e.Form.Controls("FS").text
End If
If e.Form.Controls("FS-WFS").text > "" Then
If Filter > "" Then
Filter = Filter & " And "
End If
Filter = Filter & "预估分 >= " & e.Form.Controls("FS-WFS").text
End If
If e.Form.Controls("FS-WFS").text > "" Then
If Filter > "" Then
Filter = Filter & " And "
End If
Filter = Filter & "预估分 <= " & e.Form.Controls("FS-WFS").text
End If
If e.Form.Controls("FS-BDF").text > "" Then
If Filter > "" Then
Filter = Filter & " And "
End If
Filter = Filter & "预估分 >= " & e.Form.Controls("FS-BDF").text
End If
If Filter > "" Then
If tj > "" Then
Filter = Filter & " and " & tj
End If
Tables("基础数据").Filter = Filter
End If
Tables("基础数据").Sort = "预估分 DESC" '按"低分等效"列降序排列
e.Form.Controls("Label6").Text = "专业筛选完毕!."
timeend = Date.now
e.Form.Controls("Label6").text = "耗时" & (timeend - timestart).TotalSeconds & "秒"
Messagebox.show("按专业【预估分】分,筛选出符合条件的行,共" & (Tables("基础数据").rows.count) & "行", "提示", MessageBoxButtons.OK, MessageBoxIcon.Information)
MainTable = Tables("基础数据")
[此贴子已经被作者于2024/9/5 21:04:19编辑过]
2楼
有点蓝 发表于：2024/9/5 21:58:00请上传实例测试
3楼
hbfnmxb 发表于：2024/9/6 18:16:00附件大，压缩分开了。删除了历史数据，测试的时候，只能用物理数据了。谢谢老师
[此贴子已经被作者于2024/9/8 23:22:07编辑过]
4楼
hbfnmxb 发表于：2024/9/8 15:49:00老师，帮忙看一下！这个代码如何写
5楼
有点蓝 发表于：2024/9/8 16:32:00举例说明一下，怎么测试，输入什么条件？什么地方有问题？什么结果才是正确的？
6楼
hbfnmxb 发表于：2024/9/8 19:37:00
此主题相关图片如下：001.png
此主题相关图片如下：002.png
1首选科目，选择历史或物理，考生选科选择至少选择两个学科
2.随机筛选出96个，这96条，包含冲、稳、保，其中前36个为冲[CSL]控件中的个数，稳为40个从第37个开始，到76个也就是插件[WSL]中的个数，保为20条，从第77开始到96，也就是控件[BSL]中的个数。
3.分数区间：冲的最高分是“考生分数+冲的分数，也就是[FS+CGF]两个控件之和，冲的最低分是考生分数，即[FS]控件；稳的分数区间，稳的最高分就是考生分数，即[FS]，稳的最低分为[FS-WFS]控件之差；保的分数区间：保的最高分为[FS-WFS]之差，保的最低分为，考生分数减去保的分数，也就是[FS-BDF]的控件之差；
4筛选的表是：基础数据表，筛选的列是：预估分
5举例：如考生的分数是560分，要在基础数据表随机筛选出：
条件A：预估分<560+10、预估分>=560，36条（这是冲的）
条件B：预估分<560、预估分>=560-20，40条（这是稳的）
条件C：预估分<560-20、预估分>=560-30，20条（这是保的）
这三个条件加到一起正好是96条
7楼
pyh6918 发表于：2024/9/8 20:57:00做的是哪个省的高报数据?
给你提供个思路,看是否可行.
1.加一逻辑列"已选",先将[基础数据]表"已选"列全部置False.
2.冲,筛选出符合冲的数据,可随机或按预估分在"已选"列勾选冲的数量
3.稳.筛选出符合稳的数据,可随机或按预估分在"已选"列勾选稳的数量
4.保.筛选出符合保的数据,可随机或按预估分在"已选"列勾选保的数量
5.加载全部"已选"
还可使用四种"冲稳保垫"
8楼
有点蓝 发表于：2024/9/8 21:29:00建议按7楼说的，增加一个逻辑列。
然后分3次处理，比如先筛选树符合冲，并且未勾选的数据，然后在筛选结果随机挑选参考：http://www.foxtable.com/webhelp/topics/2963.htm。
接着按同样的方式筛选处理稳、保
9楼
hbfnmxb 发表于：2024/9/9 10:32:00也就是说，冲筛选一次、稳筛选一次、保筛选一次，然后三次的筛选结果加到一起？是这意思吧
10楼
有点蓝 发表于：2024/9/9 10:37:00不是
冲筛选一次，然后选出需要的结果比如36个；接着稳筛选一次，选出需要的结果比如40个；接着保筛选一次，选出需要的结果比如20个；