ビューのドキュメントのピックリストを表示するフォームにボタンがあります...私の問題は、ピックリストから選択したドキュメントをフィールド「Superior1」に設定できないことです..助けてください..以下はクリックですイベントスクリプト...
Sub Click(Source As Button)
Dim session As New notessession
Dim view As NotesView
Dim view1 As notesview
Dim doc As notesdocument
Dim db As Notesdatabase
Dim Overdb As notesdatabase
Dim og As String
Dim Sup As String
Set db=session.CurrentDatabase
Set Overdb=session.GetDatabase(gsserver, "Master\\ASEAN_Staff.nsf")
Dim workspace As New NotesUIWorkspace
Dim uidoc As NotesUIDocument
Dim picklist As Variant
Set uidoc = workspace.CurrentDocument
og = uidoc.FieldGetText("OfficeGroup_Key")
picklist = workspace.PickListStrings( PICKLIST_CUSTOM,_
False,_
gsserver,_
"Master\\ASEAN_Staff.nsf",_
"x_asean_superior1",_
"Select Name",_
"Choose",_
1,_
og )
If Isempty(picklist) Then
Exit Sub
Else
Set view = Overdb.GetView("x_asean_Superior1")
Set doc = view.GetdocumentByKey(picklist, False)
Sup=doc.ColumnValues(1)
Call uidoc.FieldSetText("Superior1", Sup)
End If
End Sub
間違いがあれば訂正してください... ピックリストからドキュメントを選択すると.. 最初のドキュメントがフィールド "Superior1" に設定されます... 選択した wateva がフィールドに設定されません...