Ajuda por favor com TABLE.AddCol

Discussion in 'Portuguese Forum' started by PSRC, Mar 13, 2008.

  1. PSRC

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

    Attached Files:

  2. specci48

    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:
    Code:
    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
     
  3. PSRC

    PSRC Member

    tanks

    tanks:):):):):)
     
Loading...