----- Original Message -----
Sent: Tuesday, September 13, 2005 10:35
AM
Subject: Re: [Programmer-VB] Menghapus
dan menambahkan data di listbox
Kurang lebih seperti itu maksud saya.
Saya sudah mencoba menempatkan coding penambahan pada tombol Add..itu
sudah jalan
jadi kita memindahkan isi dari list1 ke list2 sekaligus
menyimpannya..
Private Sub cmdaddline_Click(Index As Integer)
Dim i As Integer
dim j as integer
For i = 0 To lstavaline.ListCount - 1
If lstavaline.Selected(i)
Then
lstdisline(0).AddItem
lstavaline.List(i)
If lstavaline.Selected(i) = True
Then
lstavaline.RemoveItem (i)
With
saveact
For j = 0 To lstdis.ListCount -
1
.AddNew
!ID_COMPANY =
Trim(txtID.Text)
!ID_AKTIFITAS_COMPANY =
Trim(List2.List(i))
.Update
Next j
End With
Else
Exit Sub
End If
Next
end if
End Sub
Cuma yang saya bingungkan untuk tombol remove..
kalau saveact.delete berarti menghapus semua yang ada dilist2 dong..
padahal kan cuma yang kita select aja yang dihapus..
mohon bantuannya...
Terima kasih banyak sebelum dan sesudahnya...
Asral Sukma <[EMAIL PROTECTED]> wrote:
sebelum
nya mohon maap,script tadi untuk di tempatkan
di list2_doubleclick(),itu
untuk editing data
(update)...
begini mba,
pada prog mba:
kalau
saya ingin tambahkan data pada list2 berarti
saya cukup ambil dari
list1,dengan menyisipkan code
untuk penyimpanan ke tbl_transaksi..berarti
data
tersebut saya simpan pada list2 (simpan
pada
tbl_transaksi)
kalau saya pengen hapus data dari list2 berarti
saya
juga menghapus data yang ada dalam
tbl_transaksi(bener
ga?)
kalau emang begitu,nah pada saat mba merubah
isi
list2,yang berarti mengambil data baru dari list1,maka
pada saat
penambahan isi list2 tersebut,mba musti
tambahkan code untuk penyimpanan
ke tbl_transaksi...
cukup tmpatkan code tersebut pada tmbl
add..
maap mba,kalau mba' masih kesulitan,mba bisa kirim
code nya
ke saya,kalau mba mau..dijamin ga
ada
pembajakan..hehehe
thanks..
--aL--
__________________________________________________
Do
You Yahoo!?
Tired of spam? Yahoo! Mail has the best spam protection
around
http://mail.yahoo.com
Yahoo! for Good
Click
here to donate to the Hurricane Katrina relief effort.
Untuk keluar dari millis ini, kirim email kosong ke:
[EMAIL PROTECTED]
SPONSORED LINKS
YAHOO! GROUPS LINKS