Cara Menghapus Satu atau Banyak Baris Tabel Data (TableView Selection) Pada Pemrogaman Gambas

Jika hanya menghapus 1 baris tabel yang dipilih cukup mudah dengan perintah:

Rumus:

TableView.Rows.Remove(Index As integer, Length As Integer)

Contoh:

Public Sub HapusTabel_Cilck()

   'Menghapus baris tabel index ke 0, 

   'jumlah baris yang dihapus = 1

   TabelView1.Rows.Remove(0, 1)

End

Namun jika menginginkan menghapus lebih dari 1 baris tabel dengan pilihan secara acak maupun tidak (Rows Selection) tentu tidak semudah menghapus 1 baris.

Contoh kasus:

Terdapat 10 baris tabel dengan 5 kolom. Jadi rinciannya adalah 0 sampai 9 index baris dan 0 sampai 4 index kolom. Baris yang akan dihapus adalah baris ke 1, 4, 5 ,7 atau index ke 0, 3, 4, 6.

Public Sub Hapus_Click()

   Dim n As Byte

   Dim Arr As New Byte[] ‘Buat objek baru array bertype byte

   'Simmpan nomor index baris yang diseleksi/pilih ke dalam array

   For n = 0 To TableView1.Rows.Selection.Max

     Arr.Add(TableView1.Rows.Selection[n])

   Next

   'Tanda pilihan dihilangkan semua supaya tidak membingungkan pengguna

   'karena jika tidak akan meninggalkan tanda seleksi akibat perpindahan baris

   TableView1.Rows.UnSelectAll

'Mengurutkan Nilai 

Arr.Sort(gb.Ascent)

   For n = Arr.Max DownTo 0

     'Menghapus baris per-index berturut-turut yang telah disimmpan dalam array

     'Mulai dari index yang terbesar ke index yang terkecil

     TableView1.Rows.Remove(Arr[n], 1)

     'Dihentikan jika index sudah mencapai angka 0

     If n = 0 Then Break

   Next

End

Semoga bermanfaat