B4J Question [SOLVED] B4XTable - How to get...

LucaMs said:

How to get the B4XView that contains a column title?

B4X:

    Dim ColumnIndex As Int = 0
    B4XTable1.clvData.GetPanel(ColumnIndex).???

Click to expand...

B4XTable1.clvData.GetPanel(ColumnIndex).GetView(0).GetView(0)

LucaMs said:

Solved (I hope

Click to expand...

For Each col As B4XTableColumn In B4XTable1.Columns
        Dim xlbl As B4XView = col.CellsLayouts.Get(0).As(B4XView).GetView(0)   '<------
        xlbl.SetColorAndBorder(xui.Color_Cyan, 4dip, xui.Color_Black, 6dip)
        Log(xlbl.Text)
    Next

Mahares said:

Here is another way to get all the columns header views:

B4X:

For Each col As B4XTableColumn In B4XTable1.Columns
        Dim xlbl As B4XView = col.CellsLayouts.Get(0).As(B4XView).GetView(0)   '<------
        xlbl.SetColorAndBorder(xui.Color_Cyan, 4dip, xui.Color_Black, 6dip)
        Log(xlbl.Text)
    Next

Click to expand...

LucaMs said:

I think it should be xlbl.Parent.

Click to expand...

For Each col As B4XTableColumn In B4XTable1.Columns        
        Dim xlbl As B4XView = col.CellsLayouts.Get(0).As(B4XView).GetView(0)   '<------
        xlbl.parent.SetColorAndBorder(xui.Color_Cyan, 4dip, xui.Color_Black, 6dip)
    Next

 For Each col As B4XTableColumn In B4XTable1.Columns
       Dim pnl As B4XView = col.CellsLayouts.Get(0)
        pnl.SetColorAndBorder(xui.Color_Cyan, 4dip, xui.Color_Blue, 6dip)
    Next

Dim j As Int
    For Each col As B4XTableColumn In B4XTable1.Columns
        Dim pnl As B4XView = B4XTable1.clvData.GetPanel(j).GetView(0)
        pnl.SetColorAndBorder(xui.Color_Cyan, 4dip, xui.Color_Green, 6dip)
        j= j+1
    Next