FastReport com Array

[SAOliveira]

Alguem já consegui usar array de dados na fast.

[evandro]

Sérgio,

 

Uso muito. A função que postei há algum tempo aqui no fórum está preparada para tratar o array. 

[Ale SB]

Blz Tio;

 

veja se ajuda:

 

http://fivewin.com.br/index.php?/topic/13808-dica-fastreport-com-array/?hl=fastreport#entry26550

 

@braços Ale

[Luiz Fernando]

Blz Tio;

 

veja se ajuda:

 

http://fivewin.com.br/index.php?/topic/13808-dica-fastreport-com-array/?hl=fastreport#entry26550

 

@braços Ale

E ai Alessandro blz, colega a pouco tempo atrás vc postou como usar os código abaixo em array, mais não consigo achar o tópico nem a pau, e não tem nenhuma outra fonte com isto, se possível vc poderia postar o link do tópico ou a solução...

oFrPrn:SetMasterDetail("relven5a", "relven5c", {||relven5a->pedido})

oFrPrn:SetResyncPair( "relven5a", "relven5c" )

Vlw Obrigado

Luiz Fernando

[sambomb]

   aAdd(::aFields,"CAMPO1")  //-- 01
   aAdd(::aFields,"CAMPO2")   //-- 02
   aAdd(::aFields,"CAMPO3")     //-- 03
   aAdd(::aFields,"CAMPO4")    //-- 04
   
   For i = 1 to Len(::aFields)
   
      cCampos += ::aFields[i] + If( i + 1 > Len(::aFields),"", ";")
      
   end

   cAux := '{|aField| xx := '

   For i = 1 to Len(::aFields)

      cAux += 'If(aField = "'
      cAux += ::aFields[i]
      cAux += '",'
      cAux += AllTrim(Str(i))

      If I + 1 >= Len(::aFields)

         cAux += ','
         cAux += AllTrim(Str(i+1))
         cAux += Replicate(")",i)

         exit

      else

         cAux += ","

      end

   end

   cAux += ', aValFastReport[nRec, xx]}'

   bAux := &( cAux )

   Result := ::oFrPrn:SetUserDataSet( "MEUARRAY",;
                                       cCampos,;
                                    {||nRec := 1},;
                                    {||nRec := nRec + 1},;
                                    {||nRec := nRec - 1},;
                                    {||nRec > Len(aValFastReport)},;
                                       bAux)
::oFrPrn:SetProperty("Principal","DataSetName","MEUARRAY")

 

Ta ae um exemplo, só precisa adaptar pra sua realidade ae

Obs.: aValFastResport é uma variável private ou pública ( eu uso como pública )