Pertemuan 6

jawaban No.Pendaftaran:
*Plihan pada List2,List3=Pilihan List1
WITH Thisform
.List2.ListIndex=.List1.ListIndex
.List3.ListIndex=.List1.ListIndex
EndWith

Jawaban Nama Peserta:
*Plihan pada List2,List3=Pilihan List1
WITH Thisform
.List2.ListIndex=.List2.ListIndex
.List3.ListIndex=.List2.ListIndex
EndWith

Jawaban Hapus Data:
*menghapus data yg dipilih pada list
WITH Thisform
.List1.removeitem(.List1.Listindex)
.List2.removeitem(.List2.Listindex)
.List3.removeitem(.List3.Listindex)

*Refersh Jumlah Data
.Text3.Value=.list1.listcount
Endwith

Jawaban Pasan :
*Pesan
WITH Thisform
*Mengisi List5 dengan nilai pilihan list4
.List5.Additem(.List4.Value)
*Menghapus pilihan List4
.List4.removeitem(.List4.ListIndex)
Endwith

Jawaban Bayar :
*Pesan
WITH Thisform
*Mengisi List5 dengan nilai pilihan list4
.List4.Additem(.List5.Value)
*Menghapus pilihan List4
.List5.removeitem(.List5.ListIndex)
Endwith

WITH Thisform
*Menghilangkan Pilihan pada List5
.List5.Listindex=0
ENDWITH