snddzxb 发表于 2006-9-17 08:43
计数问题
我想把表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。请各位高手看一下。谢谢[attach]11770[/attach]<BR>
zhoukang_xa 发表于 2006-10-8 15:57
Dim zd2 As Integer, zd1 As String, bj As String, js As Long<BR>Dim cnn As ADODB.Connection<BR>Dim rst As ADODB.Recordset<BR>zd2 = 1<BR>bj = ""<BR>zd1 = ""<BR>js = 1<BR>Set cnn = CurrentProject.Connection<BR>Set rst = New ADODB.Recordset<BR>sql = "select * from 试验表"<BR>rst.Open sql, CurrentProject.Connection, adOpenKeyset, adLockOptimistic<BR>Do While js < rst.RecordCount<BR>If zd2 <= 30 And bj = zd1 Then<BR>rst!座位号 = zd2<BR>zd2 = zd2 + 1<BR> Else<BR> zd2 = 1<BR> rst!座位号 = zd2<BR> zd2 = zd2 + 1<BR>End If<BR>zd1 = rst!试卷代码<BR>rst.Update<BR>rst.MoveNext<BR>bj = rst!试卷代码<BR>js = js + 1<BR>Loop<BR><BR><BR>应该有更简捷的办法，不过我是这样实现的
zhoukang_xa 发表于 2006-10-8 16:03
那个试验表是我拷贝的表1，另起名的
页:
[1]
