Поиск по дате

makaset

Well-known member
14.03.2007
128
0
#1
Здраствуйте У меня вопрос по поиску.
вот ниже приведен код. короче я задаю за прошылй месяц нап. с 01.03.2007 по 31.03.2007 данные фильтруется нормально а вот задаю 01.04.2007 по 04.04.2007 он мне выводят всю базу. т.е не фильтрует
че за глюк кто подскажет.

Dim find As String
Set searchDoc = New NotesDocument(session.CurrentDatabase)
If ws.DialogBox("SearchForm1", True, True, False, False, False, False, "Search", searchDoc , True) Then
'find = {(free= "} + Cstr(searchDoc.Search(0)) + {")}
find = {(free= "free")}
find = find + {&(CtrlDate>= @TextToTime("} +searchDoc.Date1(0) + {"))}
find = find + {&(CtrlDate<= @TextToTime("} + searchDoc.Date2(0) + {"))}
Set dc = session.CurrentDatabase.Search(find, Nothing, 0)
Call dc.PutAllInFolder("Search", True)
Call ws.ViewRefresh
 

Kee_Keekkenen

Well-known member
05.09.2006
639
4
#2
а так
find = find + {&(@date(CtrlDate) >= @date(@TextToTime("} +searchDoc.Date1(0) + {")))}
find = find + {&(@date(CtrlDate) <= @date(@TextToTime("} + searchDoc.Date2(0) + {")))}
 
M

Mikhail

#3
А ты базу проиндексировал? Если я ничего не путаю, то для поиска по текущей дате база должна быть проиндексирована не ранее этой даты.
 

makaset

Well-known member
14.03.2007
128
0
#5
как теперь мне писать. есть у кого правилный пример