MAX_SV Active Member Licensed User Longtime User Oct 8, 2014 #1 In una app mi esce questo errore ... la cosa strana che in debug non riesco a riprodurlo viene fuori solo nella versione compilata qualcuno mi sa dire come evitarlo ?? Attachments errore.png 71.8 KB · Views: 477
In una app mi esce questo errore ... la cosa strana che in debug non riesco a riprodurlo viene fuori solo nella versione compilata qualcuno mi sa dire come evitarlo ??
MAX_SV Active Member Licensed User Longtime User Oct 9, 2014 #2 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") ReturnEndIf 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 * RowHeightEnd Sub
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") ReturnEndIf 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 * RowHeightEnd Sub