LotusScript教育训练简报档.ppt

1、Lotus Script教育訓練,Module A : Using Lotus Script to Programmatically Access and Modify Database Module B : Navigating the User Interface Classes Module C : Creating and Modifying Documents Module D : Processing Runtime Errors and Reusing Code,Module A,Lesson 1 : Introducing Lotus Script Lesson 2 : Acc

2、essing Database Information Lesson 3 : Navigating the Domino Object Model to Access ACL Information,Lesson 1 Introducing LotusScript,學習目標： 定義Lotus Script 列舉Lotus Script的優點 確認可以撰寫與執行Lotus Script的位置 宣告變數 指定變數數值 使用MessageBox顯示訊息 使用Lotus Script偵錯工具,Lesson1 Introducing LotusScript,Introducing Lotus Scrip

3、t(1),Lesson1 Introducing LotusScript,使用Lotus Script的優點： 簡單易學。 獨立於平台之外，可在特定平台撰寫，在其他平台執行。 可經由一組物件導向的classes來存取整個Domino應用程 式。 支援OLE，可以讓Notes文件使用其他OLE內嵌應用程式。 Lotus Script IDE允許開發人員建立、編輯、偵錯Script。 開發人員可以建立函數與程式庫來重複使用程式。 開發人員可以建立新類別與新物件。,Introducing LotusScript(2),使用時機 開發具有複雜控制的條件、子程式、分支程式時 在不同的物件或事件撰寫程式時

4、 偵錯複雜的程式碼時 使用OLE存取其他應用程式時,Lesson1 Introducing LotusScript,Lesson1 Introducing LotusScript,Introducing LotusScript(3),使用位置與執行時機(1) 代理程式： 從動作功能表中手動執行 排程執行 在新郵件到達之前與之後 曾經建立或修改的文件 文件已貼上,Lesson1 Introducing LotusScript,Introducing LotusScript(4),使用位置與執行時機(2) 動作： 從動作功能表中手動執行 從套表或視界的動作按鈕執行 套表、視界、事件 當網頁、套表、

5、視界開啟或關閉時 當游標進入或離開欄位時,Lesson1 Introducing LotusScript,Declaring Variables(1),LotusScript資料類型(1),Lesson1 Introducing LotusScript,Declaring Variables(2),Lotus Script資料類型(2),Lesson1 Introducing LotusScript,Declaring Variables(3),關鍵字Dim 用來顯性宣告變數的關鍵字 語法 Dim VarName As datatype Ex. Dim PartNumber As Intege

6、r Dim FirstName As String,Lesson1 Introducing LotusScript,Declaring Variables(4),變數命名規則 第一個字元不可為數字。 第二個字元開始可為字母、數字、或底線。 變數最大長度為40字元。 無大小寫之分。,Lesson1 Introducing LotusScript,Assigning Variables(1),指定變數值 使用指定運算子(=)，將數值指定給變數。 Ex. Dim PartNumber As Integer Dim Msg As String Dim Msg2 As String PartNumber

7、 = 37 Msg = “This is a string.”,Lesson1 Introducing LotusScript,Assigning Variables(2),隱性宣告變數 不必使用Dim的簡易宣告方式。 語法 VarName = value Ex. FirstName$ = “Joseph” MessageBox “First Name is “ ”names.nsf”),Creating Objects(3),Lesson2 Accessing Database Information,實作NotesDatabase物件的目的 存取已經存在的資料庫 建立新資料庫 由現存的資料

8、庫建立新資料庫 新複製 套用範本建立 建立抄本資料庫,Accessing Objects Properties(1),Lesson2 Accessing Database Information,認識物件屬性 物件屬性的數值是物件本身的一些資料。例如NotesDatabase的屬性有標題、檔案路徑、檔案名稱等等。,Accessing Objects Properties(2),Lesson2 Accessing Database Information,存取物件屬性 語法 variable = perty 解釋 variable：資料類型須與物件屬性的資料類型相同 obje

9、ct：要實作物件的名稱 property：要實作物件的屬性名稱,Accessing Objects Properties(3),Lesson2 Accessing Database Information,顯示資料庫屬性 Dim db As NotesDatabase Set db = New NotesDatabase(“”,”names.nsf”) Msgbox “Database title is ” + db.Title Msgbox “Database server is “ + db.Server Msgbox “Database filename is “ + db.FileNa

10、me db.Title = “My Local Directory” Msgbox “Database title is ” + db.Title,Simple Error Checking Code(1),Lesson2 Accessing Database Information,使用If.Then.Else敘述(1) 語法 If condition Then statements Else statements EndIf,Simple Error Checking Code(2),Lesson2 Accessing Database Information,使用If.Then.Else

11、敘述(2) Ex. If x 0 Then Msgbox “The Number is positive.” Else Msgbox “The number is not positive.” EndIf,Simple Error Checking Code(3),Lesson2 Accessing Database Information,簡單的錯誤檢查 Ex. If (db.IsOpen = False ) Then Msgbox “Could not open database.” Exit Sub EndIf,Accessing the Current Database,Lesson2

12、 Accessing Database Information,使用NotesSession的CurrentDatabase屬性 Ex. Dim s As New NotesSession Dim db As NotesDatabase Set db = s.CurrentDatabase Msgbox db.Title,Creating Database,Lesson2 Accessing Database Information,使用CreateCopy方法來新複製資料庫 Ex. Dim db As NotesDatabase Dim NewDb As NotesDatabase Set

13、db = New NotesDatabase(“Notes01”,”Discus.nsf”) Set NewDb = db.CreateCopy(“Notes02”,”Discus1.nsf”) NewDb.Title = “New Disscus Database”,Lesson 3 Navigating the Domino Object Hierarchy,學習目標： 認識Domino物件類別階層 接收並顯示ACL項目的存取權限,Lesson3 Navigating the Domino Object Hierarchy,Retrieving the Access Level of an

14、 ACL Entry(1),Lesson3 Navigating the Domino Object Hierarchy,NotesACLEntry的路徑,NotesSession,NotesDatabase,NotesView,NotesDocument,NotesACL,NotesACLEntry,Retrieving the Access Level of an ACL Entry(2),Lesson3 Navigating the Domino Object Hierarchy,物件模式 NotesACLEntry類別是包含在NotesACL中 NotesACL類別是包含在NotesD

15、atabase中 NotesDatabase是包含在三個類別中，若只要在目前的 資料庫中進行存取動作，只要用NotesSession類別的 CurrentDatabase屬性即可。 NotesSession-NotesDatabase-NotesACL -NotesACLEntry,Retrieving the Access Level of an ACL Entry(3),Lesson3 Navigating the Domino Object Hierarchy,確認需要的屬性與方法,Retrieving the Access Level of an ACL Entry(4),Lesson

16、3 Navigating the Domino Object Hierarchy,存取ACL Entry(1) NotesACL類別代表資料庫中的存取控制清單，騎提供的數性與方法可以用來讀取或操作ACL中的資料。 語法 Set NotesACLEntry = NotesACL.GetEntry(Name$),Retrieving the Access Level of an ACL Entry(5),Lesson3 Navigating the Domino Object Hierarchy,存取ACL Entry(2) Ex. Dim s As New NotesSession Dim db

17、 As NotesDatabase Dim acl As NotesACL Dim aclentry As NotesACLEntry Set db = s.CurrentDatabase Set acl = db.ACL Set aclEntry = acl.GetEntry(“LocalDomainServers”),Retrieving the Access Level of an ACL Entry(5),Lesson3 Navigating the Domino Object Hierarchy,ACL層級與傳回值,Module B,Lesson 4 : Working With N

18、otesUIWorkspace Lesson 5 : Working With NotesUIDocument,Lesson 4 Working with NotesUIWorkSpace,學習目標： 認識使用者介面的類別 使用NotesUIWorkSpace的方法 使用prompt方法蒐集使用者輸入的資料,Lesson4 Working with NotesUIWorkSpace,Programming User Interface(1),Lesson4 Working with NotesUIWorkSpace,User Interface的類別層級,NotesUIWorkspace,No

19、tesUIDatabase,NotesUIView,NotesUIDocument,Programming User Interface(2),Lesson4 Working with NotesUIWorkSpace,NotesUIWorkspace類別 NotesUIWorkSpace表示目前使用者在Notes Client的工作區視窗。其包含目前的資料庫、目前的文件、目前的視界。 舉例來說，當使用者停留在視界時，則工作區包含的是資料庫與視界。 工作區類別也提供變動UI的方法。舉例來說，你可以使用LS在工作區開啟資料庫或建立新文件。,Programming User Interface(3

20、),Lesson4 Working with NotesUIWorkSpace,增加資料庫icon到工作區或書籤列 語法 Call NotesUIWorkspace.AddDatabase(server$,filename$) Ex. Dim ws As New NotesUIWorkspace Call ws.AddDatabase(“server01”,”disscuss.nsf”),Programming User Interface(4),Lesson4 Working with NotesUIWorkSpace,OpenDatabase方法 可以在目前的UI開啟資料庫，如果可以正確開

21、啟的話，就可以使用CurrentDatabase屬性來存取被開啟的資料庫。 語法 Call NotesUIWorkspace.OpenDatabase(server$,file$,_ View$,newInstance,temp) Ex. Dim ws As New NotesUIWorkspace Call ws.OpenDatabase(“server01”,”disscuss.nsf”),Gathering User Input(4),Lesson4 Working with NotesUIWorkSpace,prompt方法 與公式的prompt功能相同. 可以傳會使用者在對話方塊輸入

22、的資料。 語法 Variant = NotesUIWmpt(type%,title$,_ prompt$,default,values) Ex. Variant = NotesUIWmpt (PROMPT_YESNOCANCEL,”Message”,”Do you wish to save the document”),Lesson 5 Working with NotesUIDocument,學習目標： 列舉經常使用的目前文件屬性 存取目前文件 建立新文件 使用FieldGetText方法取得目前文件的欄位值 使用FieldGetText方法修

23、改目前文件的欄位值,Lesson5 Working with NotesUIDocument,Accessing Current Document(1),Lesson5 Working with NotesUIDocument,Current Document的意義 所謂Current Document就是目前被開啟在Notes client的文件。它可以經由NotesUIWorkspace類別的NotesUIDocument類別來存取其中的資料或控制使用者的動作。,Accessing Current Document(2),Lesson5 Working with NotesUIDocume

24、nt,存取Current Document 若要存取Current Document，可以使用NotesUIWorkspace類別的屬性與方法，例如： CurrentDocument屬性 ComposeDocument方法 EditDocument方法,Accessing Current Document(3),Lesson5 Working with NotesUIDocument,使用NotesUIWorkspace的CurrentDocument屬性(1) 使用此一屬性可以存取目前開啟在Notes client的Current Document，但是此一屬性不能代表在視界勾取的文件。 語

25、法 Set NotesUIDOcument=NotesUIWorkspace._ CurrentDocument,Accessing Current Document(4),Lesson5 Working with NotesUIDocument,使用NotesUIWorkspace的CurrentDocument屬性(2) Ex. Dim ws As New NotesUIWorkspace Dim uidoc As NotesUIDocument Set uidoc = ws.CurrentDocument,Accessing Current Document(5),Lesson5 Wor

26、king with NotesUIDocument,NotesUIDocument類別常使用的屬性與方法 IsNewDoc 屬性 WindowTitle 屬性 EditMode 屬性 GotoField 方法 Refresh 方法 Save 方法 Send 方法,Composing a New Document(1),Lesson5 Working with NotesUIDocument,使用ComposeDocument方法建立文件(1) NotesUIWorkspace類別的ComposeDocument方法可以選擇特定的套表來建立文件，並開啟在Notes client。功能與公式的co

27、mpose類似。 Ex1. Dim ws As New NotesUIWorkspace Dim uidoc As NotesUIDocument Set uidoc = w.ComposeDocument(“notes01”,_ discuss.nsf”,“Main Topic”),Composing a New Document(2),Lesson5 Working with NotesUIDocument,使用ComposeDocument方法建立文件(2) Ex2. Dim ws As New NotesUIWorkspace call ws.ComposeDocument(“note

28、s01”,discuss.nsf”,_ “Main Topic”),Retrieving Field Value from Current Document(1),Lesson5 Working with NotesUIDocument,使用FieldGetText方法取得目前文件欄位值NotesUIDocument類別的FieldGetText方法可以從目前文件指定的欄位取得欄位值，但取出之數值都會被轉換成字串格式。若要將取得值轉換成其他資料類型，則需另外處理。 語法 textValue$ = NotesUIDocument.FieldGetText_ (“fieldname”),Retri

29、eving Field Value from Current Document(2),Lesson5 Working with NotesUIDocument,Ex. Dim ws As New NotesUIWorkspace Dim uidoc As NotesUIDocument Set uidoc = ws.CurrentDocument Dim fname As String fname = uidoc.FieldGetText(“FirstName”),Retrieving Field Value from Current Document(3),Lesson5 Working w

30、ith NotesUIDocument,資料類型的轉換 在LotusScript中提供了幾個內建函數來轉換資料的類型。,Changing Field Value on Current Document(1),Lesson5 Working with NotesUIDocument,將目前文件閱讀模式轉換成編輯模式 若要在目前文件改變欄位值時，必須先將目前的文件轉換成編輯模式。NotesUIDocument類別的EditMode屬性可以達成此目的。 Ex. Dim ws As New NotesUIWorkspace Dim uidoc As NotesUIDocument Set uidoc

31、= ws.CurrentDocument Uidoc.EditMode = True,Changing Field Value on Current Document(2),Lesson5 Working with NotesUIDocument,使用FieldSetText方法(1) NotesUIDocument類別的FieldSetText方法可以修改目前文件指定的欄位值， 語法 Call NotesUIDocument.FieldSetText_ (“fieldname”,”Value”),Changing Field Value on Current Document(3),Less

32、on5 Working with NotesUIDocument,使用FieldSetText方法(2) Ex. Dim ws As New NotesUIWorkspace Dim uidoc As NotesUIDocument Set uidoc = ws.CurrentDocument Call uidoc.FieldSetText(“FirstName”,”Molly”),NotesUIDocument Events(1),Lesson5 Working with NotesUIDocument,NotesUIDcument Events 當使用者在目前文件執行特定動作時會觸發一些事

33、件，設計師可以在事件中撰寫程式以啟動特定的運算。 QueryopenPostOpen QuerymodechangePostmodechange QuerysavePostsave Queryclose,NotesUIDocument Events(2),Lesson5 Working with NotesUIDocument,使用Querysave Events 此事件會在文件儲存前啟動，通常是用來檢查使用者輸入的欄位值是否正確，若不正確再執行其他動作。 使用Postopen Events 此事件會在文件開啟前啟動，通常是用來告知使用者文件的資訊，或是警告使用此文件的限制。,NotesUID

34、ocument Events(3),Lesson5 Working with NotesUIDocument,Ex. Sub Querysave(Source As NotesUIDocument,Continue As Variant) Dim lname As String If lname = “” Then Msgbox “Please enter your last name.” Continue = False End If End Sub,NotesUIDocument Events(4),Lesson5 Working with NotesUIDocument,Ex. Sub

35、Postopen(Source As NotesUIDocument) If (Source.FieldGetText(“CheckOut”)=“Yes”) Then Msgbox “This document is currently checked out.” End If End Sub,Module C,Lesson 6 : Accessing Data in Document Lesson 7 : Writing Data in Document Lesson 8 : Using View Entry and Document Collections,Lesson 6 Accessi

36、ng Data in Documents,學習目標： 從文件讀取資料 從視界中讀取多份文件的資料 使用特定Item值在視界中搜尋資料 讀取在視界中顯示的資料 從Item讀取多重值,Lesson6 Accessing Data in Documents,Accessing Data in Document(1),使用LotusScript存取文件的思考要素 使用者必須在Notes client 使用者從Notes client開啟資料庫 使用者在資料庫中開啟視界 使用者從視界中選擇文件,Lesson6 Accessing Data in Documents,Accessing Data in D

37、ocument(2),建立環境(Session) NotesSession類別代表LotusScript執行的環境，與使用者使用Notes client的環境類似。 在session中可以開啟一個資料庫，並且讀取與環境相關的資訊，例如，目前使用者的名稱與Notes版本。 語法 Dim s As New NotesSession,Lesson6 Accessing Data in Documents,Accessing Data in Document(3),開啟資料庫(1) LotusScript是物件基礎的語言，若要控制一個物件就必須先取得此物件，才能使用其屬性與方法。所以若要使用資料庫的屬

38、性或方法時，就必須先開啟資料庫物件。 存取目前資料庫，使用CurrentDatabase屬性 存取其他資料庫，使用GetDatabase方法,Lesson6 Accessing Data in Documents,Accessing Data in Document(4),開啟資料庫(2) Ex. Dim s As New NotesSession Dim db As NotesDatabase Dim db2 As NotesDatabase Set db = s.CurrentDatabase Set db2 = s.GetDatabase(“server01”,”discuss.nsf”

39、),Lesson6 Accessing Data in Documents,Accessing Data in Document(5),開啟視界 當資料庫物件啟動後，您可以使用NotesDatabase類別的GetView方法來開啟資料庫中的任何視界。 Ex. Dim s As New NotesSession Dim db As NotesDatabase Dim v As NotesView Set db = s.CurrentDatabase Set v = s.GetView(“Topics”),Lesson6 Accessing Data in Documents,Accessing

40、 Data in Document(6),使用欄位值存取文件(1) 利用NotesView類別的GetDocumentbyKey方法可以指定關鍵字並配合視界中的直欄值來搜尋視界中的文件。,Lesson6 Accessing Data in Documents,Accessing Data in Document(7),使用欄位值存取文件(2) Ex. Dim s As New NotesSession Dim db As NotesDatabase Dim v As NotesView Dim doc As NotesDocument Set db = s.CurrentDatabase Se

41、t v = s.GetView(“Topics”) Set doc = v.GetDocumentbyKey(“Louis”,True),Lesson6 Accessing Data in Documents,Retrieving Document Properties(1),NotesDocument類別的屬性 所謂NotesDocument類別屬性，就是在文件屬性方塊中所看的資料。例如： NoteIDCreated LastModifiedSize 還有不在文件屬性方塊中的屬性，例如 IsNewNoteIsResponse ParentDocumentUNID,Lesson6 Access

42、ing Data in Documents,Retrieving Document Properties(2),NotesDocument類別的屬性 Dim s As New NotesSession Dim db As NotesDatabase Dim v As NotesView Dim doc As NotesDocument Set db = s.CurrentDatabase Set v = s.GetView(“Topics”) Set doc = v.GetDocumentbyKey(“Louis”,True) Msgbox doc.IsewNotes + “ “ + doc.

43、Created,Lesson6 Accessing Data in Documents,Retrieving Item Value from a Document(1),存取Item值 所謂Item值就是Notes文件儲存在後端的欄位值，可以在文件屬性方塊的欄位標籤中看到這些Item的Value、Value型態等等。 在Notes文件中，即使欄位值只有一個，也是以清單的方式儲存，例如doc.ItemName(0)、 doc.ItemName(1)、 doc.ItemName(2)。,Lesson6 Accessing Data in Documents,Retrieving Item Valu

44、e from a Document(2),使用GetItemValue方法(1) NotesDocument類別的GetItemValue方法會傳回文件中指定欄位的數值。 不論欄位值是文字、數字、時間日期等等， GetItemValue都是以陣列型態來回傳，即使其中也沒有任何數值了。,Lesson6 Accessing Data in Documents,Retrieving Item Value from a Document(3),使用GetItemValue方法(2) 語法 valueArray = NotesDocument.GetItemValue_ (“ItemName)” Ex.

45、 Dim lname As String lname = doc.GetItemValue(“LastName”),Lesson6 Accessing Data in Documents,Looping Through Documents in a View(1),使用NotesView的方法，可以在視界中一份接一份的搜尋文件，這對於使用者要存取資料的文件不出現在視界中是很有效率的。 又假若資料有出現在視界中的話，使用NotesViewEntry類別來存取資料會更有效率。,Lesson6 Accessing Data in Documents,Looping Through Documents

46、 in a View(2),依順序搜尋視界文件的方法 NotesView類別提供兩個方法，可以依順序一份接一份搜尋視界中文件的資料。 GetFirstDocument GetLastDocument,Lesson6 Accessing Data in Documents,Looping Through Documents in a View(3),LotusScript的迴圈架構 LotusScript提供了幾種迴圈架構，可以依照條件來執行指定的動作。 當掃描視界搜尋特定文件時，可以使用下列的迴圈： Do While Do Until,Lesson6 Accessing Data in Doc

47、uments,Looping Through Documents in a View(4),使用Do While迴圈(1) DoWhile可以在設定的條件成立時，就會執行迴圈中的敘述。 語法 Do While statements Loop,Lesson6 Accessing Data in Documents,Looping Through Documents in a View(5),使用Do While迴圈(2) Ex. Set doc = v.GetFirstDocument Do While Not (doc is Nothing) count = count + 1 Set doc

48、 =v.GetNextDocument(doc) Loop,Lesson6 Accessing Data in Documents,Looping Through Documents in a View(6),使用Do Until迴圈(1) DoUntil可以在設定的條件成立或不成立時，才會執行迴圈中的敘述。 語法 Do Until statements Loop,Lesson6 Accessing Data in Documents,Looping Through Documents in a View(7),使用Do Until迴圈(2) Ex. Set doc = v.GetFirstD

49、ocument Mesgbox doc.Subject(0) Do Until doc is Nothing Set doc =v.GetNextDocument(doc) Mesgbox doc.Subject(0) Loop,Lesson6 Accessing Data in Documents,Accessing Data Directly from the View(1),在某些例子中，若資料直接在視界中出現，將有助於開啟視界中的文件來存取Item值。,NotesViewEntry類別 此類別表示視界中的一筆資料(橫列)，每一筆資料稱為一筆entry而非Document，因為entry

50、的資料僅包含有在視界上顯示的直欄值。所以處理entry比處理Document的速度還快。,Lesson6 Accessing Data in Documents,Accessing Data Directly from the View(2),存取視界entry(1) 使用NotesView類別的GetEntryByKey方法可以存取視界entry。給予一個關鍵值，此方法就會將此關鍵值拿來跟視界直欄中的每一筆entry比對，並傳回第一筆符合關鍵值的entry。,Lesson6 Accessing Data in Documents,Accessing Data Directly from th

51、e View(3),存取視界entry(2) Dim s As New NotesSession Dim db As NotesDatabase Dim v As NotesView Dim ventry As NotesViewEntry Set db = s.CurrentDatabase Set v = s.GetView(“By Category”) Set ventry = v.GetEntrybyKey(“Dogs”),Lesson6 Accessing Data in Documents,Accessing Data Directly from the View(4),使用Col

52、umnValues屬性(1) NotesViewEntry類別的ColumnValues屬性傳回的值是視界Entry的直欄值。,Lesson6 Accessing Data in Documents,Accessing Data Directly from the View(5),使用ColumnValues屬性(2) Dim s As New NotesSession Dim db As NotesDatabase Dim v As NotesView Dim ventry As NotesViewEntry Set db = s.CurrentDatabase Set v = s.GetV

53、iew(“By Category”) Set ventry = v.GetEntrybyKey(“Dogs”) MsgBox ventry.ColumnValues(0) MsgBox ventry.ColumnValues(1),Lesson6 Accessing Data in Documents,Accessing Data Directly from the View(6),使用ChildCount屬性(1) ChildCount屬性會傳回目前取得的視界Entry的回應文件數，傳回值是整數。,Lesson6 Accessing Data in Documents,Accessing D

54、ata Directly from the View(7),使用ChildCount屬性(2) Dim s As New NotesSession Dim db As NotesDatabase Dim v As NotesView Dim ventry As NotesViewEntry Set db = s.CurrentDatabase Set v = s.GetView(“By Category”) Set ventry = v.GetEntrybyKey(“Dogs”) MsgBox ventry.ChildCount,Lesson6 Accessing Data in Docume

55、nts,Lesson 7 Writing Data to Documents,學習目標： 更新欄位值 在文件中建立新欄位 設定欄位屬性以表示文件的作者與讀者 建立新文件 傳送文件,Lesson7 Writing Data to Documents,Adding and Replacing Items(1),使用類別延伸語法增加新Item 類別延伸語法提供比較簡易的方法新增欄位且指定給值，以下的程式會新增欄位到文件中，並將數值指定給該欄位。 Ex. Doc.Region = “Asia Pacific” Doc.Author = s.UserName 注意：若是文件中已存在此欄位，則原欄位值將會

56、被覆寫。且套表並不會在前端自動產生欄位顯示欄位值。,Lesson7 Writing Data to Documents,Adding and Replacing Items(2),使用AppendItemValue(1) NotesDocument類別的AppendItemValue方法會增加一個新Item到文件中，並指定數值給此Item。假如文件中已經存在同名的Item，則會再產生一個同名Item。另外，您必須搭配文件的Save方法才可以將此Item與其數值存到文件中。 語法 Call NotesDoc.AppendItemValue(“ItemName”,value),Lesson7 Wr

57、iting Data to Documents,Adding and Replacing Items(3),使用AppendItemValue(2) Dim s As New NotesSession Dim db As NotesDatabase Dim v As NotesView Dim doc As NotesDocument Set db = s.CurrentDatabase Set v = s.GetView(“By Location”) Set doc = v.GetDocumentbyKey(“China”) Call doc.AppendItemValue(“Region”

58、,”Asia”) Call doc.Save(False,True),Lesson7 Writing Data to Documents,Adding and Replacing Items(4),使用ReplaceItemValue(1) ReplaceItemValue方法會將指定的數值覆寫已存在的Item數值，假若指定的Item不存在，新的欄位就會產生。 語法 Call NotesDoc.ReplaceItemValue(“ItemName”,”value”),Lesson7 Writing Data to Documents,Adding and Replacing Items(5),

59、使用ReplaceItemValue(2) Dim s As New NotesSession Dim db As NotesDatabase Dim v As NotesView Dim doc As NotesDocument Set db = s.CurrentDatabase Set v = s.GetView(“By Location”) Set doc = v.GetDocumentbyKey(“China”) Call doc.ReplaceItemValue(“Region”,”Asia”) Call doc.Save(False,True),Lesson7 Writing Data to Documents,Saving the Document(1),儲存文件(1) NotesDocument類別的Save方法，可以將文件上任何欄位的變動儲存起來。 語法 Call NotesDoc.Save(force,CreateReponse) Ex. Call doc.Save(True,True),Lesson7 Writing Data to Documents,Saving the Document(2),Doc.Save參數(force,Cre