- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 求教蛇形输出该如何写代码 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=101156)
-- 发布时间：2017/5/25 20:44:00
-- 求教蛇形输出该如何写代码
如有100个学生，要按成绩排序后分成4个班，这个蛇形输出的代码要如何写呢，谢谢
此主题相关图片如下：qq截图20170525204457.png
[此贴子已经被作者于2017/5/25 20:46:24编辑过]
-- 发布时间：2017/5/25 22:19:00
--
Dim dt As DataTable = DataTables("表A")
Dim i As Integer = 1
Dim flag As Boolean = True
For Each dr As DataRow In dt.Select("", "第二列 desc")
output.show(Math.Abs(i) & " " & dr("第二列") & " " & dr("第一列"))
If flag = True
i += 1
Else
i -= 1
End If
If i = 5 Then
flag = False
i = 4
ElseIf i = 0 Then
flag = True
i = 1
end if
Next
-- 发布时间：2017/5/25 22:27:00
--
谢谢色大师
