我想把表1中的试卷代码字段进行排序以30个号位一组，如果某一个试卷代码大于30个，那么又进行下一轮计数。比如：表中有42个147这个纪录。那么生成的座位号位1 ；2；3；4；5；6；7；8；9；10；11；12；13；14；15；16；17；18；19；20；21；22；23；24；25；26；27；28；29；30。进行下一轮计数。1；2；3；4；5；6；7；8；9；10；11；12完了。最后生成的表为表2。请各位高手看一下。谢谢

Dim zd2 As Integer, zd1 As String, bj As String, js As Long
Dim cnn As ADODB.Connection
Dim rst As ADODB.Recordset
zd2 = 1
bj = ""
zd1 = ""
js = 1
Set cnn = CurrentProject.Connection
Set rst = New ADODB.Recordset
sql = "select * from 试验表"
rst.Open sql, CurrentProject.Connection, adOpenKeyset, adLockOptimistic
Do While js < rst.RecordCount
If zd2 <= 30 And bj = zd1 Then
rst!座位号 = zd2
zd2 = zd2 + 1
Else
zd2 = 1
rst!座位号 = zd2
zd2 = zd2 + 1
End If
zd1 = rst!试卷代码
rst.Update
rst.MoveNext
bj = rst!试卷代码
js = js + 1
Loop


应该有更简捷的办法，不过我是这样实现的

那个试验表是我拷贝的表1，另起名的