Предыдущая тема :: Следующая тема |
Автор |
Сообщение |
Гикор
Зарегистрирован: 06.11.2009 Сообщения: 34
|
Добавлено: Пн Фев 15, 2010 4:52 pm Заголовок сообщения: ListBox |
|
|
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.
Надеюсь вы меня поняли) |
|
Вернуться к началу |
|
|
Андрей Могильный
Зарегистрирован: 21.03.2006 Сообщения: 864
|
Добавлено: Пн Фев 15, 2010 10:45 pm Заголовок сообщения: |
|
|
У тебя есть исхождная выборка, по которой ты формируешь listbox:
Select * from USERS, DOCUMENT
where УЗЕЛ = I and DOCUMENT.id= USERS.ДокПрава
into USERS_Sel
вешаешь handler на listbox, в нем обходишь ровно такую же выборку, отсчитывая тот номер строки, которая выбрана в listbox в текущий момент. Все. |
|
Вернуться к началу |
|
|
|