Поиск по дате

Тема в разделе "Lotus - Программирование", создана пользователем makaset, 4 апр 2007.

  1. makaset

    makaset Well-Known Member

    Регистрация:
    14 мар 2007
    Сообщения:
    126
    Симпатии:
    0
    Здраствуйте У меня вопрос по поиску.
    вот ниже приведен код. короче я задаю за прошылй месяц нап. с 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
     
  2. Kee_Keekkenen

    Kee_Keekkenen Well-Known Member

    Регистрация:
    5 сен 2006
    Сообщения:
    616
    Симпатии:
    4
    а так
    find = find + {&(@date(CtrlDate) >= @date(@TextToTime("} +searchDoc.Date1(0) + {")))}
    find = find + {&(@date(CtrlDate) <= @date(@TextToTime("} + searchDoc.Date2(0) + {")))}
     
  3. Mikhail

    Mikhail Гость

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

    Constantin A Chervonenko Well-Known Member

    Регистрация:
    30 май 2006
    Сообщения:
    1.288
    Симпатии:
    0
    путаешь. Search и FTSearch
     
  5. makaset

    makaset Well-Known Member

    Регистрация:
    14 мар 2007
    Сообщения:
    126
    Симпатии:
    0
    как теперь мне писать. есть у кого правилный пример
     
Загрузка...

Поделиться этой страницей