Есть 3 таблицы (участок, дом,квартира) создал PictureListBox, как зделать чтобы на каждое строку, к примеру 1участок патом прикрепить и остольное дом,квартира, пробовал через DECLARE CURSOR, но показывает только участок и дом(либо только один дом) спасибо и извините за почерк. вот код
DECLARE cur_structure CURSOR FOR
SELECT structure.structureid,
incapere.apartament
FROM incapere,
structure
WHERE ( incapere.cad_raionid = structure.cad_raionid ) and
( incapere.cad_zoneid = structure.cad_zoneid ) and
( incapere.massiv = structure.massiv ) and
( incapere.sector = structure.sector ) and
( incapere.parcelid = structure.parcelid ) and
( incapere.structureid = structure.structureid ) and

( structure.cad_raionid =:s_current_legalobject.cad_raionid ) AND
( structure.cad_zoneid =:s_current_legalobject.cad_zoneid ) AND
( structure.massiv =:s_current_legalobject.massiv ) AND
( structure.sector =:s_current_legalobject.sector ) AND
( structure.parcelid =:s_current_legalobject.parcelid );


li_i =1
plb_1.reset()
ls_cad_code = string(s_current_legalobject.cad_raionid,"00") + string(s_current_legalobject.cad_zoneid,"00") + string(s_current_legalobject.massiv,"0") + string(s_current_legalobject.sector,"00") + "." + string(s_current_legalobject.parcelid,"0000")
il_arr_structureid[li_i] = 0
is_arr_liter[li_i] = 0

if s_current_legalobject.objectname = "Участок" then
plb_1.additem("Участок" + ls_cad_code + " - выбранный",3)
else
plb_1.additem("Участок" + ls_cad_code,1)
end if
open cur_structure;
/* SQL Parameters List
0-> :s_current_legalobject.cad_raionid
1-> :s_current_legalobject.cad_zoneid
2-> :s_current_legalobject.massiv
3-> :s_current_legalobject.sector
4-> :s_current_legalobject.parcelid
*/

do while sqlca.sqlcode <> 100
fetch cur_structure into :li_structureid,:ls_liter;

if sqlca.sqlcode = 100 then
exit
end if

li_i ++

ls_cad_code = string(s_current_legalobject.cad_raionid,"00") + string(s_current_legalobject.cad_zoneid,"00") + string(s_current_legalobject.massiv,"0") + string(s_current_legalobject.sector,"00") + "." + string(s_current_legalobject.parcelid,"0000") + "." + string(li_structureid,"00")
il_arr_structureid[li_i] = li_structureid

if s_current_legalobject.cad_code = ls_cad_code then
plb_1.additem("Дом" + ls_cad_code + " - выбранный",3)
li_selected = li_index
else
plb_1.additem("Дом" + ls_cad_code,2)
end if

li_i ++
ls_cad_code = string(s_current_legalobject.cad_raionid,"00") + string(s_current_legalobject.cad_zoneid,"00") + string(s_current_legalobject.massiv,"0") + string(s_current_legalobject.sector,"00") + "." + string(s_current_legalobject.parcelid,"0000") + "." + string(li_structureid,"00")+ "." + string(ls_liter,"0000")
il_arr_structureid[li_i] = li_structureid
is_arr_liter[li_i] = ls_liter
if s_current_legalobject.cad_code = ls_cad_code then
plb_1.additem("Квартира" + ls_cad_code + " - выбранный",3)
li_selected = li_index
else
plb_1.additem("Квартира" + ls_cad_code,4)
end if
loop

close cur_structure;
if s_current_legalobject.objectname = "Участок" then
ls_cad_code = "Участок" + s_current_legalobject.cad_code + " - выбранный"
elseif s_current_legalobject.objectname = "Дом" then
ls_cad_code = "Дом" + s_current_legalobject.cad_code + " - выбранный"
elseif s_current_legalobject.objectname = "Квартира" then
ls_cad_code = "Квартира" + s_current_legalobject.cad_code + " - выбранный"
end if

Не, дела в том что паказать он должен Участок (толко один) а дальше количество Домов патом Квартиры напремер
хххххххх Участок
хххххххх.хх Дом - выбранный
хххххххх.хх.хххх Квартира
хххххххх.хх.хххх Квартира
хххххххх.хх Дом

TreeWiew не то, с помощи PictureListBox, хочу связать три DW. Вот с двумя таблицами получается - работает, то есть Участок, Дом. А с Квартира(ой) ни как не получается.

СПАСИБО ПОЛУЧИЛОСЬ УРРАА!!!!!!!