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')
23 Maret 2009
Langganan:
Posting Komentar (Atom)
0 komentar:
Posting Komentar