Forum: สอบถามปัญหา Notes ทางด้านพัฒนาโปรแกรม (Note Client) |
Tags1: | Created on Sep 9, 2008, 10:43 AM by 9notes/9Notes|Topic Responses: 1 |
&action=openDocument&documentId=252E |
อันนี้จากใน help นะครับ ผมปรับ code นิดหน่อย ตัวอย่างนี้จะเอาฟิลด์ body ใน docB ไป append ไว้ที่ docA ซึ่งจะต้องทำการ save ใน docA ด้วยถึงจะมีการเก็บค่า ในคำสั่งนี้จะทำงานแบบ backend ซึ่งจะหมายถึงคำสั่งนี้จะไม่แสดงผลลัพธ์ในการทำงานในหน้าจอเหมือนกับ UI Class ดังนั้นถ้าเราต้องการให้เห็นผลลัพธ์หลังจากที่ append แล้วจะต้องทำการปิดหน้าจอนั้นแล้วเปิดใหม่ ถึงจะเห็นข้อมูลที่ append เพิ่มเข้าไปได้ครับ
Dim docA As NotesDocument
Dim docB As NotesDocument
Dim rtitemA As Variant
Dim rtitemB As Variant
'...set values of docA and docB...
Set rtitemA = docA.GetFirstItem( "Body" )
Set rtitemB = docB.GetFirstItem( "Body" )
If ( rtitemA.Type = RICHTEXT And _
rtitemB.Type = RICHTEXT ) Then
Call rtitemA.AppendRTItem( rtitemB )
Call docA.Save( False, True )
End If
:yellow_cool.gif: |
|