色々と試行錯誤しておりますが、行き詰まっています。
どなたかヒントかアドバイスを頂けると助かります。
HCL DominoNotesにおいて以下のテストを実施したところビューの表示だけが空白で表示される理由が知りたい。
文書に検索する番号を登録後、文書内にアクション1の関数処理とアクション2のスクリプト処理を実行。
アクション1の関数
RC := @DbLookup("";"Mics/hdqrs":"MICS\\approval2.nsf";"($Nolookup)";番号;"Office");
@If(@IsError(RC);@Prompt([Ok];"ERROR";"ERROR");@Prompt([Ok];"office";RC))
アクション2のスクリプト
Dim uidoc As NotesUIDocument
Dim db As NotesDatabase
Dim doc As NotesDocument ' NotesDocumentクラスを宣言する
Dim s As New NotesSession
Dim view As NotesView
Dim flag As Integer
Dim keys As String
Dim RCtxt As String
Dim SV As String
Dim nsf As String
Dim Fname As String
Set db = s.CurrentDatabase
SV = "Mics/hdqrs"
nsf = "MICS\\approval2.nsf"
Set db = s.GetDatabase(SV,nsf)
If db.ISOPEN Then
Else
flag =db.Open(SV,nsf)
End If
Set view = db.GetView("($Nolookup)")
Set uidoc = uiws.CurrentDocument
Set doc = uidoc.Document ' docを現在の文書として定義する
keys = doc.番号(0)
Set doc = view.GetDocumentByKey(keys)
If Not(doc Is Nothing) Then
RCtxt = doc.Office(0)
Call uidoc.FieldSetText("勤務地",RCtxt)
uidoc.Refresh
End If
アクション1の関数処理とアクション2のスクリプト処理は何れも正しい値が返ってくる。
ビューの表示列に以下の関数を定義
@DbLookup("";"Mics/hdqrs":"MICS\\approval2.nsf";"($Nolookup)";番号;"Office")
このビューを表示させると、関数を定義してある行の値が表示されない。
ビューを更新しても結果は変わらず