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

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

STIL

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

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
 
D

Domino6

#5
<!--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)
 
D

Domino6

#7
<!--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 стоит в колонке вида то обновиться только после захода в в документ в уи
 
S

STIL

#8
ребят, спасибо большое я через вспомагительную переменную все сделала.
 
Статус
Закрыто для дальнейших ответов.