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编辑过]