请教！这样的数据如何更新啊？（已解决）

sxgaobo

上级机构编码    机构编码
01010301        0101030101
01010301        0101030102
01010301        0101030103
01010301        0101030104
01010301        0101030105
01010302        0101030201
01010302        0101030202
01010302        0101030203
01010302        0101030204
......
如何将“机构编码”依据“上级机构编码”更新到上面的结果，即在其“上级机构编码”后按顺序由01开始递加！

[ 本帖最后由 sxgaobo 于 2008-10-12 15:29 编辑 ]

tz-chf

这种问题是有一个定式的，按上级机构编码排序，一个变量A记录一下这个编码，每条记录对比A，不一样就更新变量A，一样就组建那个机构编码。

figfig

Sub aa()
Dim yy As Recordset

Set yy = CurrentDb.OpenRecordset("单位基本情况表", 2)



Do While Not yy.EOF
kk = DCount("*", "单位基本情况表", yy.Fields(0).Name & "='" & yy.Fields(0) & "'")
For i = 1 To kk

yy.Edit
yy.Fields(1) = yy.Fields(0) & Format(i, "00")
yy.Update
yy.MoveNext

Next
Loop
end sub

[ 本帖最后由 figfig 于 2008-10-11 07:04 编辑 ]

sxgaobo

谢谢 figfig！！！
搞定[:13] [:11]

sxgaobo

怎么总报错啊？而且数据也有重复的！！！

figfig

SELECT 行内机构.机构编号, 行内机构.内机构编号
FROM 行内机构
WHERE 行内机构.机构编号 is not null
ORDER BY 行内机构.机构编号;

sxgaobo

怎么改啊！？报错无所谓，主要是数据有重复的！！！

figfig

6楼代码已改好，粘贴过去就可以了啊，晕

figfig

Private Sub Command0_Click()
DoCmd.SetWarnings False
DoCmd.RunSQL "UPDATE 行内机构 SET 行内机构.内机构编号 = Null"
DoCmd.SetWarnings True
CurrentDb.QueryDefs("行内").SQL = "SELECT 行内机构.机构编号, 行内机构.内机构编号 FROM 行内机构 WHERE 行内机构.机构编号 Is Not Null ORDER BY 行内机构.机构编号"

Set yy = CurrentDb.OpenRecordset("行内", 2)
Do While Not yy.EOF
kk = DCount("*", "行内", yy.Fields(0).Name & "='" & yy.Fields(0) & "'")


For i = 1 To kk
yy.Edit

yy.Fields(1) = yy.Fields(0) & Format(i, "00")
yy.Update
yy.MoveNext

Next
Loop

End Sub

sxgaobo

谢谢各位朋友！解决了