lotusscript搜索参数

Question

在搜索参数处，我在以下代码中遇到错误。我不知道如何为变量设置参数

Dim session As New NotesSession
Dim db As NotesDatabase
Set db = session.CurrentDatabase

Dim trenutni_dokument As NotesDocument

Dim ws As New NotesUIWorkspace
Dim broj As Integer 
Set trenutni_dokument = ws.CurrentDocument.Document
broj = trenutni_dokument.serijski_broj_ukidanja
Call trenutni_dokument.Save(True, False)

Dim stari As NotesDocument
Dim skup As NotesDocumentCollection

Set skup = db.Search("Form=""certifikat"" & serijski_broj=" +Cstr(broj)  , Nothing, 0)


Set stari = skup.GetFirstDocument

stari.stanje="Aktivan"
Call stari.Save(True, False)

'Dim dateTime As New NotesDateTime( "" )
'dateTime.LSLocalTime = Now
'stari.GetFirstDocument.datum = dateTime.DateOnly 
'Call stari.GetFirstDocument.Save(True, False)

Answer 1

尝试以下操作：

Set skup = db.Search({Form="certifikat" & serijski_broj="} & broj &{"}, Nothing, 0)

这会将当前文档的项目broj的值添加到搜索字符串中。我使用{}作为字符串分隔符，以使代码更具可读性...我个人不喜欢通过复制来屏蔽特殊字符，我认为这会使代码难以阅读。