'AVMCFD is the name of the column
' SetColumnAlignment("AVMCFD", "BOTTOM", "RIGHT") 'vert, hor
' SetColumnAlignment("AVMCFD", "TOP", "RIGHT") 'vert, hor
' SetColumnAlignment("AVMCFD", "CENTER", "LEFT") 'vert, hor
SetColumnAlignment("AVMCFD", "CENTER", "RIGHT") 'vert, hor AVMCFD is the name of the column
Sub SetColumnAlignment(columnID As String, alignmentV As String, alignmentH As String)
Dim column As B4XTableColumn = B4XTable1.GetColumn(columnID)
For i = 1 To column.CellsLayouts.Size - 1 'starts at 1 due to header
Dim pnl As B4XView = column.CellsLayouts.Get(i)
pnl.GetView(0).SetTextAlignment(alignmentV, alignmentH)
Next
End Sub