Forum: สอบถามปัญหา Notes ทางด้านพัฒนาโปรแกรม (Note Client) |
Tags1: | Created on Jan 15, 2010, 7:25 AM by 9notes/9Notes|Topic Responses: 7 |
&action=openDocument&documentId=14E6 |
ใช้ class viewentry แทนครับ เร็วกว่าและเรียงข้อมูลตามการ sort ใน view ครับ แต่จะ get ข้อมูลมาได้แต่เฉพาะ column ที่สร้างไว้ใน view
Dim session As New NotesSession
Dim db As NotesDatabase
Dim view As NotesView
Dim entry As NotesViewEntry
Dim vc As NotesViewEntryCollection
Dim doc As NotesDocument
Set db = session.CurrentDatabase
Set view = db.getView("[Your view name]")
Set vc = view.AllEntries
Set entry = vc.GetFirstEntry()
do while not entry is nothing
' ------------- put your code ----------------
set entry = vc.GetNextEntry()
loop
ประมาณนี้ครับ |
|