How to change the table to runtime?
with this code when call ShowTable the second time the first 2 columns are duplicate
the first 2 columns are Frozen, the next columns are scrollable
work fine without NumberOfFrozenColumns
with this code when call ShowTable the second time the first 2 columns are duplicate
the first 2 columns are Frozen, the next columns are scrollable
work fine without NumberOfFrozenColumns
B4X:
Sub ShowTable (TableType As Int)
B4XTable1.Clear
B4XTable1.MaximumRowsPerPage = 15
StateColumn = B4XTable1.AddColumn("Human", B4XTable1.COLUMN_TYPE_TEXT)
StateColumn.Width = 30%x
StateColumn = B4XTable1.AddColumn("Dog", B4XTable1.COLUMN_TYPE_TEXT)
StateColumn.Width = 30%x
StateColumn = B4XTable1.AddColumn("D1", B4XTable1.COLUMN_TYPE_TEXT)
StateColumn.Width = 30%x
StateColumn = B4XTable1.AddColumn("D2", B4XTable1.COLUMN_TYPE_TEXT)
StateColumn.Width = 30%x
StateColumn = B4XTable1.AddColumn("D3", B4XTable1.COLUMN_TYPE_TEXT)
StateColumn.Width = 30%x
B4XTable1.NumberOfFrozenColumns = 2
Dim data As List
data.Initialize
For i = 1 To 15
data.Add(Array("Mario Rossi", "Pluto", "5,5", "3", "2"))
Next
B4XTable1.SetData(data)
B4XTable1.Refresh
End Sub
Attachments
Last edited: