| 以文本方式查看主题 - Foxtable(狐表) (http://foxtable.com/bbs/index.asp) -- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2) ---- 时段排序 后进行查找，帮忙看一下 (http://foxtable.com/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 --
|