Учусь программировать на Лотусе

[STIL]

dim note as notesDocument
set collection=db.UprocessedDocuments
set note = collection.GetFirstDocument

Forall i in note.Items
End Forall

Я так понимаю, что UprocessedDocuments делает выборку, а GetFirstDocument получает первый из выборки. А зачем получать первый?
Цикл пробегает по всем документам, (note.Items что значит)?

 

[Medevic]

<!--QuoteBegin-STIL+28:12:2005, 12:04 -->
<span class="vbquote">(STIL @ 28:12:2005, 12:04 )</span><!--QuoteEBegin-->Я так понимаю, что UprocessedDocuments делает выборку, а GetFirstDocument получает первый из выборки. А зачем получать первый?

[snapback]28829" rel="nofollow" target="_blank[/snapback]​

[/quote]
Это у тебя надо спросить. Зачем ты получаешь первый.
UprocessedDocuments возвращает коллекцию, а GetFirstDocument документ из этой коллекции.

<!--QuoteBegin-STIL+28:12:2005, 12:04 -->
<span class="vbquote">(STIL @ 28:12:2005, 12:04 )</span><!--QuoteEBegin-->note.Items что значит

[snapback]28829" rel="nofollow" target="_blank[/snapback]​

[/quote]
Это значит получить все поля в документе.
В хелпе, кстати, все это расписано.

 

[STIL]

Ладно, пойду хелп читать со словарем

 

[STIL]

Я не найду панель Design раздел Other объект DataBaseScript. В хелпе искала не нашла.

 

[Medevic]

Панель - слева в дизайнере. Там где структура базы представлена (формы, представления и т.д.). Other - самый последний пункт. Там выбирай Database Resources. Там будет Database Script.

 

[STIL]

Спасибочки огромное. Сама бы никогда не нашла.
И все равно я не понимаю смысла получения первого документа. Что-то типа сначало получуть выборку, а потом открыть ее.

 

[Medevic]

<!--QuoteBegin-STIL+28:12:2005, 13:23 -->
<span class="vbquote">(STIL @ 28:12:2005, 13:23 )</span><!--QuoteEBegin-->И все равно я не понимаю смысла получения первого документа. Что-то типа сначало получуть выборку, а потом открыть ее.

[snapback]28838" rel="nofollow" target="_blank[/snapback]​

[/quote]
Именно первого или вообще получения документа ?

 

[STIL]

Да именно первого. Как получить документ вообще я вроде разобралась.

 

[Medevic]

Для: STIL
Сложно сказать по этому кусочку кода. Надо бы весь код посмотреть.
Возможно, автор уверен что db.UprocessedDocuments выдаст только один документ.

 

[Guest]

<!--QuoteBegin-STIL+28:12:2005, 12:51 -->
<span class="vbquote">(STIL @ 28:12:2005, 12:51 )</span><!--QuoteEBegin-->Да именно первого. Как получить документ вообще я вроде разобралась.

[snapback]28841" rel="nofollow" target="_blank[/snapback]​

[/quote]

Ну насколько я понимаю, ревый документ нужен для того чтоб корректно организовать обработку документов в коллекции.(цикл)
Т.е. получаешь первый документ (GetFisrtDocument), потом делаешь чё-нить с ним, двигаешься на следующий (GetNextDocument) - все это пока есть что выбирать из коллекции.

 

[STIL]

(10) Понятно спасибо.
(9) Я пока так тыкаюсь. Сейчас потыкаюсь и реальную базу начну делать.
Спасибо, что помогаете.

 

[STIL]

Ребят, помогите еще, пожалуйста


Sub Queryclose(Source As Notesuidocument, Continue As Variant)
Dim ws As NotesUIWorkspace
Dim doc As NotesDocument
Dim uidoc As NotesUIDocument

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

If note.Mac_addres="123" Then
continue=False
End If
doc.Mac_addres="123"
End Sub

В строке с рожицей ошибка (так отладчик говорит)

 

[Medevic]

<!--QuoteBegin-STIL+28:12:2005, 15:13 -->
<span class="vbquote">(STIL @ 28:12:2005, 15:13 )</span><!--QuoteEBegin-->Dim ws As NotesUIWorkspace

[snapback]28850" rel="nofollow" target="_blank[/snapback]​

[/quote]
Надо бы создать ws.
Т.е. должно быть так:

Dim ws As New NotesUIWorkspace

 

[STIL]

Новое рабочее пространство? А вообще да, в книжке так

If doc.Mac_addres="123" Then - а здесь типы не совпадают. Тип поле doc.Mac_addres Текст.

А как вы так делаете, что у вас все в рамочках. Так красивее

 

[Medevic]

<!--QuoteBegin-STIL+28:12:2005, 15:26 -->
<span class="vbquote">(STIL @ 28:12:2005, 15:26 )</span><!--QuoteEBegin-->If doc.Mac_addres="123" Then - а здесь типы не совпадают

[snapback]28852" rel="nofollow" target="_blank[/snapback]​

[/quote]
Потому что по сути поле - это массив.
Значение надо сравнивать с первым элементом. Т.е.

If doc.Mac_addres(0) = "123" Then

<!--QuoteBegin-STIL+28:12:2005, 15:26 -->
<span class="vbquote">(STIL @ 28:12:2005, 15:26 )</span><!--QuoteEBegin-->А как вы так делаете, что у вас все в рамочках. Так красивее

[snapback]28852" rel="nofollow" target="_blank[/snapback]​

[/quote]
Теги CODE и QUOTE. Можно кнопками пользоваться.

 

[STIL]

Ну здорово. Это моя первая программа на Лотусе. Я теперь такая умная
(я ведь читала, что нужно обрашаться к 0-му элементу, а вот не вспомнила

А теги это как в НТМL <CODE> </CODE>?

 

[Guest]

<!--QuoteBegin-STIL+28:12:2005, 14:13 -->
<span class="vbquote">(STIL @ 28:12:2005, 14:13 )</span><!--QuoteEBegin-->Ребят, помогите еще, пожалуйста
Sub Queryclose(Source As Notesuidocument, Continue As Variant)
Dim ws As NotesUIWorkspace
Dim doc As NotesDocument
Dim uidoc As NotesUIDocument

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

If note.Mac_addres="123" Then
continue=False
End If
doc.Mac_addres="123"
End Sub

В строке с рожицей ошибка (так отладчик говорит)

[snapback]28850" rel="nofollow" target="_blank[/snapback]​

[/quote]

Объявление класса NotesUIDocument не нужно - смотри обьявление Sub
и наверное не 'if note.Mac_addres(0)="123"', а 'if doc.Mac_addres(0)="123"'

 

[STIL]

(16) Все с тегами разобралась

 

[STIL]

(17)

'if note.Mac_addres(0)="123"', а 'if doc.Mac_addres(0)="123"'

Я поняла что вы хотели сказать. Спасибочки.

 

[STIL]

Ребят, я еще никак не пойму чем событие Initialize отличается от QueryOpen. Одно после другого, но перед открытием документа, зачем два. Про QueryOpen у меня написано, что оно выпоняется после Initialize и все.