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...
  1. This site uses cookies to help personalise content, tailor your experience and to keep you logged in if you register.
    By continuing to use this site, you are consenting to our use of cookies.
    Dismiss Notice