Продукты IBM Lotus > IBM Lotus Notes & Domino
Проблемы при работе с Folders
Alla Makshanova:
А поле типа Number? Или в нем выбраны какие-то дополнительные опции, установлено значение по умолчанию? Если значения в нем имеют формат 0,00? Проблемы с полем
Alla Makshanova:
Формат поля какой (вторая вкладка в свойствах поля)? Decimal?
Mabuta:
Все проверил, да все так как ты и сказал, убрал нули после запитой и все остальное, но все равно ошибка False, вот
--- Код: ---Sub Click(Source As Button)
Dim session As New NotesSession
Dim db As NotesDatabase
Dim collection As NotesDocumentCollection
Set db = session.CurrentDatabase
Set collection = db.AllDocuments
Dim doc As NotesDocument
Dim doc1 As NotesDocument
Set doc = collection.GetFirstDocument
While Not(doc Is Nothing)
Set doc1 = collection.GetNextDocument(doc)
Msgbox (Зарплата = "& doc.Zarplata(0)")
If doc.Zarplata < 5000 Then 'проверяем размер зарплаты
Call doc.PutInFolder("Відповідні вакансії резюме",True)
End If
Set doc = doc1 'переходим к следующему документу
Wend
End Sub
--- Конец кода ---
Mabuta:
Скорей всего именно
doc не присваиваеться правильно, может где-то надо указать название этого документа?
Alla Makshanova:
А, так ты в кавычки не то слово взял. Надо
Msgbox ("Зарплата = " & doc.Zarplata(0))
А у тебя
Msgbox (Зарплата = "& doc.Zarplata(0)")
Вот он и понять не может, что это за строковая переменная
Проверь, что он выведет
А по поводу присвоения doc попробуй тогда со скобочками
Set doc = collection.GetFirstDocument()
как в примере из Хелп
Sub Initialize
Dim session As New NotesSession
Dim db As NotesDatabase
Dim collection As NotesDocumentCollection
Dim doc As NotesDocument
Set db = session.CurrentDatabase
Set collection = db.AllDocuments
Set doc = collection.GetFirstDocument()
While Not(doc Is Nothing)
If doc.HasEmbedded Then
Call detachFiles( doc )
End If
Set doc = collection.GetNextDocument(doc)
Wend
End Sub
Прогони пошагово. В Notes Client выбери Tools>Debug LotusScript, затем выполни агент.
Навигация
Перейти к полной версии