以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  时段排序 后进行查找，帮忙看一下  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=172613)
--  作者：夜点蚊香
--  发布时间：2021/10/21 23:33:00
--  时段排序 后进行查找，帮忙看一下
Vars("xuhao") = 0
kcmx = Nothing
For Each rr As DataRow In DataTables("星期课程明细表").DataRows
If DataTables("星期课程明细表").Find("星期 = " & "\' 星期一 \'" , "时段排序" ) Is Nothing Then
    If rr("星期") = "星期日"
        Vars("xuhao") = Vars("xuhao") + 1
        Dim s As String
        s = Vars("xuhao")
        kcmx = kcmx & vbcrlf & s & ". " & rr("姓名") & " " & rr("时段排序") & " "
    End If
End If
Next
Output.Show(kcmx)

想让时段排序进行查赵生成数据。现在生成的数据有点乱。生成的数据如下，名字后面的数字想按照数字大小排序生成。

1. 李睿宸 5 
2. 张锦岳 4 
3. 刘力元 4 
4. 赵梓贺 2 
5. 黄泽琰 2 
6. 胡博成 1 
7. 李印一 2 
8. 郝峻艺 3 
9. 赵增坤 3 
10. 陈则凯 4 
11. 张涵硕 2 
12. 张涵旭 4 
13. 谷宜泽 4 
14. 杨景晨 2 
15. 宋泽宇 2 
16. 徐翊赫 4 
17. 王皓正 2 
18. 韩一尘 2 
19. 董子墨 2 
20. 苏跃翔 4 
21. 王湛博 3 
22. 李丞骞 4 
23. 韩佳睿 1 
24. 聂明宇 1 
25. 刘泽亚 4 
26. 刘晨熙 4 
27. 丁宗琦 1 
28. 况承益 2 
29. 王相麟 2
--  作者：有点蓝
--  发布时间：2021/10/22 8:25:00
--  

Vars("xuhao") = 0
kcmx = Nothing
For Each rr As DataRow In DataTables("星期课程明细表").select("星期 = \'星期日\'","时段排序" )
        Vars("xuhao") = Vars("xuhao") + 1
        kcmx = kcmx & vbcrlf & Vars("xuhao") & ". " & rr("姓名") & " " & rr("时段排序") & " "
Next
Output.Show(kcmx)