Android Question Multiple Cell Selection

RishiKumar2210 said:

If I select multiple rows I need selected row's column values(Name column) in a single variable as string type. Is this possible?

Click to expand...

If XSelections.IsSelected = False Then
        Log("Nothing is selected")
    Else
        Dim sb As StringBuilder
        sb.Initialize
        For Each rowid As Long In XSelections.SelectedLines.Keys
            Dim row As Map=B4XTable1.GetRow(rowid)
            sb.Append(row.Get("Name")).Append("  ") 
        Next
        Log(sb.ToString) 'will display: Name1  Name2    as one string
    End If

Mahares said:

B4X:

If XSelections.IsSelected = False Then
        Log("Nothing is selected")
    Else
        Dim sb As StringBuilder
        sb.Initialize
        For Each rowid As Long In XSelections.SelectedLines.Keys
            Dim row As Map=B4XTable1.GetRow(rowid)
            sb.Append(row.Get("Name")).Append("  ")
        Next
        Log(sb.ToString) 'will display: Name1  Name2    as one string
    End If

Your screenshot is huge, but your explanation should be more clear. I hope I understood what you wanted.

Click to expand...

Mahares said:

B4X:

If XSelections.IsSelected = False Then
        Log("Nothing is selected")
    Else
        Dim sb As StringBuilder
        sb.Initialize
        For Each rowid As Long In XSelections.SelectedLines.Keys
            Dim row As Map=B4XTable1.GetRow(rowid)
            sb.Append(row.Get("Name")).Append("  ")
        Next
        Log(sb.ToString) 'will display: Name1  Name2    as one string
    End If

Your screenshot is huge, but your explanation should be more clear. I hope I understood what you wanted.

Click to expand...

Mahares said:

B4X:

If XSelections.IsSelected = False Then
        Log("Nothing is selected")
    Else
        Dim sb As StringBuilder
        sb.Initialize
        For Each rowid As Long In XSelections.SelectedLines.Keys
            Dim row As Map=B4XTable1.GetRow(rowid)
            sb.Append(row.Get("Name")).Append("  ")
        Next
        Log(sb.ToString) 'will display: Name1  Name2    as one string
    End If

Your screenshot is huge, but your explanation should be more clear. I hope I understood what you wanted.

Click to expand...

Mahares said:

Here is the new code taking care of your single and double quotes. You did not ask for the quotes in your first post. Did you know that. . At any rate here is the desired new code:

B4X:

Sub btnLog_Click
    Dim j As Int
    If XSelections.IsSelected = False Then
        Log("Nothing is selected")
    Else
        Dim sb As StringBuilder
        sb.Initialize
        sb.Append("'")
        For Each rowid As Long In XSelections.SelectedLines.Keys
            Dim row As Map=B4XTable1.GetRow(rowid)
            sb.Append(row.Get("Name")).Append("','")
            j=j+1
        Next
        Dim s As String = (sb.ToString)
        s= s.SubString2(0, s.LastIndexOf(",'"))   'remove the last 2 characters
        s=$"${QUOTE}${s}${QUOTE}"$   'add double quote
        Log(s)      'will display: "'Name1','Name2'""    as one string       
    End If
End Sub

Click to expand...