ник: час
Даааа рекурсия нужна...
ноя никак её не догоняю....
блин........
берём первую карту
делаем запрос её детей
бежим по детям
берём первого - считываем данные
берём N- ого - считываем данные
Дошли до конца
теперь.............. теперь не знаю????
блиннннн а есть простой пример рекурсивной функции - что ба для тупых????
вот нашёл, но
Function Fact(n As Integer)
If n < 1 Then
Fact = 1
Else
Fact = Fact(n - 1) * n
End If
End Function
=================================
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"
If rst.RecordCount = 0 Then GoTo C_LOSE
Do Until rst.EOF
rst.MoveNext
Loop
C_LOSE:
rst.Close
Set rst = Nothing
End Function