Добро пожаловать, Гость. Пожалуйста, войдите или зарегистрируйтесь.
Не получили письмо с кодом активации?
Ноябрь 21, 2017, 07:08:55 am

Автор Тема: SelectValues по полю даты  (Прочитано 731 раз)

Оффлайн Alex_S

  • Стажер
  • *
  • Сообщений: 1
  • Страна: ru
  • Рейтинг: +0/-0
    • Просмотр профиля
SelectValues по полю даты
« : Октябрь 08, 2015, 10:09:00 am »
добрый день.
хочу выполнить скрипт, чтобы задать поля отбор по переменной документа.
на выходе количество элементов массива FieldFilter > 0, при этом после выполнения скрипта полностью очищается отбор по дате. подскажите почему?

Sub ApplyDate1
 dim VarDate1Value, Cnt
 set VarDate1 = ActiveDocument.Variables("Date1")
 VarDate1Value = VarDate1.GetContent.String
 set Field = ActiveDocument.Fields("ДатаПродажи")
 set FieldFilter = Field.GetNoValues
 set FieldFilterNot = Field.GetNoValues
 set FieldAllValues = Field.GetPossibleValues
 Cnt = 0
 For i = 0 To FieldAllValues.Count - 1
  set FieldItem = FieldAllValues.Item(i)
  FieldValue = FieldItem.Number
  if FieldValue - VarDate1Value >= 0 Then
   FieldFilter.Add
   CurFilter = FieldFilter.Item(Cnt)
   CurFilter.IsNumeric = True
   CurFilter.Text = FieldValue
   Cnt = Cnt + 1
  End If
 Next
 msgbox FieldFilter.Count
 Field.SelectValues FieldFilter ', false, true
End Sub

так же пытался выполнить код
Field.Select ">=" & VarDate1Value
но не выполняется, так как VarDate1Value имеет значение 42275 (28.09.2015).
если напрямую задать
Field.Select ">=28.09.2015"
то работает, но я хочу от переменной сделать выборку поля


помогите, пожалуйста, что делаю не так

на форумах очень мало информации по работе как раз с датами, там в основном с текстовыми полями.