Здраствуйте У меня вопрос по поиску.
вот ниже приведен код. короче я задаю за прошылй месяц нап. с 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
вот ниже приведен код. короче я задаю за прошылй месяц нап. с 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