| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 1581 人关注过本帖
标题:修改一个递归计算查询
只看楼主 加入收藏
yuk_yu
Rank: 3Rank: 3
等 级:论坛游侠
帖 子:334
专家分:134
注 册:2009-3-16
结帖率:85.71%
收藏
已结贴  问题点数:50 回复次数:3 
修改一个递归计算查询

[local]2[/local][/code]
BOMLIST.zip (38.65 KB)


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

2016-02-01 09:47
风吹过b
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
等 级:贵宾
威 望:364
帖 子:4947
专家分:30084
注 册:2008-10-15
收藏
得分:50 
EXCEL 的 VBA ,与VB6 稍有不同,正好这段代码里用上了这个不同的地方,
加上这个电脑没 EXCEL,年底事多。

你自己多琢磨一下吧,没时间弄了。

授人于鱼,不如授人于渔
早已停用QQ了
2016-02-01 14:25
yuk_yu
Rank: 3Rank: 3
等 级:论坛游侠
帖 子:334
专家分:134
注 册:2009-3-16
收藏
得分:0 
回复 2楼 风吹过b


谢谢版主, 我已经将数据读入到VB6, 有空请帮帮忙,指点指点!谢谢

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

2016-02-01 15:18
yuk_yu
Rank: 3Rank: 3
等 级:论坛游侠
帖 子:334
专家分:134
注 册:2009-3-16
收藏
得分: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
快速回复:修改一个递归计算查询
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.046581 second(s), 9 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved