没有看到递归

函数不会搞，之前的VB程式可以优化如下

Private Sub Command1_Click()
PN = Trim(Text1.Text)
If PN = "" Then
    Exit Sub
End If
Assembly = PN
Conn.Execute ("Delete * from BOM_A")
If Rs.State = 1 Then
    Rs.Close
End If
Rs.Open "Select * from BOM where [Assembly] = '" & PN & "'", Conn, 1, 1 ' BOM为上阶材料和下阶材料的对应关系表
If Not Rs.EOF Then
    Rs.MoveFirst
    Do While Not Rs.EOF
        Component = Rs.Fields("Component")
        Component_Type = Rs.Fields("Component_Type")
        Usage = Rs.Fields("Usage")
        Conn.Execute ("Insert into BOM_A Values('" & PN & "','" & Assembly & "','" & Component & "','" & Component_Type & "'," & Usage & ")")  '--- BOM_A 为 A料的BOM表
        Rs.MoveNext
    Loop
    Rs.Close
Else
    MsgBox "没有找到材料BOM：" & Assembly
    Rs.Close
    Exit Sub
End If

Rs_Qty = 1
Do Until Rs_Qty = 0
    Rs.Open "Select * from BOM_A where [Material] = '" & PN & "' and [Component_Type] <> 'RawPart' and [Component] not in (Select distinct [Assembly] from BOM_A)", Conn, 1, 1
    Rs_Qty = Rs.RecordCount
    If Rs_Qty <> 0 Then
        StrSQL = "Insert into BOM_A Select * from (Select '" & PN & "' as [Material],A.[Component] as [Assembly],B.[Component],B.[Component_Type],B.[Usage] from (Select Distinct [Component] from BOM_A " & _
                     "where [Component_Type] <> 'RawPart' and [Component] not in (Select distinct [Assembly] from BOM_A)) as A Left join BOM B on A.[Component]=B.[Assembly])"
        Conn.Execute (StrSQL)
    Else
        Rs.Close
        Exit Do
    End If
    Rs.Close
Loop

Rs.Open "Select * from BOM_A where [Material] = '" & PN & "'", Conn, 1, 1
Set DataGrid1.DataSource = Rs
DataGrid1.Refresh
End Sub

[ 本帖最后由 owenlu1981 于 2014-3-19 23:05 编辑 ]

版主，可否帮忙写一个递归函数，我想学习下，owenlu1981帮我解决了问题，但如果我一次查询多个Assembly就不太方便， 我想是否可用递归加数组可以解决？谢谢

[ 本帖最后由 yuk_yu 于 2014-3-20 09:19 编辑 ]

其实我没有看懂你的意思，但我看懂了你的数据库的数据关系，应该是类似于文件目录的结构，穷尽目录路径的确是递归完成的，但你的意图似乎不是穷尽路径，所以我没看懂。

目的是找一个产品的所有原材料，也就是通过成品找半成品，通过半成品找原材料

我重新作了说明，请帮忙再看看，谢谢

SubAssy：原材料   英语翻译：半成品
Prepped：半成品   英语翻译：准备、预备学校
RawPart：成品     英语翻译：Raw Part，原始的一部分
？

完全正确！谢谢

正确就是成品找半成品，预计工，原材料；半成品找预计工，原材料；预计工找原材料，逐级递减

都已结贴，再发短消息给我干什么？