|
Tambahan:
kalo ngga mau pake temporary table bisa
juga pake code ini:
Set r = New
ADODB.Recordset
r.fields.Append "KodeBarang", adVarChar, 20 r.fields.Append "NamaBarang", adVarChar, 50 r.fields.Append "Satuan", adVarChar, 5 r.fields.Append "Harga", adCurrency r.fields.Append "Qty", adCurrency r.fields.Append "Disc", adCurrency r.fields.Append "JHarga", adCurrency r.fields.Append "Angsuran", adCurrency r.fields.Append "NilaiAngsuran", adCurrency r.fields.Append "QtyS", adCurrency r.CursorType = adOpenStatic r.Open selanjutnya masukan untuk
mengisi recordsetnya:
r.AddNew
r!KodeBarang = !KodeBarang r!NamaBarang = !NamaBarang r!satuan = !satuan r!harga = !HargaJual r!Qty = !Qty r!disc = !komisi r!Jharga = (!Qty * !HargaJual) - !komisi r!Angsuran = !Angsurani r!NILAIANGSURAN = !NilaiAngsur r!qtys = !qtys r.Update Set Dg1.DataSource = r
Dg1.Refresh Dg1.ReBind
Wahana Programmer Groups Links <*> Untuk mengunjungi sponsor milis ini, klik link berikut: http://wahanaprogrammer.net <*> Untuk menghubungi owner milis ini, kirim email ke: [EMAIL PROTECTED] <*> Konsultasi pemrogramman bisa chat disini: Yahoo! Messenger: wahanaprogrammer YAHOO! GROUPS LINKS
|
- Re: [Programmer-VB] Listview to DataGrid aris
- Re: [Programmer-VB] Listview to DataGrid aris
