Диалог выбора одного/нескольких элементов из массива или коллекции объектов 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

TDMSSelectDlg Члены  | TDMSDialogs