ошибка "type Mismatch"

  • Автор темы -
  • Дата начала
Статус
Закрыто для дальнейших ответов.

Гость
#1
в документе текущем есть поле числовое, по умолчание значение 0,

Пишу вот такой код:

Dim ws As New NotesUIWorkspace
Dim uidoc As NotesUIDocument
Dim doc As NotesDocument


Set uidoc = ws.CurrentDocument
Set doc = uidoc.Document


If doc.isSended= 0 Then - вот здесь выпадает с сообщением об ошибке....

Может надо метод какой-нибудь испльзовать....

Код написан в событии QueryClose()
Помогите пожалуйста, почему не хочет работать :-(((
 

Гость
#2
Эх, все решилось вот таким образом:

Dim flag As Variant


flag = doc.GetItemValue("isSended")
If flag(0) = 0 Then


Если кто знает другие варианты, то прошу сообщите, заранее благодарю...
 

Medevic

Что это ? :)
Lotus team
10.12.2004
3 346
2
36
Россия, Калуга
#3
Вот так:
<!--QuoteBegin-Светлана1342+2:02:2007, 08:06 -->
<span class="vbquote">(Светлана1342 @ 2:02:2007, 08:06 )</span><!--QuoteEBegin-->If doc.isSended(0) = 0 Then
[snapback]54762" rel="nofollow" target="_blank[/snapback]​
[/quote]
 
O

oshmianski

Гость
#4
и вот так можно :)

Код:
If doc.GetItemValue("isSended")(0) = 0 Then
 

pbnoob

Well-Known Member
25.08.2006
135
0
37
#5
да хоть так :)
Код
If Cstr(doc.isSended(0)) = "0" Then
[snapback]54791" rel="nofollow" target="_blank[/snapback]​
 
Статус
Закрыто для дальнейших ответов.