Utilizo o seguinte código abaixo para gerar uma planilha EXCEL, o problema que grava todas as linhas da query e sim a ultima. Gera a planilha com uma unica linha... estou adicionando as formulas no details no crystal.. ond eestou errando.???

 

Obrigado

 

************************

  CrystalReport1.Destination = crptToFile
  CrystalReport1.PrintFileType = crptExcel50Tab 'XLS
   
  CommonDialog1.DialogTitle = "Selecione o XLS"
  CommonDialog1.FileName = ""
  CommonDialog1.DefaultExt = "*.xls"
  CommonDialog1.Filter = "Excel (*.xls)|*.xls|All (*.*)|*.*"
  CommonDialog1.InitDir = "C:"
  CommonDialog1.ShowOpen
   
  CrystalReport1.Tag = CommonDialog1.FileName
  CrystalReport1.PrintFileName = CrystalReport1.Tag

 

  select * from...(ok)

 

   Do While Not tabDBn.EOF
      CrystalReport1.Formulas(0) = "carro= '" & tabDBn!carro & "'"
      CrystalReport1.Formulas(1) = "endereco= '" & tabDBn!endereco & "'"

      tabDBn.MoveNext    
   Loop

 

      CrystalReport1.ProgressDialog = False
      CrystalReport1.ReportFileName = App.Path & "sgsr41.rpt"
      CrystalReport1.Action = 0
***************

Olá!

 

O problema não estaria em você está carregando uma formula? Por acaso o valor apresentado é último do registro?

Para apresentar todos os registros você deveria carregar ou acessar de uma tabela e incluir  no detail o campo da tabela e não uma formula. O valor apresentado da fórmula será sempre o último carregado.