[РЕШЕНО] Как очистить значение в форме при отказе от фильтра по нему?

[adi_den2013]

sub kill_filter(oEvent as Variant)
 Dim oForm, oForms,oForm2
 Dim oDrawPage as Object
 Dim oStatement As Object
 Dim oDBSource As Object
 Dim oConnection As Object
 Dim oDatabaseContext As Object
 Dim box1
'
 oDatabaseContext = createUnoService( "com.sun.star.sdb.DatabaseContext" )
 oDBSource = oDatabaseContext.GetByName("raspisanie")
 oConnection = oDBSource.GetConnection("", "")  
 oStatement = oConnection.createStatement()
 oStatement.ResultSetConcurrency = com.sun.star.sdbc.ResultSetConcurrency.UPDATABLE  
   
 oForms  = ThisComponent.getDrawPage().getForms()
 oForm = oEvent.Source.getModel().getParent()
 oForm.ApplyFilter = False
oForm.Filter = ""
 oForm.reload()
end sub

Что-то типа Release....?

[JohnSUN]

По-хорошему, одного только oForm.ApplyFilter = False уже должно хватить.
Есть ещё такой приём: условие через OR. Что-то вроде "User like '%" + flt + "'% OR '" + Trim(flt) + "'=''". То есть, если фильтр задан, то отбор идёт по первой части условия User похож на строку фильтра, а если не задан, то выводить все записи (условие "пустая строка"="пустая строка" всегда вернёт TRUE)

[adi_den2013]

Гм....

Влад, наверное, я опять плохо пояснила  

Фильтр снимается без проблем. Мне нужно очистить значение переменной в форме после отработки фильтра, чтобы не стирать вручную. Присвоение ему значения "" не помогает.

[Hasim]

я опять плохо пояснила

А я так вообще ничего не понял.
В какой форме, какое значение нужно стирать?

[adi_den2013]

В форме текстовое поле: лог

[вложение удалено Администратором]

[JohnSUN]

Ты имеешь в виду что-то вроде этого?

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

oForm.getByName("лог").Text = ""

[adi_den2013]

По смыслу - да.

[JohnSUN]

Ну, в твоём коде ты ни к одному из "контролов" не обращалась. Дёрни это текстовое поле по имени и протри ему Text пустой строкой...

[adi_den2013]

Спасибо! Дернула  и то, что доктор прописал.