Не совсем понятна задача.
Вывод списка нужен для поиска, движения по базе данных или копирования
имеющейся в БД информации в другую запись и др. ?
Посмотрите мои варианты. Может быть какой-то подойдет.
Тогда вышлю формы.

Во втором варианте из основной формы вызывается дополнительная со списком нужного поля:
&&THISFORM.Command1.Click()
На появившейся форме делается выбор элемента,
&&cPER='' && ПЕРЕМЕННАЯ ДЛЯ ВОЗВРАТА
Далее он используется в нужных вам целях.
В примере просто для копирования в новую запись.

*************************
IF ALIAS()!='EST'
SELECT EST
ENDIF
*************************

SET INDEX TO
SET FILTER TO
INDEX ON UPPER(ALLTRIM(NAZV_OB)) TO NAZV_OB9 FOR !EMPTY(NAZV_OB).AND.N_BS_KZ=mN_BS_KZ UNIQUE COMPACT
SET INDEX TO NAZV_OB9

SET DELETED ON
LOCAL mSET_FILTER
mSET_FILTER=""
LOCAL mFILTER_VIBOR
mFILTER_VIBOR=""
LOCAL mOTDEL_L_PR,mKLASS_L_PR,mPORJAD_L_PR,mFAM_L_PR,mR_L_PR
STORE SPACE(0) TO mOTDEL_L_PR,mKLASS_L_PR,mPORJAD_L_PR,mFAM_L_PR,mR_L_PR
LOCAL nZAPISI
nZAPISI=RECNO()

mSET_FILTER=SET("Filter")
&&*************************

&&*************************
*!* mFILTER_VIBOR=mFILTER_VIBOR+IIF(EMPTY(m.OTDEL_L),'',".AND.UPPER(ALLTRIM(DIV))= UPPER(ALLTRIM(m.OTDEL_L))")
*!* mFILTER_VIBOR=mFILTER_VIBOR+IIF(EMPTY(m.KLASS_L),'',".AND.UPPER(ALLTRIM(CLASS))= UPPER(ALLTRIM(m.KLASS_L))")
*!* mFILTER_VIBOR=mFILTER_VIBOR+IIF(EMPTY(m.PORJAD_L),'',".AND.UPPER(ALLTRIM(ORDER))= UPPER(ALLTRIM(m.PORJAD_L))")
*!* mFILTER_VIBOR=mFILTER_VIBOR+IIF(EMPTY(m.FAM_L),'',".AND.UPPER(ALLTRIM(FAMILY))= UPPER(ALLTRIM(m.FAM_L))")

mFILTER_VIBOR=mFILTER_VIBOR+".AND.!EMPTY(NAZV_OB)"
mFILTER_VIBOR=SUBSTR(mFILTER_VIBOR,6)
&&*************************END - !EMPTY(NAZV_OB)

&&*************************
SET FILTER TO &mFILTER_VIBOR
GO TOP
&&****************************************************

&&****************************************************ПРОВЕРКА НАЛИЧИЯ ЗАПИСЕЙ
PUBLIC mALL
mALL=1
COUNT ALL TO mALL
IF mALL=0
MESSAGEBOX("НЕТ ИНФОРМАЦИИ. !",16,"Внимание !",3000)
RELEASE mALL
SELECT EST
SET INDEX TO
SET FILTER TO &mSET_FILTER
LOCATE FOR RECNO()=nZAPISI
RETURN
ENDIF
RELEASE mALL
GO TOP
&&****************************************************КОНЕЦ ПРОВЕРКИ

cPER='' && ПЕРЕМЕННАЯ ДЛЯ ВОЗВРАТА
cFIELDS_BD='' && ПЕРЕМЕННАЯ BD
STORE "NAZV_OB" TO cFIELDS_BD &&МЕНЯЮТСЯ ПОЛЯ БД
&&****************************************************

&&****************************************************КОЛЛЕКЦИЯ
oCol9=CREATEOBJECT("collection")
SCAN FOR !EMPTY(&cFIELDS_BD)
oCol9.ADD(ALLTRIM(&cFIELDS_BD))
ENDSCAN
&&****************************************************
LOCAL cPUTFORM
cPUTFORM=PUTFORMS+"FORM_LIST9.scx"

IF FILE(cPUTFORM)
&&****************************
THISFORM.ALWAYSONTOP=.F.
THISFORM.SETALL('ENABLED',.F.)
&&****************************
N8=-15
mNZ=IN
z6=1
zz7=1
&&****************************
DO FORM (JUSTPATH(cPUTFORM)+"\"+JUSTFNAME(cPUTFORM)) WITH ;
oCol9, cPER,"СПИСОК ЗЕЛЕНЫХ УСТРОЙСТВ", "RGB(198,198,158)", .T., "RGB(0,0,0)", "RGB(255,255,255)", .F., .F., 1
ENDIF

IF !EMPTY(cPER)
LOCATE FOR ALLTRIM(UPPER(NAZV_OB))=ALLTRIM(UPPER(cPER))
IF FOUND()
m.NAZV_OB=NAZV_OB
ELSE
MESSAGEBOX("НЕ НАЙДЕНО. ПОВТОРИТЕ ВЫБОР !",16,"Внимание !",3000)
SELECT EST
SET INDEX TO
SET FILTER TO &mSET_FILTER
LOCATE FOR RECNO()=nZAPISI
&&*******************
RETURN
ENDIF
SELECT EST
SET INDEX TO
SET FILTER TO &mSET_FILTER
LOCATE FOR RECNO()=nZAPISI
ELSE
SELECT EST
SET INDEX TO
SET FILTER TO &mSET_FILTER
LOCATE FOR RECNO()=nZAPISI
ENDIF

&&********************************************
THISFORM.REFRESH()

Для множественного выбора я использую другую форму.
В том случае, когда поле БД имеет несколько значений.
Но возвращаемую переменную тоже можно по-разному обработать.
Всего скорее у меня несколько отличные от ваших задачи программы.
Решений всегда бывает несколько.
Самое главное, чтобы безотказно работало.