Forum: สอบถามปัญหา Notes ทางด้านพัฒนาโปรแกรม (Note Client) |
Tags1: | Created on May 5, 2009, 4:25 PM by 9notes/9Notes|Topic Responses: 17 |
&action=openDocument&documentId=A8A |
ฮันแน่คุณ siamnote เองเหรอครับ มาว่ากันต่อขออภัยขาด function Repeat ไปครับ แต่ว่าผมขออนุญาติเปลี่ยนชื่อ function เดิมจาก Repeat เป็น UDFRepeat ครับ เพราะว่าใน version ใหม่ในส่วน่ของ basic function ของ lotusscript จะมีเพิ่มพวก function ใหม่ ๆ เข้ามาซึ่งจากตัวอย่างถ้าผมใช้ชื่อ Repeat แบบเดิมจะไม่สามารถใช้งานได้เพราะมันจะซ้ำกับ basic function ที่ Notes Version หลัง ๆ มีมาให้ครับ เพราะฉะนั้นถ้าเป็น function ที่ผมเขียนขี้นมาใหม่หรือสร้างใหม่ผมมักจะใส่ UDF นำหน้าเสมอเพื่อไม่ให้สับสนและจะได้ไม่เกิด Error ดังกล่าวครับ
Function UDFRepeat(RString As String, Num As Long, Count As Long) As String
On Error Goto Errhandle
AString = ""
For i = 1 To Count - Len(Cstr(Num))
AString = AString & RString
Next
UDFRepeat = AString & Cstr(Num)
Exit Function
Errhandle:
Print "Error in " & Getthreadinfo(LSI_THREAD_PROC) & " Code : " & Cstr(Err) & " Line : " & Cstr(Erl) & " Description : " & Cstr(Error)
If note Is Nothing Then
Set note = New NotesDocument(db)
End If
note.Procedure = Getthreadinfo(LSI_THREAD_PROC)
Call WriteLogFile(note)
Resume TheEnd
TheEnd:
Repeat = ""
End Function |
|