23 Maret 2009

me-release cursor

ketika kita harus membuat beberapa cursor dalam sebuat command utk ..misal penghitungan stok ato posting...
yang jadi males dan sering lupa adalah meng-close nya, ato menendangnya dari memory..
untuk mengatasinya kita bisa membuat sebuah fungsi yang nantinya tinggal panggil fungsi ini utk mengenyahkan si cursor tadi..

Function lepaskan
Parameters C1,C2,C3,C4,C5,C6,C7,C8,C9,C10
For U=1 To 10
CU=Alltrim(Str(U))
If ! Empty(C&CU)
If Used(C&CU)
cur=C&CU
Use In &cur
Endif
Endif
Next
Endfunc

cara menggunakannya:

...
...
lepaskan('kursormu','kursorku','kursorkita')

0 komentar:

Posting Komentar