Подскажите что тут неверно. В .gdb базе IB не получается заполнить теблицу,
т.е. добавляется пустая строка, без данных.

PUBLIC cSQL, cKey, cIndex, cText

IF !USED('TreeVie')
USE TreeVie IN 0
ENDIF
SELECT TreeVie
GO TOP

DO WHILE !EOF()
cKey=ALLTRIM(TreeVie.keyid)
cIndex=ALLTRIM(TreeVie.parentid)
cText=ALLTRIM(TreeVie.nametext)
BEGIN TRANS
cSQL='INSERT INTO TreeView_Txt (KeyID, ParentID, Text_Name) VALUES (?cKey, ?cIndex, ?cText)'
=SQLPREPARE(gnConnHandle, cSQL)
=SQLEXEC(gnConnHandle, cSQL)
=SQLCOMMIT(gnConnHandle)
END TRANS
SKIP
LOOP
EXIT
ENDDO



Подскажите как сделать так, чтобы в Treeview при нажатии на знак '+' или '-' выбирался этот узел.


Раздел1
Элемент1
Элемент2
Каталог1
Элемент3
Элемент4
Каталог2
Каталог5
Элемент5
Элемент6
Каталог7
Каталог3
Элемент9
Каталог6
Каталог4
Элемент7
Элемент8

*****************************************

Подскажите можeт ли хранимая процедура каким-то образом
в таблице базы .gdb IB перебирать (просматривать) записи?
Напимер, как в VFP, т.е.
SCAN

ENDSCAN

DO WHILE !EOF()


SKIP
LOOP
ENDDO

FOR n=1 TO RECCOUNT()

NEXT

Если да, то как это сделать?