Android Question [Solved]Delete table row based on value of 1st column

[tcgoh]

Hi,

I have a table with empty cell in 1st column, how do i delete the row based on the 1st column,

For i = 0 To Table1.NumberOfRows -1
Dim row() As Object = Table1.GetValue(0,i)
Dim name As String = row(0)
If name = "" Then
Table1.RemoveRow(i)
Return
End If
Next

The above don't work. Any help thanks.

 

[Computersmith64]

Is the string really empty? If so you could try:

For i = 0 To Table1.NumberOfRows -1
    Dim row() As Object = Table1.GetValue(0,i)
    Dim name As String = row(0)
    If name.Length = 0 Then
        Table1.RemoveRow(i)
        Return
    End If
Next 

'Or if there could be spaces in it

For i = 0 To Table1.NumberOfRows -1
    Dim row() As Object = Table1.GetValue(0,i)
    Dim name As String = row(0)
    If name.Trim.Length = 0 Then
        Table1.RemoveRow(i)
        Return
    End If
Next

- Colin.

 

[tcgoh]

The line
Dim row() as object = table1.getvalue(i)
Don't match as one is object vs strings ??

 

[DonManfred]

Don't match as one is object vs strings ??

do you get any error using it?

 

[tcgoh]

yes,

 

[klaus]

I would do it like this, removing all rows with an empty value in the first column:

For i = Table1.NumberOfRows -1 To 0
    Dim name As String = Table1.GetValue(0, i)
    If name = "" Then
        Table1.RemoveRow(i)
    End If
Next

Table1.GetValue(col, row) returns a String and not an array of objects !
Table1.GetValues(row) returns an array of Strings containing the values of all columns in the given row.

 

[Computersmith64]

The line
Dim row() as object = table1.getvalue(i)
Don't match as one is object vs strings ??

Well that's the code you posted. You didn't mention anything about an error - just "The above won't work". If you had mentioned that the code was generating an error, I might have offered up a different solution. Maybe you should have a look at this -> https://www.b4x.com/android/forum/threads/for-new-er-members-how-to-post-a-question-issue.96964/

- Colin.

 

[tcgoh]

I would do it like this, removing all rows with an empty value in the first column:

For i = Table1.NumberOfRows -1 To 0
    Dim name As String = Table1.GetValue(0, i)
    If name = "" Then
        Table1.RemoveRow(i)
    End If
Next

Table1.GetValue(col, row) returns a String and not an array of objects !
Table1.GetValues(row) returns an array of Strings containing the values of all columns in the given row.

Thanks Klaus,
But this code doesn't work also. No error generated and the rows are not deleted.

 

[klaus]

Sorry, it should be:

For i = Table1.NumberOfRows - 1 To 0 Step -1
    Dim name As String = Table1.GetValue(0, i)
    If name = "" Then
        Table1.RemoveRow(i)
    End If
Next

This code works, I tested it.

 

[tcgoh]

Finally get a chance to test it. It works great Thanks Klaus.