Список форумов Форум Libreoffice

Форум Libreoffice

Добро пожаловать на Форум Libreoffice!
 
 FAQFAQ   ПоискПоиск   ПользователиПользователи   ГруппыГруппы   РегистрацияРегистрация 
 ПрофильПрофиль   Войти и проверить личные сообщенияВойти и проверить личные сообщения   ВходВход 

English French German Italian Portuguese Russian Spanish
Связанные списки на форме

 
Начать новую тему   Ответить на тему    Список форумов Форум Libreoffice -> Base
Предыдущая тема :: Следующая тема  
Автор Сообщение
RFJ



Репутация: +1    

Зарегистрирован: 02.08.2011
Сообщения: 59

СообщениеДобавлено: Ср Окт 05, 2011 12:51 pm    Заголовок сообщения: Связанные списки на форме Ответить с цитатой

Пример использования связанных списков на форме.
Раскрывающиеся списки "Страна" - "Город" - "Улица" позволяют последовательно отбирать элементы списков.
Список выбора каждого последующего списка определяется выбранным элементом предыдущего.
Макрос, связывающий списки:
Код:
Sub Main
   Main12
End Sub

Sub Main12
   Dim myForm   As   Object
   myForm = ThisComponent.DrawPage.Forms.GetByIndex(0)
     Lst1 =   myForm.getByName("ListBox1")
   Lst2 =   myForm.getByName("ListBox2")
     iSecItem = Lst1.SelectedItems(0)
     sString = Lst1.StringItemList(iSecItem)
   Lst2.ListSource   = Array("SELECT ""город"".""город"",""страна"".""страна"",""город"".""Idстрана"",""страна"".""ID"" FROM ""город"" AS ""город"", ""страна""  AS ""страна"" WHERE  ""город"".""Idстрана"" = ""страна"".""ID"" AND  (""страна"".""страна"" = "&"'"& sString &"'"&")")   
   Lst2.refresh()
   Main23
End Sub

Sub Main23
   Dim myForm   As   Object
   myForm = ThisComponent.DrawPage.Forms.GetByIndex(0)
   Lst2 =   myForm.getByName("ListBox2")
    Lst3 =   myForm.getByName("ListBox3")   
     iSecItem = Lst2.SelectedItems(0)
     sString = Lst2.StringItemList(iSecItem)
   Lst3.ListSource   = Array("SELECT ""улица"".""улица"", ""улица"".""Idгород"",""город"".""ID"", ""город"".""город"" FROM ""улица"" AS ""улица"", ""город"" AS ""город"" WHERE ""улица"".""Idгород"" = ""город"".""ID"" AND  (""город"".""город"" = "&"'"& sString &"'"&")")   
   Lst3.refresh()
End Sub


Файл с примером http://ifolder.ru/26162869



Вернуться к началу
Посмотреть профиль Отправить личное сообщение
Bobby_M3



Репутация: 0    

Зарегистрирован: 29.12.2015
Сообщения: 1

СообщениеДобавлено: Вт Дек 29, 2015 1:46 pm    Заголовок сообщения: А как внести данные из такой формы в таблицу? Ответить с цитатой

Воспользовался данным методом создания зависимых списков на форме - но как потом внести эти данные в таблицу и использовать их дальше?

Макросом к списку выпадающему подтягиваются данные в зависимости от данных выбранных в предыдущем выпадающем списке. Но вот данные из зависимого списка никак использовать не могу.
Не вносятся в таблицу из этой формы и все - хотя во вкладке "Данные" в свойствах объекта стоит все по той же схеме, как и для списков, не стоящих в какой-либо зависимости.
Вернуться к началу
Посмотреть профиль Отправить личное сообщение
Показать сообщения:   
Начать новую тему   Ответить на тему    Список форумов Форум Libreoffice -> Base Часовой пояс: GMT
Страница 1 из 1

 
Перейти:  
Вы не можете начинать темы
Вы не можете отвечать на сообщения
Вы не можете редактировать свои сообщения
Вы не можете удалять свои сообщения
Вы не можете голосовать в опросах


Powered by phpBB © 2001, 2005 phpBB Group
Вы можете бесплатно создать форум на MyBB2.ru, RSS