ник: kot_k_k
вот попробуй
Do Until rst.EOF
STR_NUMBER_CARD = rst("NUMBER_CARD")
VAL_COUNT = VAL_COUNT + 1
GLB_GROUP_ACCOUNT = GLB_GROUP_ACCOUNT + rst("PERSONAL_ACCOUNT")
'вот можно так вставить в цикл
SrtSQL="SELECT CLIENT_CARDS_TBL.* From CLIENT_CARDS_TBL Where PARENT_CARD ='" & rst!STR_NUMBER_CARD & "'"
rst_1.Open SrtSQL, GLB_CONNECTION, adOpenKeyset, adLockOptimistic
If rst_1.RecordCount > 0 Then FUN_TO_FILL_TREE_VIEW rst_1!STR_NUMBER_CARD [/b]
Loop
|
вот только
STR_NUMBER_CARD, VAL_COUNT , GLB_GROUP_ACCOUNT нужно сделать глобальными.
STR_NUMBER_CARD - возможно даже глобальным массивом или строкой