批量性的给表tblBOM添加LEVE_ID值（1,2,3...~N），依据父项（PARENT）

yaw　发表于：2013-04-08 20:51:38 　

请大家帮助看看，谢谢
批量性的给表tblBOM添加LEVE_ID值（1,2,3...~N），依据父项（PARENT）
例如PARENT： 118488  COMPONENT(子项)共计9项(count(COMPONENT))
因此 LEVE_ID值 1 到9（1 2 3 4 5 6 7 8 9）
PARENT PART_DESC COMPONENT COMPONENT_EN_DESC LEVE_ID
118488 MODULE,PWR G5 24-00 116681-041 SPLIT RING HALF,G5/GTO4
118488 MODULE,PWR G5 24-00 119371-020 PSTN RD,G5
118488 MODULE,PWR G5 24-00 119378-002 PSTN,G5 24
118488 MODULE,PWR G5 24-00 136895-002 END CP,G5 24*INR/PED*
118488 MODULE,PWR G5 24-00 136934-002 END CP,G5 24*OTR/PED*
118488 MODULE,PWR G5 24-00 137008-007 CYL,G5 24*PED*
118488 MODULE,PWR G5 24-00 137032-020 TIE BR,G5*PED*
118488 MODULE,PWR G5 24-00 137040 NUT,HVY HEX1-1/4-12UN*PLT/PEDX
118488 MODULE,PWR G5 24-00 137054 PIPE PLUG,1-1/2NPT*SQ HD/PED*X
例如PARENT： 118488  COMPONENT(子项)共计8项(count(COMPONENT))
因此 LEVE_ID值 1 到8（1 2 3 4 5 6 7 8）重新进行计算
PARENT PART_DESC COMPONENT COMPONENT_EN_DESC LEVE_ID
118803 MODULE,DRIVE G50-00 116653-002 HSG,G50
118803 MODULE,DRIVE G50-00 116655-002 HSG COVR,G5
118803 MODULE,DRIVE G50-00 116659-002 YOKE,G50
118803 MODULE,DRIVE G50-00 116661-002 GUIDE BLK,G5
118803 MODULE,DRIVE G50-00 116662-020 GUIDE BR,G5
118803 MODULE,DRIVE G50-00 116663-002 YOKE PN,G5
118803 MODULE,DRIVE G50-00 116665 ROD EXT ASSY,G5
118803 MODULE,DRIVE G50-00 116667 ROD EXT RTNR NUT ASSY,G5

��ش˸��

Top

叶海峰发表于：2013-04-09 08:59:49

Sub test()
Dim rst As DAO.Recordset
Dim i As Long
Dim str As String

Set rst = CurrentDb.OpenRecordset("tblBOM")
With rst
.MoveLast
.MoveFirst
.Edit
!LEVE_ID = 1
.Update
str = !Parent
.MoveNext
i = 2
Do Until .EOF
.Edit
If !Parent = str Then
!LEVE_ID = i
i = i + 1
Else
!LEVE_ID = 1
i = 1
str = !Parent
End If
.Update
.MoveNext
Loop
End With

End Sub

Top

总记录：1篇页次：1/1 9 1 :

Access交流中心

批量性的给表tblBOM添加LEVE_ID值（1,2,3...~N），依据父项（PARENT）