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