Android Question Problem with null after deleting a row in b4xtable

Sub Class_Globals
    Private Root As B4XView
    Private xui As XUI
    Private B4XTable1 As B4XTable
    Private RowsDeleted As Int
End Sub

Sub DeleteRow (tbl As B4XTable, RowId As Long)
    tbl.sql1.ExecNonQuery2("DELETE FROM data WHERE rowid = ?", Array(RowId))
    tbl.ClearDataView 'Updates the rows count.
    RowsDeleted = RowsDeleted + 1
End Sub

Private Sub CalculateTotalColumnB4XTable1(Column As String) As Double
    Try
        Dim Total As Double = 0
        For i = 1 To B4XTable1.Size + RowsDeleted
            Dim row As Map = B4XTable1.GetRow(i)
            Log($"${i} : ${row}"$ )
            If row.Size > 0 Then
                Dim value As Double = row.Get(Column)
                Total = Total + value
            End If
        Next
 
        Log("Total of column 0: " & Total)
        xui.MsgboxAsync(Total, "Total of column 0: ")
    Catch
        Log(LastException)
        xui.MsgboxAsync(LastException, "LastException")
    End Try
    Return Total
End Sub

1 : {Computer Name=Dell Inspiron, Price=600.0}
2 : {}
3 : {Computer Name=Lenovo ThinkPad, Price=800.0}
4 : {}
5 : {Computer Name=Asus ZenBook, Price=900.0}
Total of column 0: 2300

For i = 1 To Table.Size
    Dim row As Map = B4XTable1.GetRow(i)
    If row.Size > 0 Then
        For Each Column As B4XTableColumn In Table.Columns
            PrintString = PrintString & "<tr>"
            PrintString = PrintString & $"<td>${row.Get(Column.Title)}</td>${CRLF}"$
            PrintString = PrintString & "</tr>"
        Next
    End If
Next

For i = 1 To B4XTable1.Size + RowsDeleted
    Dim row As Map = B4XTable1.GetRow(i)
    If row.Size > 0 Then
        For Each Column As B4XTableColumn In Table.Columns
            PrintString = PrintString & "<tr>"
            PrintString = PrintString & $"<td>${row.Get(Column.Title)}</td>${CRLF}"$
            PrintString = PrintString & "</tr>"
        Next
    End If