求助：關(guān)于函數(shù)遞歸求一個(gè)元素下面的所有被調(diào)用元素

huzijunreokiki

各位大神，打擾大家了，我最近遇到一個(gè)問題，前幾天todaynew大師寫了一個(gè)用函數(shù)遞歸出一個(gè)節(jié)點(diǎn)下面的所有子節(jié)點(diǎn)。我照著這個(gè)思路，寫了個(gè)小程序，可是運(yùn)行不了，也不是程序報(bào)錯，就是運(yùn)行這個(gè)過程之后，access顯示程序未響應(yīng)，然后等半天等半天，光標(biāo)都只處于等待狀態(tài)，只能強(qiáng)行退出access。我的表叫做Use，是這樣的一張表，里面存儲的是元素調(diào)用關(guān)系，里面都是存的都是元素ID號。Use表的結(jié)構(gòu)和數(shù)據(jù)是這樣的

（第一列UseElementID是父元素，第二列UseElementID是子元素）

我寫的程序是這樣的

Option Compare Database

Option Explicit

Public Sub UElements(ByVal n As Integer)

Dim rs As New ADODB.Recordset

rs.Open "Use", CurrentProject.Connection, adOpenForwardOnly, adLockOptimistic

Do While Not rs.EOF

  If rs(0) = n Then

    Debug.Print rs(0), rs(1)

    Call UElements(rs(1))

    rs.MoveNext

  End If

  Loop

   rs.Close

   Set rs = Nothing

End Sub

Sub test()

Call UElements(2)

End Sub

我想求出所有被元素ID為2的這個(gè)元素使用的元素，運(yùn)行后就出現(xiàn)我上面說的情況了。
還有我想把結(jié)果寫進(jìn)這個(gè)access文件的一個(gè)表中，請問如何實(shí)現(xiàn)，我是新手，學(xué)access才兩個(gè)月不到，請大師們指點(diǎn)。
謝謝，非常感謝！
[img]file:///C:\Users\Administrator\AppData\Roaming\Tencent\Users\437399915\QQ\WinTemp\RichOle\LV9[T)A}E`9X6BIQ7IORO$B.png[/img]
[img]file:///C:\Users\Administrator\AppData\Roaming\Tencent\Users\437399915\QQ\WinTemp\RichOle\LV9[T)A}E`9X6BIQ7IORO$B.png[/img]
[img]file:///C:\Users\Administrator\AppData\Roaming\Tencent\Users\437399915\QQ\WinTemp\RichOle\LV9[T)A}E`9X6BIQ7IORO$B.png[/img]

風(fēng)中漫步

這樣試試
.
.
.
  End If
  rs.MoveNext
.
.

風(fēng)中漫步

寫表的例子很多,你找找吧

huzijunreokiki

成功了，得到我要的結(jié)果了，謝謝，謝謝大師指點(diǎn)。我好開心。寫表的例子我再找找哦，嘗試寫寫哦，因?yàn)槲覍?shí)在太才疏學(xué)淺了…………

付謙

huzijunreokiki 能否作個(gè)窗體附件發(fā)上來，我正急需這方面的知識，謝！

huzijunreokiki

付謙 發(fā)表于 2015-6-21 09:15
huzijunreokiki 能否作個(gè)窗體附件發(fā)上來，我正急需這方面的知識，謝！

嘿嘿，其實(shí)我也是菜鳥級別。是按照todaynew大師做的例子寫的一個(gè)遞歸過程，就是上面的那個(gè)代碼了，按照風(fēng)中漫步大師的指點(diǎn)，調(diào)用出了我想要的元素。窗體暫時(shí)還沒有做，我做完了，上傳上來哦，我抓緊，因?yàn)槭遣锁B，做起來慢………………，請諒解…………

風(fēng)中漫步

huzijunreokiki 發(fā)表于 2015-6-27 06:38
嘿嘿，其實(shí)我也是菜鳥級別。是按照todaynew大師做的例子寫的一個(gè)遞歸過程，就是上面的那個(gè)代碼了，按照風(fēng) ...

大師不敢當(dāng),大叔差不多.
一直在路上,學(xué)習(xí)無止境