ehm... gini mas, saya sendiri disini ga pake true dbgrid, jd yg saya maksud kemaren itu logikanya bukan buat langsung di copy paste.
dari pesan kesalahan pertama, "invalid row number", itu bisa jadi karena row tersebut memang belum ada, jadi sebelum kita memindah row, kita harus cek dulu jumlah row yg ada, kalau memang belum ada, ya kita buat dulu row baru u. menampung data selanjutnya itu, biasanya pake method kayak AddRow, AddNewRow dll untuk pesan kesalahan kedua, "object required", ini jelas banget mas, property seperti row, column itu bukan bertipe object, biasanya bertipe data long (cek di object browser), sedangkan perintah SET hanya bisa digunakan untuk sebuah OBJECT (please google to find the true definition of object). berbeda dg row dan column, property rows, columns merupakan sebuah collections object, jd bisa menggunakan perintah set ke sebuah collections object lainnya. pelajaran mendasar di vb, # sebuah variabel hanya bisa menerima data dg tipe data yg sama, kecuali dia bertipe variant. dan dalam pembuatan sebuah activex control (.dll, .ocx) biasanya kita jrg menggunakan tipe data variant sebagai tipe data sebuah property, demi efisiensi memory dan menghindari kesalahan pemberian nilai dg tipe data yg tidak kita inginkan. # sebuah object, hanya bisa di set ke sebuah object lainnya yg bertipe sama dg dirinya. mis: object recordset hanya bisa diset ke object recordset lainnya, object connection hanya bisa diset ke object connection lainnya dll. best regards [wwn] On 12/14/05, Eko <[EMAIL PROTECTED]> wrote: > kalo saya buat gini kok invalid row number ya > >> > For i = 1 To rsNPBBD.RecordCount > >>> TDBGrid1.row = i > >> > TDBGrid1.Columns(0).Text = cb(0).Columns(0).Text 'NO_BTB > >> > TDBGrid1.Columns(1).Text = cb(3).Columns(0).Text 'NO_PO > >> > TDBGrid1.Columns (2).Text = rsNPBBD!No_PPB > >> > TDBGrid1.Columns(3).Text = rsNPBBD!JENIS > >> > TDBGrid1.Columns(4).Text = rsNPBBD!KD_BRG > >> > TDBGrid1.Columns(5).Text = rsNPBBD!NAMA > >> > TDBGrid1.Columns(6).Text = rsNPBBD!SATUAN > >> > rsNPBBD.MoveNext > >> > next i > > klo saya tambahi kata set tdbgrid1.row = i > errornya mjd object required > > ----- Original Message ----- > From: "Purwedi Kurniawan" <[EMAIL PROTECTED]> > To: <[email protected]> > Sent: Wednesday, December 14, 2005 3:42 PM > Subject: Re: [Programmer-VB] tanya nunjuk baris pada tdbgrid > > > > kalau gitu set aja property row nya grid itu = i (letakkan setelah for i > > .....) > > > > On 12/14/05, Eko <[EMAIL PROTECTED]> wrote: > >> > >> makasih infonya, tapi justru system bind langsung ke datasource itu yang > >> sedang saya hindari > >> sebab ini berawal kirim data dari tabel lain dan itu data perlu diedit > >> dan saya tidak ingin datsource nya berganti-ganti > >> > >> ----- Original Message ----- > >> From: Purwedi Kurniawan > >> To: [email protected] > >> Sent: Wednesday, December 14, 2005 2:12 PM > >> Subject: Re: [Programmer-VB] tanya nunjuk baris pada tdbgrid > >> > >> biasanya kalau kita bekerja dg grid, akan lebih mudah pake system bind > >> langsung ke datasourcenya seperti ini > >> > >> set tdbgrid1.datasource = rsNPBBD > >> > >> kalau dg cara bind, tiap kali kali perubahan dilakukan di recordset > >> (manipulasi data maupun navigasi), grid akan otomatis berubah (kalau ga, > >> biasanya bisa diatasi dg memanggil fungsi refresh) > >> > >> best regards > >> [wwn] > >> > >> On 12/14/05, Eko <[EMAIL PROTECTED]> wrote: > >> > > >> > mohon penjelasannya : > >> > kalo saya buat script kayak gini, maka hanya record terakhir yang masuk > >> > karena rsnpbbd saja yang move next sedangkan tdbgridnya diem aja > >> > lha...gimana caranya spy tdbgirdnya bisa nunjuk ke baris berikutnya > >> > > >> > For i = 1 To rsNPBBD.RecordCount > >> > TDBGrid1.Columns(0).Text = cb(0).Columns(0).Text 'NO_BTB > >> > TDBGrid1.Columns(1).Text = cb(3).Columns(0).Text 'NO_PO > >> > TDBGrid1.Columns (2).Text = rsNPBBD!No_PPB > >> > TDBGrid1.Columns(3).Text = rsNPBBD!JENIS > >> > TDBGrid1.Columns(4).Text = rsNPBBD!KD_BRG > >> > TDBGrid1.Columns(5).Text = rsNPBBD!NAMA > >> > TDBGrid1.Columns(6).Text = rsNPBBD!SATUAN > >> > rsNPBBD.MoveNext > >> > next i > >> > > >> ------------------------ Yahoo! Groups Sponsor --------------------~--> 1.2 million kids a year are victims of human trafficking. Stop slavery. http://us.click.yahoo.com/.QUssC/izNLAA/TtwFAA/k7folB/TM --------------------------------------------------------------------~-> Untuk keluar dari millis ini, kirim email kosong ke: [EMAIL PROTECTED] Yahoo! Groups Links <*> To visit your group on the web, go to: http://groups.yahoo.com/group/Programmer-VB/ <*> To unsubscribe from this group, send an email to: [EMAIL PROTECTED] <*> Your use of Yahoo! Groups is subject to: http://docs.yahoo.com/info/terms/
