主题：[求助]库存查询思路

读取各个转移表的值，得到【A、B】，【B，C】，【C，成品】，然后确定顺序，如代码

Dim dic As new Dictionary(Of String, String)
dic.add("B", "C")
dic.add("A", "B")
dic.add("C", "成品")

For Each key As String In dic.Keys
    If dic.ContainsValue(key) = False Then '得到第一个表
        msgbox("第一个" & key)
        Do While dic.ContainsKey(key)
            msgbox(key & "->" & dic(key))
            key = dic(key)
        Loop
        Exit For
    End If
Next