Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]老师，这个随机筛选如果实现，帮忙写下代码


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

主题：[求助]老师，这个随机筛选如果实现，帮忙写下代码
帅哥哟，离线，有人找我吗？
hbfnmxb
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：二尾狐 帖子：559 积分：6258 威望：0 精华：0 注册：2008/9/7 20:15:00 		[求助]老师，这个随机筛选如果实现，帮忙写下代码  发帖心情 Post By：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楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


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

请上传实例测试
 回到顶部
帅哥哟，离线，有人找我吗？
hbfnmxb
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


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

附件大，压缩分开了。删除了历史数据，测试的时候，只能用物理数据了。谢谢老师

[此贴子已经被作者于2024/9/8 23:22:07编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
hbfnmxb
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


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

老师，帮忙看一下！这个代码如何写
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：109427 积分：556791 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2024/9/8 16:32:00 [只看该作者]

举例说明一下，怎么测试，输入什么条件？什么地方有问题？什么结果才是正确的？

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


加好友 发短信
等级：二尾狐 帖子：559 积分：6258 威望：0 精华：0 注册：2008/9/7 20:15:00 		  发帖心情 Post By：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条
 回到顶部
帅哥哟，离线，有人找我吗？
pyh6918
 小大  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：五尾狐 帖子：1134 积分：11088 威望：0 精华：2 注册：2008/9/1 10:45:00 		  发帖心情 Post By：2024/9/8 20:57:00 [只看该作者]

做的是哪个省的高报数据?

给你提供个思路,看是否可行.
1.加一逻辑列"已选",先将[基础数据]表"已选"列全部置False.
2.冲,筛选出符合冲的数据,可随机或按预估分在"已选"列勾选冲的数量
3.稳.筛选出符合稳的数据,可随机或按预估分在"已选"列勾选稳的数量
4.保.筛选出符合保的数据,可随机或按预估分在"已选"列勾选保的数量
5.加载全部"已选"

还可使用四种"冲稳保垫"
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：109427 积分：556791 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2024/9/8 21:29:00 [只看该作者]

建议按7楼说的，增加一个逻辑列。

然后分3次处理，比如先筛选树符合冲，并且未勾选的数据，然后在筛选结果随机挑选参考：http://www.foxtable.com/webhelp/topics/2963.htm。

接着按同样的方式筛选处理稳、保
 回到顶部
帅哥哟，离线，有人找我吗？
hbfnmxb
 小大  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


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

也就是说，冲筛选一次、稳筛选一次、保筛选一次，然后三次的筛选结果加到一起？是这意思吧
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：109427 积分：556791 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2024/9/9 10:37:00 [只看该作者]

不是

冲筛选一次，然后选出需要的结果比如36个；接着稳筛选一次，选出需要的结果比如40个；接着保筛选一次，选出需要的结果比如20个；
 回到顶部
总数 23 1 2 3 下一页
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.04688 秒, 4 次数据查询