la riga incriminata è questa:
'aggiungo una riga alla tabella creata con una
Try
AddRow(Array As String( num_out, hh_out & ":" & mm_out & ":" & ss_out & ":" & dcm_out, stato))
Catch
ToastMessageShow("Errore upgrade log",False)
End Try
N.B : la parte di codice sopra riportata viene chiamata da 3 diverse posizioni del programma
richiamando la sub
Sub AddRow(Values() AsString)
If Values.Length <> NumberOfColumnsThen
Log("Errore parametri")
Return
EndIf
Dim lastRow AsInt
lastRow = NumberOfRows
For i = 0ToNumberOfColumns - 1
Dim l AsLabel
l.Initialize("cell")
l.Text = Values(i)
l.Gravity = Alignment
l.TextSize = FontSize
l.TextColor = FontColor
Dim rc AsRowCol
rc.Initialize
rc.Col = i
rc.Row = lastRow
l.Tag = rc
table.AddView(l, ColumnWidth * i, RowHeight * lastRow, ColumnWidth, RowHeight)
Next
table.Height = NumberOfRows * RowHeight
End Sub