2017-01-30 61 views
0

我需要幫助,我需要知道如何獲取表單字段的值 我知道如何獲取字段名稱,但不知道其中的值。 .. 這裏是我的代碼的樹幹版本: 順便說一下,循環現在沒有任何意義,但它會正確使用,一旦我找到了如何獲得字段值,... 謝謝大家!獲取Lotus Notes表單中字段的值

Forall field In form.Fields  
    fieldCount = fieldCount + 1 
    msgString = msgString & Chr(10) & "  " & field 

    If (field Like "*Act*") Then   
     ActfieldCount = ActfieldCount + 1 

     If (field Like "RNomAct1") Then 
      Msgbox("RNomAct1 found in SourceString!") 
'thoses do not work    

'    test = field.GetItemValue("RNomAct1") 
'    test = field.FieldGetText("RNomAct1") 
'    Messagebox(test(0)) 

     End If 
    Else 
     Msgbox("Could not find the SearchString.") 
    End If 

End Forall 

回答

0

某處你應該有一個文檔的引用。或者,如果你沒有,你可以通過一些其他對象訪問當前文檔:

Dim ws as New NotesUIWorkspace 
Dim uidoc as NotesUIDocument 
Set uidoc = ws.CurrentDocument 

然後你就可以用這個電話獲取字段值:

uidoc.FieldGetText("name-of-field-here") 
+0

感謝的我有一些搜索得到它太,我真的是Lotus Notes中的新成員(並且與Documents UIDoc的概念非常混淆......) –