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
加好友 
发短信
Post By：2021/10/21 23:33:00 [只看该作者]
