как проверить, выбрано ли значение listbox

[Сергей74]

 Здравствуйте. Подскажите, пожалуйста как проверить, выбрано ли значение в листбоксе.
Есть форма. Кнопка должна разблокироваться, если заполнено поле ввода и выбрано значение в листбоксе. Листбокс привязан к базе.
Если сначала выбрать листбокс, а затем поле ввода все работает. Если наоборот выдает ошибку. Как должно выглядеть второе условие?

sub buttontest1 'тестовая подпрограмма
Dim oForm, oForms, oButton, oField,oList

oForms=ThisComponent.getDrawPage().getForms()
oForm=oForms.getByName("MainForm")
oField=oForm.getByName("Текстовое поле 1")
oButton=oForm.getByName("Кнопка 1")
oList=oForm.getByName("txtprod")


if oField.text>"" then

If Not IsNull(oList.SelectedItems(0)) And Not IsEmpty(oList.SelectedItems(0)) Then


oButton.Enabled=true
endif
endif

end sub

[rami]

Пробуйте так:

Код Выделить Развернуть

Sub buttontest1 'тестовая подпрограмма
Dim oForm, oForms, oButton, oField,oList

oForms = ThisComponent.getDrawPage().getForms()
oForm = oForms.getByName("MainForm")
oField = oForm.getByName("Текстовое поле 1")
oButton = oForm.getByName("Кнопка 1")
oList = oForm.getByName("txtprod")

If oField.Text <> "" And Not IsEmpty(oList.SelectedValue) Then
        oButton.Enabled = true
EndIf

End Sub

[eeigor]

oButton.Enabled = true

oButton.Enabled = (oField.Text <> "" And Not IsEmpty(oList.SelectedValue))

rami, маленькое добавление для обратного случая

[rami]

Хорошее добавление, может быть пригодится.

[Сергей74]

 Спасибо. Все работает.