ник: час
Function Fac(STR_NUMBER_CARD )
Dim rst As ADODB.Recordset
Set rst = New ADODB.Recordset
rst.Open "SELECT CLIENT_CARDS_TBL.* " _
& " From CLIENT_CARDS_TBL " _
& " Where (((CLIENT_CARDS_TBL.PARENT_CARD) = '" & STR_NUMBER_CARD & "')), GLB_CONNECTION, adOpenKeyset, adLockOptimistic"
do while rst.eof=false
' берём первого, считываем данные его доходов с помощью FUN_PERSONAL_TURN
GLB_GROUP_TURN = GLB_GROUP_TURN + FUN_PERSONAL_TURN()
STR_NUMBER_CARD = ( rst("NUMBER_CARD")
Fac(STR_NUMBER_CARD ) ' бежим по всем детям пока не кончатся, по детям детей , по их детям
rst.movenext ' берём следующего
loop
rst.Close
Set rst = Nothing
End Function
|
А как только дети кончатся
и цикл кончиться, а мы ещё верхний цикл не добегали.......
Кот_т_т -- чё та не то..........
Мы каждый раз берём следующего и следующего,
а тех что ранее - мы не пробегаем = не уделяем им должного внимания - как Вы считаете........
Лезим вглубь по одной ветке.....
А надо поразветвлениям шарить........
Здаётся мне тута ещё один цикл нужен