[Гикор]

Include "MENU.DEF"
Include "MAPBASIC.DEF"
Include "ICONS.DEF"

Declare Sub Main

Sub main
Dim LayersStr,I As String
I=Selection.УЗЕЛ
Select * from USERS, DOCUMENT
where УЗЕЛ = I and DOCUMENT.id= USERS.ДокПрава
into USERS_Sel
Fetch First From USERS_Sel
do While Not EOT(USERS_Sel)
LayersStr = LayersStr + " ;" + USERS_Sel.ID+" "+ USERS_Sel.USER+ "-----> " + "<" + DOCUMENT.DOC + ">" +" "+"№"+USERS_Sel.NUMDOCL+ " от" + " " + Str$(USERS_Sel.Datadocl)
Fetch next From USERS_Sel
loop


Dialog
Title "ПОЛЬЗОВАТЕЛИ"
Control Listbox
ID 99
Title LayersStr
Height 150 Width 600
Control Button
Title "Выйти"
End Sub


Добрый день,

Это код который делает выборку по двум таблицам USERS, DOCUMENT и создает на основе этой выборки ListBox. Выбираются все пользователи из таблицы USERS у которых номер узла (USERS.УЗЕЛ) = Selection.УЗЕЛ (их может быть 1 и более). Из таблицы DOCUMENT выбираются наименования документов на основании которых USER пользуется узлом. Тут вопросов нет.
В таблице USERS хранится и другая информация, такая как паспортные данные, место работы, трафик, время пользования и т.п., эта информация в ListBox не отображатеся, но есть необходимость сделать следующее:

Нажимаем на строчку (элемент) в ListBox и появляется диалог с данными из таблицы USERS конкретного пользователя.

Вопрос как из ListBox указать о каком пользователе необходимо вытащить информацию из таблицы USERS.

Надеюсь вы меня поняли)

[Андрей Могильный]

У тебя есть исхождная выборка, по которой ты формируешь listbox:
Select * from USERS, DOCUMENT
where УЗЕЛ = I and DOCUMENT.id= USERS.ДокПрава
into USERS_Sel

вешаешь handler на listbox, в нем обходишь ровно такую же выборку, отсчитывая тот номер строки, которая выбрана в listbox в текущий момент. Все.