Android Code Snippet [B4X] B4XTable - Delete Row

Deletes a row from the table.

Sub DeleteRow (tbl As B4XTable, RowId As Long)
   tbl.sql1.ExecNonQuery2("DELETE FROM data WHERE rowid = ?", Array (RowId))
   Dim page As Int = tbl.CurrentPage
   Dim FirstIndex As Int = tbl.FirstRowIndex
   tbl.ClearDataView 'Updates the rows count.
   If FirstIndex + 1 >= tbl.mCurrentCount Then
       page = page - 1
   End If
   tbl.CurrentPage = page
End Sub

Usage example:

Sub B4XTable1_CellClicked (ColumnId As String, RowId As Long)
   Dim sf As Object = xui.Msgbox2Async("Delete row?", "Title", "Yes", "Cancel", "No", Null)
   Wait For (sf) Msgbox_Result (Result As Int)
   If Result = xui.DialogResponse_Positive Then
       DeleteRow(B4XTable1, RowId)
   End If
End Sub

 

[Jaliento]

Deletes a row from the table.

Sub DeleteRow (tbl As B4XTable, RowId As Long)
   tbl.sql1.ExecNonQuery2("DELETE FROM data WHERE rowid = ?", Array (RowId))
   Dim page As Int = tbl.CurrentPage
   Dim FirstIndex As Int = tbl.FirstRowIndex
   tbl.ClearDataView 'Updates the rows count.
   If FirstIndex + 1 >= tbl.mCurrentCount Then
       page = page - 1
   End If
   tbl.CurrentPage = page
End Sub

Usage example:

Sub B4XTable1_CellClicked (ColumnId As String, RowId As Long)
   Dim sf As Object = xui.Msgbox2Async("Delete row?", "Title", "Yes", "Cancel", "No", Null)
   Wait For (sf) Msgbox_Result (Result As Int)
   If Result = xui.DialogResponse_Positive Then
       DeleteRow(B4XTable1, RowId)
   End If
End Sub

I copied this but it says
undeclared variable 'xui' is used before it was assigned in any value
undeclared variable 'result' is used before it was assigned in any value

 

[Erel]

Watch the XUI video tutorial: https://www.b4x.com/android/forum/threads/b4x-xui-cross-platform-native-ui-library.84359/#content
If anything is not clear then start a new thread in the questions forum.