Dim t As Table = Tables("初二汤原考点")
Dim a As Integer = t.rows.count
Dim b As Integer = a - Math.Floor(a / 30)
Dim idx As Integer = 1
For i As Integer = 0 To b Step 30
For j As Integer = 0 To 29
t.Rows(i+j)("考场") = Format(idx,"00")
Next
idx += 1
Next
idx-=1
For i As Integer = b+1 To a - 1
t.Rows(i)("考场") = Format(idx,"00")
Next
我想每30个人一个考场, 到37考场30后,应该38考场了, 可是命令还是往下排,请问是哪的毛病
此主题相关图片如下:89.png