Диалог выбора одного/нескольких элементов из массива или коллекции объектов TDMS (возможно разнотипных) .

1. Перед вызовом метода Show Метод диалога необходимо определить источник данных - значение свойства SelectFrom Свойство, иначе будет выведено пустое окно.
2. Результатом работы диалога (значением свойства SelectDlg.Objects) является набор объектов такого же типа, какой был задан на входе - коллекция или массив.
3. Диалог может работать только со следующими коллекциями API TDMS: TDMSUsers Коллекция, TDMSGroups Коллекция, TDMSSigns Коллекция, TDMSFiles Коллекция, TDMSObjects Коллекция, TDMSVersions Коллекция.
set selDlg = ThisApplication.Dialogs.SelectDlg
'------------------------
selDlg.SelectFrom = ThisApplication.Users
if selDlg.Show = true then
MsgBox selDlg.Objects(0).Description
end if
'------------------------
selDlg.SelectFrom = ThisApplication.Root.Objects
if selDlg.Show = true then
MsgBox selDlg.Objects(0).Description
end if
'------------------------
set Qr = ThisApplication.Queries("QUERY_TEST")
selDlg.SelectFrom = Qr.Sheet
if selDlg.Show = true then
MsgBox selDlg.Objects.CellValue(0,0) ' Sheet
end if