Forum: สอบถามปัญหา Notes ทางด้านพัฒนาโปรแกรม (Note Client) |
Tags1: | Created on Feb 15, 2008, 10:19 AM by GeoSpherE/9Notes|Topic Responses: 7 |
&action=openDocument&documentId=1936 |
คุณหมายถึงให้ปุ่มทำงานตามค่าใน Field ใช่ไหม
สมมุติ Field ชื่อ x เป็น Listbox มีตัวเืลือกคือ add, edit, delete
ก็ใส่คำสั่งในปุ่มตามนี้
dim w as New NotesUIWorkspace
dim uidoc as NotesUIDocument
set uidoc = w.CurrentDocument
dim doc as NotesDocument
set doc = uidoc.Document
select case doc.x(0)
case "add" :
........
..........
case "edit" :
........
..........
case "delete" :
........
..........
case else :
msgbox "Please select options."
end select
[quote]ปุ่มจะเป็น lotus scrpit ที่จะสามารถรับค่ามาจาก ฟิลด์
คือ ฟิลด์จะไปไว้ในปุ่ม แล้วปุ่มก็จะทำงานตาม lotus scrpit ที่ต้องการนะค่ะ[/quote] |
|