Dear Friend
Setelah saya teliti dari kode yang diberikan ternyata anda menggunakan
metode XArrayDB untuk menyimpan datanya. Dan dikode anda kelihatan bahwa
menggunakan bound code untuk true db grid-nya untuk masing-masing column
anda.
Untuk mereset check box tersebut, coba gunakan code ini :
Private Sub Command1_Click()
x.Value(1, 2) = 0
x.Value(2, 2) = 0
x.Value(4, 2) = 0
TDBGrid1.Refresh
End Sub
Untuk mereset total semua, gunakan saja for next statement.
Contoh :
Private Sub Command1_Click()
For i = 1 To x.UpperBound(1)
x.Value(i, 2) = 0
Next
TDBGrid1.Refresh
End Sub
Jadi, sekali lagi, anda bukan menggunakan teknik unbound, jadi nggak bisa
menggunakan teknik
TDBGrid1.Columns(2).ValueItems(2).DisplayValue = "0"
Karena didalamnya anda sudah bound data anda melalui field tertentu bertipe
XArrayDB
Semoga membantu.
Best Regards,
_____
From: Aris Turna Parman [mailto:[EMAIL PROTECTED]
Sent: 31 Juli 2007 14:24
To: [email protected]
Cc: [EMAIL PROTECTED]
Subject: RE: [Programmer-VB] Re: urgent Reset Check Box
Makasih atas solusinya mas. Tapi masih ada masalah, waktu saya masukan code
tersebut ada message error "Subscript out of range".
Itu kenapa ya ?
_____
From: [email protected] [mailto:[EMAIL PROTECTED]
On Behalf Of pieter_edison
Sent: 26 Juli 2007 16:17
To: [email protected]
Subject: [Programmer-VB] Re: Reset Check Box
Dear Friends,
Saya menggunakan true dbgrid 8, mungkin hampir sama kali yach.CMIIW.
Tergantung dari model pemrograman anda, memakai metode bound atau
unbound. Kalo memakai metode bound, tinggal anda update saja field
tersebut dari database anda, tergantung tipe field anda memakai tipe
bit atau field tertentu.
Sedangkan jika tidak menggunakan metode unbound, anda bisa
memanfaatkan metode Properties Pagesnya true db grid anda.Caranya klik
kanan di grid, pilih properties, pilih tab : Values. Ada Presentation
Pilih CheckBox. Untuk valuenya memakai metode append, insert, dan
remove ( ada di tombolnya ). buat dulu value dan namenya ( maksudnya
kalo dicheck valuenya berapa dan diuncheck valuenya berapa / sesuaikan
dengan tipe database anda), nah di client code anda, gunakan metode
display value diset 0 atau -1 ( otomatis true db grid membuat 2 nilai
ini).
Contoh :
Me.TDBGrid.Columns(X).ValueItems(X).DisplayValue =0
X : Nilai kolomnya.
CMIIW
Best Regards,
--- In Programmer-VB@ <mailto:Programmer-VB%40yahoogroups.com>
yahoogroups.com, "Aris Turna Parman" <[EMAIL PROTECTED]>
wrote:
>
> Teman-teman mohon bantuannya dong, gimana caranya mereset check box di
> TDBGrid ver 7.0
>
> Contohnya
>
>
>
>
>
> Jadi
>
>
>
>
>
>
>
> Setelah di klik tombol Reset. Makasih atas bantuannya..
>
