domino中修改域的值

1.公式：
@SetField("StHideFlag";"");
@SetField("StMoneyTotal1XC";@GetField("StMoneyTotal1"))
SELECT @All

2.使用代理中的操作：

3.修改表单中任意一个域的值，较快捷

Option Public
Sub Initialize
 Dim S As New NotesSession
 Dim ws As New notesuiworkspace
 Dim User As New Notesname(S.Username)
 Dim DB As NotesDatabase
 Dim DC As NotesDocumentCollection
 Dim Doc As Notesdocument
 Dim Item As NotesItem
 Dim ACL As NotesACL
 Dim Entry As NotesACLEntry
 Dim tArray As Variant
 
 Set DB=S.CurrentDatabase
 Set ACL = DB.ACL
 FullName=User.Abbreviated
 
 Set Entry = ACL.GetEntry( FullName )
 
 
 n=ws.Prompt(PROMPT_OKCANCELEDIT,"", "请输入域的名称", "", "")
 If n<>"" Then
  v=ws.Prompt(PROMPT_OKCANCELEDIT,"", "请输入要修改的值", "", "")
 Else
  Msgbox "域的名称不能为空！"
  Exit Sub
 End If
 
 Set DC=DB.UnprocessedDocuments
 Set Doc = DC.GetFirstDocument()
 While Not(Doc Is Nothing)
  Set Item=doc.ReplaceItemValue(n,v)
  Call doc.save(True,True)
  Set Doc = DC.GetNextDocument(Doc)
 Wend 
End Sub