Ajuda por favor com TABLE.AddCol

PSRC

Member
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...
 

Attachments

specci48

Well-Known Member
Licensed User
(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:
B4X:
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
 
Top