Olá galera!!!!

 

Bom é o seguinte...

Tenho um relatorio q é gerado no DataReport e nele preciso fazer uma divisão, assim:

 

--------------------------------------------

Nome             Qtd             DIVIDIDO POR 3

--------------------------------------------

Fulano           150                    50

Outro fulano   300                   100 

- - - - - - - - - - - fim- - - - - - - - - - - - -

 

A parte VERMELHO é a que eu preciso, ALGUEM AÍ SABE COMO FAZER ESSA DIVISÃO NO PROPRIO DATAREPORT??????

 

Desde já obrigado

 

 

Vamos lá amigão...parece meio complicado mas é simples :

Primeiro : Coloque os campos (txt's) no form. A coluna da divisão vc repete a coluna da QTD e chama de txtResultado !

Segundo : Na area de Codigo do DataReport ;

Dim WithEvents ColunaDivisao As StdDataFormat

Dim Resultado As Currency

Private Sub DataReport_Initialize()

 

Set ColunaDivisao = New StdDataFormat
SNoFormat.Format = "#,##0.00"

Set Sections("Section1").Controls("txtResultado").DataFormat = ColunaDivisao

End Sub

Private Sub ColunaDivisao_Format(ByVal DataValue As StdFormat.StdDataValue)

Resultado = Resultado + (rs.Fields("QTD")/3)

DataValue.Value = Format(Resultado, "#,##0.00")
rs.MoveNext
End Sub

Espero que ajude...qquer coisa me avise que explico melhor, t+

Vou tentar......

Galera eu consegui.....

Fiz uma consuta no access e la mesmo crie um campo fazendo a divisao dai no datareport so puxei os dados, deu beleza.......... um abraco.......

 

 

topico encerrado