База libreoffice создает список, отфильтрованный по значению другого списка

Создайте две примерные таблицы с именами «Провинции» и «Города».

ProvinceID  Name    
~~~~~~~~~~  ~~~~
0           South   
1           North   
2           Large Midwest   
3           Southeast   
4           West    

CityID  Name              ProvinceID
~~~~~~  ~~~~              ~~~~~~~~~~
0       Big City          2
1       Very Big City     2
2       Rural Village     1
3       Mountain Heights  0
4       Coastal Plains    4
5       Metropolis        2

Создайте запрос под названием «ProvinceNames»:

SELECT "Name" AS "Province"
FROM "Provinces"
ORDER BY "Province" ASC

Создайте запрос под названием «Провинция города»:

SELECT "Provinces"."Name" AS "Province", "Cities"."Name" AS "City"
FROM "Cities", "Provinces" WHERE "Cities"."ProvinceID" = "Provinces"."ProvinceID"
ORDER BY "Province" ASC, "City" ASC

В форме создайте табличный элемент управления на основе запроса «ProvinceNames».

С помощью навигатора форм (или мастера форм) создайте подчиненную форму для запроса «Провинция города».

Щелкните правой кнопкой мыши подчиненную форму и выберите Свойства. На вкладке Данные:

• Связать мастер-поля "Провинция"
• Связать подчиненные поля "Провинция"

Также создайте табличный элемент управления для подчиненной формы. Теперь города, отображаемые в элементе управления подчиненной формы, зависят от провинции, выбранной в элементе управления основной формы.

UserID  Name     ProvinceID  CityID
~~~~~~  ~~~~~~~  ~~~~~~~~~~  ~~~~~~
0       Person1  1           2
1       Person2  2           0

RecordID  ProvinceID  CityID
~~~~~~~~  ~~~~~~~~~~  ~~~~~~
the only  0           0

Sub ReadProvince (oEvent as Object)
    forms = ThisComponent.getDrawPage().getForms()
    mainForm = forms.getByName("MainForm")
    cityForm = forms.getByName("CityForm")
    listboxProvince = mainForm.getByName("listboxProvince")
    listboxCity = cityForm.getByName("listboxCity")
    selectedItemID = listboxProvince.SelectedValue
    If IsEmpty(selectedItemID) Then
        selectedItemID = 0
    End If
    conn = mainForm.ActiveConnection
    stmt = conn.createStatement()
    strSQL = "UPDATE ""FilterCriteria"" SET ""ProvinceID"" = " & selectedItemID & _
             "WHERE ""RecordID"" = 'the only'"
    stmt.executeUpdate(strSQL)
    listboxCity.refresh()
    lCityCol = mainForm.findColumn("CityID")
    currentCityID = mainForm.getInt(lCityCol) 
    cityForm.updateInt(cityForm.findColumn("CityID"), currentCityID)
    listboxCity.refresh()
End Sub

Sub CityChanged (oEvent as Object)
    listboxCity = oEvent.Source.Model
    cityForm = listboxCity.getParent()
    mainForm = cityForm.getParent().getByName("MainForm")
    lCityCol = mainForm.findColumn("CityID")
    selectedItemID = listboxCity.SelectedValue
    If IsEmpty(selectedItemID) Then
        selectedItemID = 0
    End If
    mainForm.updateInt(lCityCol, selectedItemID)
End Sub

Чтобы приступить к созданию этой формы, используйте мастер форм, чтобы создать новую форму и добавить все поля из таблицы «Пользователи».

Теперь в Навигаторе форм создайте форму под названием «CityForm». Тип содержимого — команда SQL, а содержимое — это:

SELECT "RecordID", "ProvinceID", "CityID" FROM "FilterCriteria"
WHERE "RecordID" = 'the only'

Затем создайте список listboxProvince в MainForm. Поле данных — «ProvinceID», а содержимое списка — следующий код Sql.

SELECT "Name", "ProvinceID" FROM "Provinces" ORDER BY "Name" ASC

Наконец, создайте список listboxCity в CityForm. Поле данных — «CityID», а содержимое списка — следующий код Sql.

SELECT "Name", "CityID" FROM "Cities" WHERE "ProvinceID" = (
    SELECT "ProvinceID" FROM "FilterCriteria"
    WHERE "RecordID" = 'the only')

Макросы связаны на вкладке «События» каждого элемента управления.

• Назначьте «После изменения записи» MainForm для ReadProvince().
• Назначьте «Изменено» из listboxProvince в ReadProvince().
• Назначьте «Changed» элемента управления listboxCity функции CityChanged().

Результат позволяет нам выбрать провинцию для фильтрации списка городов. Выбранные провинции и города сохраняются в таблице пользователей.

cityForm.Filter = "ProvinceID=" & selectedItemID
cityForm.ApplyFilter = True
cityForm.reload()
cityForm.absolute(0)

Какой бы подход ни был выбран, полное решение требует сложного программирования макросов. Чтобы упростить задачу, вы можете решить использовать более простое решение, но не такое мощное. Для получения дополнительной информации см. руководство по адресу https://forum.openoffice.org/en/forum/viewtopic.php?t=46470.

ИЗМЕНИТЬ 2

Решение, требующее меньшего количества запросов, находится по адресу https://ask.libreoffice.org/en/question/143186/how-to-use-user-selected-value-from-combobox1-in-combobox2-select.-statement/?answer=143231#post-id-143231. Второй список основан на списке значений, а не на SQL-запросе.