Dim NrCol As B4XTableColumn = TabData.AddColumn("Nr", TabData.COLUMN_TYPE_NUMBERS)
NrCol.Width = 15%x
Dim SchichtCol As B4XTableColumn = TabData.AddColumn("Schicht", TabData.COLUMN_TYPE_TEXT)
SchichtCol.Width = 35%x
Dim EinheitCol As B4XTableColumn = TabData.AddColumn("Einheit", TabData.COLUMN_TYPE_TEXT)
EinheitCol.Width = 15%x
Dim MaterialCol As B4XTableColumn = TabData.AddColumn("Metall", TabData.COLUMN_TYPE_TEXT)
MaterialCol.Width = 15%x
Dim LimCol As B4XTableColumn = TabData.AddColumn("Lim", TabData.COLUMN_TYPE_TEXT)
LimCol.Width = 20%x
Public Sub B4XPage_Appear
Dim col As B4XTableColumn
B4XPages.MainPage.currentPage = Me
PLayout1.SetMenuColor
btnSpeicher.Text = Language.Text(Var.v,85)
btnAkt.Text = Language.Text(Var.v,80)
btnDelTab.Text = Language.Text(Var.v, 5)
lblwait.Text =Language.Text(Var.v,54)
lblAnz.Text = Language.Text(Var.v,51)
If TabData.IsInitialized Then
col = TabData.GetColumn("Nr")
Log(col.Title)
col.title = "NO"
Log(col.Title)
TabData.Refresh
col = TabData.GetColumn("Nr")
Log(col.Title)
End If