Ajuda por favor com TABLE.AddCol

[PSRC]

Tenho este programa, quando abro a form ver receita e depois fecho, volto a abrir sem sair do programa dá erro na linha:
37 - TABLE12.AddRow (TABLE1.Cell ("PADRAO",RAM),TABLE1.Cell ("CLIENTE",RAM))

Att. não pode sair do programa...

[specci48]

(translated with google...)

Olá PSRC,

Razão pela qual você está tentando adicionar e remover colunas da tabela de cada vez, em vez de definir o tempo. Basta alterar seu código para este:

Sub Globals
	'Declare the global variables here.
	rAm = 0 'Record ID
	dataFile1 =   "RECEITAS.csv"
	changes = false 'Used for the "save changes before exit" question.
End Sub

Sub App_Start
	ESTAMPARIA.Show
	table1.LoadCSV("RECEITAS.csv",",",true,true)
	TABLE12.AddCol(cString,"PADRAO",90)
	TABLE12.AddCol(cString,"CLIENTE",120)	
End Sub

Sub ENTRECEITASEST_Click
	MENURECEITAS.Show
End Sub

Sub RECconsulta_Click
	RECEITACONSULTA.Show
End Sub

Sub PORCLIENTE_Click
	TABLE12.Visible=TRUE
	PORCLIENTE.Visible=FALSE
	For I = 0 To TABLE1.RowCount -1
	TABLE12.AddRow (TABLE1.Cell ("PADRAO",RAM),TABLE1.Cell ("CLIENTE",RAM))
	RAM=RAM+1
	Next I
	TABLE12.TableSort("CLIENTE ASC")
End Sub

Sub RECEITACONSULTA_Close
	If TABLE12.Visible=TRUE Then
	TABLE12.Visible=FALSE
	TABLE12.Clear
	PORCLIENTE.Visible=TRUE
	End If
	RAM=0
End Sub

specci48

[PSRC]

tanks