19/05/2023: A causa di un errore sono stati cancellati, insieme ad account creati da bot, alcuni account legittimi. Si prega di leggere qui: https://www.gambas-it.org/smf/index.php?topic=9733.0
Public Sub Form_Open() Dim ArrData As New Variant[] Dim $data As New Variant[] Dim colonna1, colonna2 As New CTableColumn ArrData.Add("uno") ArrData.Add("due") $data.Add(ArrData) With colonna1 .Title = "Text1" .Editor = New CCellTextEditor(CTable1) .Renderer = New CCellTextRenderer(CTable1) End With With colonna2 .Title = "Text2" .Editor = New CCellTextEditor(CTable1) .Renderer = New CCellTextRenderer(CTable1) End With With CTable1 .Columns.Add(colonna1) .Columns.Add(colonna2) .Data = $data End With End