append blank in ...

insert into ... (...)
  values (..)

Create CURSOR  pp (tt i, kk i)
Insert into pp values ( 1 , 2 )
Insert into pp values ( 2 , 1 )

Create cursor справочник (id i autoinc, value v( 10 ))
Insert into справочник (value) values ("Вася")
Insert into справочник (value) values ("Петя")
Insert into справочник (value) values ("Коля")
Insert into справочник (value) values ("Маша")
Insert into справочник (value) values ("Вера")

Create cursor отборы (id i autoinc, tt_pp i, id_справочник i)
Insert into отборы (tt_pp, id_справочник) values ( 1 , 2 )
Insert into отборы (tt_pp, id_справочник) values ( 1 , 3 )

Insert into отборы (tt_pp, id_справочник) values ( 2 , 5 )
Insert into отборы (tt_pp, id_справочник) values ( 2 , 3 )
Insert into отборы (tt_pp, id_справочник) values ( 2 , 4 )

Select tt, Cast(select_отборы(tt) as v( 100 )) as value_отборы, kk ;
	from pp
		
Return 


Function select_отборы
Lparameters tnId
Select t2.value as value ;
	from отборы t1 ;
		left join справочник t2 on  t1.id_справочник=t2.id ;
	where tt_pp=tnId ;
	into CURSOR temp
Local lcRetValue
lcRetValue = ""	
Scan
	lcRetValue = lcRetValue + Iif(!Empty(lcRetValue),",","")+ value
endscan	
Use in temp
Return lcRetValue