Форум поддержки пользователей. LibreOffice, Apache OpenOffice, OpenOffice.org

Форум поддержки пользователей. LibreOffice, Apache OpenOffice, OpenOffice.org

18 Сентябрь 2019, 08:45 *
Добро пожаловать, Гость. Пожалуйста, войдите или зарегистрируйтесь.
Вам не пришло письмо с кодом активации?

Войти
Новости: Часто задаваемые вопросы по LibreOffice и Apache OpenOffice.org
 
   Начало   Помощь Поиск Войти Регистрация    задать вопрос  
Страниц: « 1 2 3 »   Вниз
  Печать  
Автор Тема: Календарь  (Прочитано 10388 раз)
0 Пользователей и 1 Гость смотрят эту тему.
adi_den2013
Форумчанин
***
Offline Offline

Пол: Женский
Расположение: Донецкая обл.
Сообщений: 259


« Ответ #24551: 26 Февраль 2014, 14:58 »

Фильтрация не отрабатывает вообще

Sub par_poisk(oEvent as Variant)                                     '
  Dim oForm, oForms,oForm2
  Dim oDrawPage as Object
  Dim box1
  Dim box2
 
  Dim oStatement As Object
  Dim oDBSource As Object
  Dim oConnection As Object
  Dim oDatabaseContext As Object
'
  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()
  box1 = oForm.getByName("txts")
  box2 = oForm.getByName("txtp")
  
  mes_s=box1.CurrentValue          ' числовое значение начала периода
  mes_p=box2.CurrentValue          ' числовое значение конца периода
  
  MsgBox "Фильтр по периоду с: "+ mes_s+" по: "+ mes_p

   oForm.Filter = "TO_CHAR(""day"",'MM') =" & mes_s
   oForm.reload()
End Sub


[вложение удалено Администратором]
« Последнее редактирование: 26 Февраль 2014, 15:01 от adi_den2013 » Записан

Яна (in real)
Страниц: « 1 2 3 »   Вверх
  Печать  
 
Перейти в:  

Powered by MySQL Powered by PHP Powered by SMF 1.1.21 | SMF © 2006-2009, Simple Machines Valid XHTML 1.0! Valid CSS!