none
Esta pulando a primeira linha RRS feed

  • Pergunta

  • Estou usando esse codigo

     pgrBar.Minimum = 1
            pgrBar.Maximum = gridnegocios.RowCount - 1
            pgrBar.Step = 1
            pgrBar.Value = 1
            pgrBar.Visible = True
            ff = FreeFile()
            If cmbContasFilhotes.Text <> "<TODOS>" Then
                fileName = txtCamArq.Text & "\analitico_" & Microsoft.VisualBasic.Left(cmbContasFilhotes.Text, InStr(cmbContasFilhotes.Text, "-", CompareMethod.Binary) - 2) & "_" & Format(CDate(dtpckdtPregao.Text), "ddMMyyyy") & ".txt"
            Else
                fileName = txtCamArq.Text & "\analitico_TODOS" & "_" & Format(CDate(dtpckdtPregao.Text), "ddMMyyyy") & ".txt"
            End If
    
            FileOpen(ff, fileName, OpenMode.Output)
            PrintLine(ff, "0#RV")
    
            For iRow = 1 To gridnegocios.RowCount - 1
                Linha = "#" & Format(CDate(gridnegocios.Item(8, iRow).Value), "yyyyMMdd") & "#" & gridnegocios.Item(0, iRow).Value & "#" _
                        & gridnegocios.Item(18, iRow).Value & "#N#BOVESPA#" & gridnegocios.Item(2, iRow).Value & "#V#UMUARAMA#UMUARAMA#" & _
                        Math.Ceiling(gridnegocios.Item(4, iRow).Value) & "#" & Math.Round(gridnegocios.Item(5, iRow).Value, 2) & "#" & gridnegocios.Item(9, iRow).Value & "#S###RV1###"
                PrintLine(ff, Linha)
                Linha = ""
                pgrBar.PerformStep()
            Next
            PrintLine(ff, "99#RV")
            FileClose(ff)
    Fazendo o debug ele mostra que tem 11 registros o dbgrid, mas na hora de passar pro arquivo txt ele começa da segunda linha, o que deve ta de errado ai?

    terça-feira, 24 de junho de 2014 13:45

Respostas

  • Amigo, bom dia.

    Não seria porque seu FOR está começando no 1 e deveria começar no 0 (zero) ?

    Abraços !


    Diego Murakami View Diego Murakami's LinkedIn profile - MCP, MS, MCSD
    * Por favor "Marcar como Resposta" caso esta for útil para sua dúvida.

    • Marcado como Resposta RJCERRI terça-feira, 24 de junho de 2014 14:07
    terça-feira, 24 de junho de 2014 13:53

Todas as Respostas

  • Amigo, bom dia.

    Não seria porque seu FOR está começando no 1 e deveria começar no 0 (zero) ?

    Abraços !


    Diego Murakami View Diego Murakami's LinkedIn profile - MCP, MS, MCSD
    * Por favor "Marcar como Resposta" caso esta for útil para sua dúvida.

    • Marcado como Resposta RJCERRI terça-feira, 24 de junho de 2014 14:07
    terça-feira, 24 de junho de 2014 13:53
  • Deu certo mas tive que colocar assim

     For iRow = 0 To gridnegocios.RowCount - 2

    deixando o for com 0 e rowcount -1 ele colocava uma linha a mais sem dados, obrigado pela ajuda.

    terça-feira, 24 de junho de 2014 14:07