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

Тема в разделе "Lotus - Программирование", создана пользователем STIL, 7 июн 2006.

Статус темы:
Закрыта.
  1. STIL

    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
     
  2. STIL

    STIL Гость

    Все, разобралась :)
     
  3. Domino6

    Domino6 Гость

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

    STIL Гость

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

    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]
    Да просто бегло смотрел а переменная по имени коллекция вот так надо
    Код (Text):
    Set note.Znumber=notecollection.Number(0)
     
  6. Elena Nefedova

    Elena Nefedova Гость

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

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

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

    STIL Гость

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

Поделиться этой страницей