guanxf

1、FTSearch搜索：
    Set dc=db.Ftsearch("name",0)  
         '0位置為最大的查詢數，0為所有匹配的文件  FTSearch必須創建數據庫索引
 Set doc=dc.Getfirstdocument()、
2、Item：
   Set doc=dc.Getfirstdocument()
 While Not doc  Is Nothing
   ForAll ritem In doc.Items
      MsgBox ritem.name
   End ForAll
 Wend
3、取出特定的域
 Set doc=view.getFirstdocument()
 If doc.HashItem("yu") <> "" Then
    Set item=doc.getfirstitem("yu")
          Set doc=view.getNextdocument(doc)
 End If
4、使用文本屬性
If doc.Hashitem("yu") <> ""  Then
 Set doc=dc.Getfirstdocument()
  While Not doc Is  Nothing
    ForAll itemValue In doc.yu
              itemValue = "Anonymous"
          End ForAll   
      Set doc=dc.Getnextdocument(doc)
  Wend
End If
5、獲取域值：
   ForAll itemValue In doc.Getitemvalue("yu")
6、添加域
  set item =new NotesItem(doc,"newYu",session.UserName)
  Call doc.Appenditemvalue("newYu",Newvalue)
7、替換值：
  1)、 While Not doc Is Nothing
  Call doc.Replaceitemvalue("resName","newValue")
  Set doc=dc.getnextdocument(doc)
 Wend

   2)、Set doc=dc.Getfirstdocument()
 While Not doc Is Nothing
  'Call doc.Replaceitemvalue("resName","newValue")
  Set item =doc.Getfirstitem("yu")
  While Not item Is Nothing
     ForAll resitems In doc.Itemsv(0)
        resitems="newVlaue"
     End ForAll
     doc.name= doc.Itemsv(0)
     Set item =doc.getnextitem(item)
  Wend
  Set doc=dc.getnextdocument(doc)
 Wend
8、拷貝域
         Set item =doc.Getitemvalue("name")
  call item.Copyitemtodocument(doc, "name")
         call doc.save(true,false)
      Call doc1.Copyallitems(doc2,true)  ‘替換所有的
9、刪除指定的域：
     1)、 For j=1 To dc.count
   Set item=doc.Getitemvalue("name")
   While Not item Is  Nothing
    Call item.Remove()
    Call doc.Save(true,false)
   Wend
  Set doc=dc.Getnthdocument(j)
     Next
     2)、For j=1 To dc.count  
  While Not doc.Hasitem("name")
    Call doc.Removeitem("name")
    Call doc.Save(True,false)
  Wend 
   Set doc=dc.Getnthdocument(j)   
 Next
10、RTF文本域的輸出：
 Set item=doc.GetFirstItem("RtfYU")
 MsgBox item.Text
11、在代理中使用公式：

12、 嵌入對象：
 ForAll csx In doc.Embeddedobjects
    csx.name
 End ForAll
    Set doc=dc.Getnthdocument(j)
       Next
13、激活嵌入對象：
    Call doc.EmbeddedObjects(0).Activate(True)
14、if的用法
    Set doc=dc.Getfirstdocument()
    If Not IsEmpty(db.Agents) Then
    ForAll agent In db.Agents
     MsgBox agent.name
    End ForAll
     End If