高手请进:如何用代码将字段中相同字段内容编号

huangyz_xy

现有A表字段B，B字段中有很多内容是相同的，如何用代码将不同的内容进行编号，如果有高高手做出来，可以卖给我，紧急！
结果需要出现在"AdjacentCellID"中，附件中有结果示意！

Henry D. Sy

这问题好像问过

Henry D. Sy

原帖由 dddddd 于 2008-11-19 17:50 发表
这问题好像问过

不知道你出多少钱？？[:28][:28]

1. Dim rs As New ADODB.Recordset
   
2.     Dim rst As New ADODB.Recordset
   
3.     Dim strSQL, SQL As String
   
4.     Dim I As Long
   
5.     strSQL = "select distinct CellName from Tmp_Cell_Neighbors"
   
6.     rs.Open strSQL, CurrentProject.Connection, adOpenKeyset, adLockReadOnly
   
7.     Do While Not rs.EOF
   
8.         SQL = "select AdjacentCellID from Tmp_Cell_Neighbors where CellName='" & rs.Fields(0) & "'"
   
9.         rst.Open SQL, CurrentProject.Connection, adOpenKeyset, adLockOptimistic
   
10.         Do While Not rst.EOF
    
11.             I = I + 1
    
12.             rst(0) = I
    
13.             rst.MoveNext
    
14.         Loop
    
15.         rst.UpdateBatch
    
16.         rst.Close
    
17.         rs.MoveNext
    
18.         I = 0
    
19.     Loop
    
20.     rs.Close
    
21.     Set rst = Nothing
    
22.     Set rs = Nothing

复制代码

huangyz_xy

你太强了,太感谢了！[:50]

Henry D. Sy

16000条记录用ado打开两个记录集，实行双循环，性能太差了，至少也得5分钟。
建议，增加一个自动编号字段，然后用子查询试试。