не получается присвоить полю значение другого поля

[STIL]

В строке с о смайликом

Sub Postopen(Source As Notesuidocument)
Dim ws As New NotesUIWorkspace
Dim db As NotesDatabase
Dim s As New NotesSession
Dim uidoc As NotesUIDocument
Dim notecollection As NotesDocument
Dim note As NotesDocument
Dim collection As NotesDocumentCollection
Dim f As String
Set db=s.CurrentDatabase
Set uidoc=ws.CurrentDocument
Set note=uidoc.Document
searchFormula$={Form="N"}
Set collection=db.Search(searchFormula$, Nothing,0)
Set notecollection=collection.GetFirstDocument
Do Until notecollection Is Nothing
If note.Znumber(0)="" Then
Set note.Znumber(0)=notecollection.Number(0)
Set notecollection.Number=notecollection.Number(0)+1
End If
Loop
Call notecollection.Save(True, False,True)
Call note.Save(True, False,True)
ws.ViewRefresh
End Sub

 

[STIL]

Все, разобралась

 

[Domino6]

Полю документ присваеваешь

 

[STIL]

почему документ? там же через точку поле

 

[Domino6]

<!--QuoteBegin-STIL+8:06:2006, 10:19 -->
<span class="vbquote">(STIL @ 8:06:2006, 10:19 )</span><!--QuoteEBegin-->почему документ? там же через точку поле

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

[/quote]
Да просто бегло смотрел а переменная по имени коллекция вот так надо

Set note.Znumber=notecollection.Number(0)

 

[Elena Nefedova]

Set note.Znumber(0)=notecollection.Number(0)

note.Znumber=notecollection.Number(0)

А еще лучше -
Call note.ReplaceItemValue("Znumber", notecollection.Number(0))

 

[Domino6]

<!--QuoteBegin-Elena Nefedova+8:06:2006, 14:30 -->
<span class="vbquote">(Elena Nefedova @ 8:06:2006, 14:30 )</span><!--QuoteEBegin-->Call note.ReplaceItemValue("Znumber", notecollection.Number(0))

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

[/quote]

Не лутше, если поле Znumber стоит в колонке вида то обновиться только после захода в в документ в уи

 

[STIL]

ребят, спасибо большое я через вспомагительную переменную все сделала.