Office中国论坛/Access中国论坛

标题: 高手请进:如何用代码将字段中相同字段内容编号 [打印本页]
作者: huangyz_xy    时间: 2008-11-19 17:48
标题: 高手请进:如何用代码将字段中相同字段内容编号
现有A表字段B，B字段中有很多内容是相同的，如何用代码将不同的内容进行编号，如果有高高手做出来，可以卖给我，紧急！
结果需要出现在"AdjacentCellID"中，附件中有结果示意！
作者: Henry D. Sy    时间: 2008-11-19 17:50
这问题好像问过
作者: Henry D. Sy    时间: 2008-11-19 18:13
原帖由 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    时间: 2008-11-19 20:15
标题: 回复 3# 的帖子
你太强了,太感谢了！[:50]
作者: Henry D. Sy    时间: 2008-11-19 20:35
16000条记录用ado打开两个记录集，实行双循环，性能太差了，至少也得5分钟。
建议，增加一个自动编号字段，然后用子查询试试。



欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/) Powered by Discuz! X3.3