修改一个递归计算查询 - VB6论坛

yuk_yu

等　级：论坛游侠
帖　子：334
专家分：134
注　册：2009-3-16
结帖率：85.71%

楼主

已结贴√ 问题点数：50 回复次数：2

修改一个递归计算查询

[local]2[/local][/code]

BOMLIST.zip (38.65 KB)

[此贴子已经被作者于2016-2-2 11:51编辑过]

2016-02-01 09:47

yuk_yu

等　级：论坛游侠
帖　子：334
专家分：134
注　册：2009-3-16

第 3 楼

得分:0

回复 2楼风吹过b

谢谢版主，我解决了！！！

程序代码：

Dim Dic As New Dictionary
Dim Brr(), K&
Public Sub SubBom(ByVal keyWords$, ByVal BomList As Variant)
    Dim i&
    For i = 2 To UBound(BomList)
        If keyWords = BomList(i, 1) Then
            Dic(BomList(i, 2)) = i
            SubBom BomList(i, 2), BomList
        End If
    Next
End Sub
Public Function Bom(ByVal keyWord As Variant, ByVal BomList As Variant)
    Dim j&, i&
    For j = 1 To UBound(keyWord)
        Set Dic = Nothing
        SubBom keyWord(j, 1), BomList
        For i = 0 To Dic.Count - 1
            ReDim Preserve Brr(K)
            Brr(K) = Application.Index(BomList, Dic.Items(i))
            K = K + 1
        Next
    Next
    Bom = Brr
End Function

2016-02-02 11:48