求助ACCESS中单层BOM表结构，累计计算加工费

自由的MORIYA

表格1中，为产品的结构，是单层的BOM形式。
表格2中，为每个零件的本身的加工费。
想要求出，最上层的产品的加工费。
计算构成是：  
1.(子1零件工费*子1零件数量+子2零件工费*子2零件数量+.......)+父零件的加工费=父零件工费
2.(父1零件工费*父1零件数量+父2零件工费*父2零件数量+.......)+爷爷零件的加工费=爷爷零件工费
求大神教我！万分感谢。

Renco

计算结果放在表2的ChildrenGF列

自由的MORIYA

Renco 发表于 2016-7-28 22:58
计算结果放在表2的ChildrenGF列

十分感谢，我先学习下，如有不明白的，我在请教下。

自由的MORIYA

你好，上次帮我写的一段代码，我不是很明白，想再请教下Function Get22Num(xItem As String) As Double

   
  Dim xSQL As String
  Dim xRs As Object
  Dim xNum01 As Double
  
  Get22Num = 0
  Set xRs = CreateObject("adodb.recordset")
   
    xSQL = "Select 表1.COMPONENT ,表1.[QTY NEED],表2.GF From 表1 Left Join 表2 On 表1.item=表2.item Where 表1.item='" & xItem & "'"
    Set xRs = CurrentProject.Connection.Execute(xSQL)
    If xRs.EOF = False Then
   
       xRs.MoveFirst
      
       Do Until xRs.EOF = True
           
           xNum01 = xNum01 + Nz(xRs("QTY NEED")) * (Get22Num(Nz(xRs("COMPONENT"), "")) + Nz(xRs("GF")))
           
      
        xRs.MoveNext
       Loop
      
   
    End If
   
    xRs.Close
    Get22Num = xNum01
    xSQL = "Update 表2 set ChildrenGF=" & xNum01 & " Where item='" & xItem & "'"
    CurrentProject.Connection.Execute xSQL
    Set xRs = Nothing
   
   


End Function

尤其是这段xSQL = "Update 表2 set ChildrenGF=" & xNum01 & " Where item='" & xItem & "'"

我的基础比较弱，有什么书可以推荐我看下，方便自学的吗？我想用ACCESS的平台，谢谢！
如有打扰，请多包涵。

sqzfb

学习了，谢谢分享