Menambahkan Data di List MSFlexGrid tanpa Database

Pada artikel sebelumnya saya sudah menjelaskan bagaimana cara menampilkan data dari database MySQL ke MSFlexGrid, pada posting yang satu ini saya ingin menambahkan sedikit kode untuk menambahkan data di list MSFlexGrid tanpa database alias data dari hasil inputan textbox.

Kode di bawah ini adalah contoh menambahkan data di list MSFlexGrid, anda bisa mencobanya pada project anda yang tentunya sudah ada satu paket standart form yang didalamnya ada Label,TextBox, CommandButton dan MSFlexGrid. Bila anda sudah paham kode di bawah ini saya yakin anda bisa menempatkan kode di bawah ini pada project anda.

Private Sub cmdTampungKeMSFlexGrid_Click()
On Error GoTo errhandler
    If (Len(lblNoIndikator.Caption) <> 0) And (Len(Text1.Text) <> 0) And (Len(Combo1.Text) <> 0) Then
        For I = 1 To TabelPenilaian.Rows
          noIndikator = TabelPenilaian.TextMatrix(I, 0)
          If (noIndikator = lblNoIndikator.Caption) Then
            GoTo processTerminates
          End If
        Next I
errhandler:
        row = row + 1
        TabelPenilaian.Rows = row + 1
        TabelPenilaian.TextMatrix(row, 0) = lblNoIndikator.Caption
        TabelPenilaian.TextMatrix(row, 1) = Text1.Text
        TabelPenilaian.TextMatrix(row, 2) = Mid(Combo1.Text, 1, 1)
        'MsgBox noIndikator, vbInformation
        lblNoIndikator.Caption = ""
        Text1.Text = ""
        Combo1.Text = ""
    Else
        MsgBox "Mohon untuk mengisi semua text, terimakasih.", vbCritical
    End If
    Exit Sub
processTerminates:
    MsgBox "No Indokator atau indikator sudah ada dalam daftar, terimakasih", vbCritical
End Sub

Penjelasan kode diatas apabila dijalankan.

1. apabila textbox kosong maka data tidak ditampung di list.
2. apabila data primarikey sudah ada pada list maka otomatis program menampilkan kotak dialok pemberitahuan, dan tidak menampung list.
3. apabila semua syarat untuk menampung ke list terpenuhi semua maka data bisa ditampung di list.

Posted in: VB