B4A Library [Class] TableView - Supports tables of any size

Public Sub DeleteRow

    Dim Row As Int

    Row = SelectedRow
    Data.RemoveAt(Row)

    Dim lastRow As Int
    lastRow = Data.Size - 1
    For i = lastRow To 0 Step -1
        If lastRow < (SV.VerticalScrollPosition + SV.Height) / RowHeight + 1 Then
            ShowRow(lastRow)        
        End If
        SelectRow(lastRow)
        SV.Panel.Height = Data.Size * RowHeight
        lastRow = lastRow -1
    Next

    SV.Panel.Height = Data.Size * RowHeight
    
End Sub

'Activity module
Sub Process_Globals
   'These global variables will be declared once when the application starts.
   'These variables can be accessed from all modules.
   
   
End Sub

Sub Globals
   'These global variables will be redeclared each time the activity is created.
   'These variables can only be accessed from this module.
   Dim sms1 As PhoneSms
   Dim Table1 As Table
   Dim Button1 As Button
   Dim Button2 As Button
   Dim Button3 As Button
   
End Sub

Sub Activity_Create(FirstTime As Boolean)
   Dim i As Int
   
   'Do not forget to load the layout file created with the visual designer. For example:
   Activity.LoadLayout("main")
   
   'Create Table using table class
   Table1.Initialize(Me, "Table1", 5)
   Table1.AddToActivity(Activity, 0, 75%y, 100%x, 70%y)
   Table1.SetColumnsWidths(Array As Int(95dip, 70dip, 40dip, 70dip, 70dip))
   Table1.SetHeader(Array As String("Bill Name", "Amount $$", "Due", "Status1", "Status2"))
   Table1.AddRow(Array As String("Mortage", "$1200", "12", "Not Paid", "Not Paid"))

LaatsteKM = Tabel.GetValue(2, 26)

Public Sub Size As Int
   Return Data.Size
End Sub

Public Sub LastEntry As Int
   Return Data.Size-1
End Sub