Dim tb01 As Table= Tables("学生信息A_table01")
Dim i As Integer=0
Dim addtrue As Boolean=True
For Each r As Row In tb01.Rows
If addtrue=True
i=i+1
If i=4
addtrue=False
End If
Else
i=i-1
If i=0
addtrue=True
End If
End If
r("预安班号")=i
Next
一个表按成绩排序，想按成绩分4个班，规则是1，2，3，4，4，3，2，1这样达到均衡，上面代码有点不对，请问如何改
Dim tb01 As Table= Tables("学生信息A_table01")
Dim i As Integer=0
Dim addtrue As Boolean=True
For Each r As Row In tb01.Rows
If addtrue=True
i=i+1
r("预安班号")=i
If i=4
addtrue=False
End If
Else
r("预安班号")=i
i=i-1
If i=0
addtrue=True
End If
End If
Next
改成这样可以实现，但觉得很low,请教个专业点的写法，谢谢
[此贴子已经被作者于2020/7/29 12:44:33编辑过]
加好友 
发短信
Post By：2020/7/29 12:25:00 [只看该作者]
