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

[LucaMs]

How to get the B4XView that contains a column title?

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

 

[LucaMs]

How to get the B4XView that contains a column title?

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

Solved (I hope ?)

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

 

[Mahares]

Solved (I hope

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

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

 

[LucaMs]

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

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

This way you get the label, I needed the base view. I have yet to try it but I think it should be xlbl.Parent.

P.S. Yes, confirmed.

 

[Mahares]

I think it should be xlbl.Parent.

To get the xlbl.parent, you can do anyone of these three:

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

or:

 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

or:

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