Здраствуйте многоуважаемые ALL! памогите пожалуйста двойшнику
Я с лотусом начал работат недавно а мне дал уже задания сделать отчет.
а Я незнаю с чего начать.
у меня вопрос такого характера
как можно организовать в вюхе фильтр по дате т.е
на что бы клике кнпоку поиск срабатывал
1.при нажатии открыватся диалоговое окно с какой по какой дате надо фильтровать данные 01.01.2007 - 01.02.2007
после выбора даты в вюхе должны оставатся данные по диапазону дат который мы ввели
после этого эти данные загнат в ексел.
если монжно приведите пример пожалуйста
за ранее благодарен.
я сдесь нашол такой код который более подходить к моему заданию
но че то она не фильтрует
вот код который я скачал
Dim db As NotesDatabase
Dim view As NotesView
Dim dc As NotesDocumentCollection
Dim dateTime1 As New NotesDateTime("12.03.2007")
Dim dateTime2 As New NotesDateTime("12.03.2007")
Set dateRange = session.CreateDateRange()
Set dateRange.StartDateTime = dateTime1
Set dateRange.EndDateTime = dateTime2
Set db = session.CurrentDatabase
Set view = db.GetView( "$ALL$" )
Set dc = view.GetAllDocumentsByKey(dateRange, True)
Я с лотусом начал работат недавно а мне дал уже задания сделать отчет.
а Я незнаю с чего начать.
у меня вопрос такого характера
как можно организовать в вюхе фильтр по дате т.е
на что бы клике кнпоку поиск срабатывал
1.при нажатии открыватся диалоговое окно с какой по какой дате надо фильтровать данные 01.01.2007 - 01.02.2007
после выбора даты в вюхе должны оставатся данные по диапазону дат который мы ввели
после этого эти данные загнат в ексел.
если монжно приведите пример пожалуйста
за ранее благодарен.
я сдесь нашол такой код который более подходить к моему заданию
но че то она не фильтрует
вот код который я скачал
Dim db As NotesDatabase
Dim view As NotesView
Dim dc As NotesDocumentCollection
Dim dateTime1 As New NotesDateTime("12.03.2007")
Dim dateTime2 As New NotesDateTime("12.03.2007")
Set dateRange = session.CreateDateRange()
Set dateRange.StartDateTime = dateTime1
Set dateRange.EndDateTime = dateTime2
Set db = session.CurrentDatabase
Set view = db.GetView( "$ALL$" )
Set dc = view.GetAllDocumentsByKey(dateRange, True)