Dim session As New NotesSession
Dim ws As New NotesUIWorkspace
Dim db As NotesDatabase
Dim doc As NotesDocument
Dim Bdoc As NotesDocument
Dim uidoc As NotesUIDocument
Dim View As NotesView
Dim BView As NotesView
Set db = session.currentdatabase
Set uidoc=ws.CurrentDocument
Dim item As NotesItem
Dim Bitem As NotesItem
Dim collection As NotesDocumentCollection
Set db = session.CurrentDatabase
Set View = db.GetView("(ARLookUp)")
Set BView = db.GetView("(BARLookUp)")
Set doc = view.GetFirstDocument
If Not doc Is Nothing Then
uidoc.document.ResourceName=doc.GetFirstItem( "Resources" ).text
Call uidoc.Reload
Else
' (BARLookUp)
Set Bdoc = Bview.GetFirstDocument
Set item = uidoc.document.GetFirstItem( "repeat" )
Set Bitem = Bdoc.GetFirstItem( "repeat" )
Dim positionOfChar As Long
Do While Not ( Bdoc Is Nothing )
x = Evaluate(|@Contains("| & item.text & |";"| & Bitem.text & |"), uidoc.document |)
If x=0 Then
uidoc.document.ResourceName=Bdoc.GetFirstItem( "ResourceName" ).text
Exit Do
End If
Return to top
how to fix it?x = Evaluate(|@Contai... (linda sun 11.Jan.12)
. . 
Print this page
