DATA REPORT

ARPRADO 30/03/2011 20:37:05
#369777
Olá amigos,

gostaria de criar um relatório usando grupos no datareport da seguinte forma:

Dim rsRel As New ADODB.Recordset
Dim mPreenc As String
rsRel.Fields.Append [Ô]empresa[Ô], adVarChar, 50
rsRel.Fields.Append [Ô]funcionario[Ô],adVarChar, 50
rsRel.Open
rsRel.AddNew
rsRel!empresa=[Ô]EMPRESA A[Ô]
rsRel!funcionario=[Ô]FUNCIONÁRIO A[Ô]
rsRel.Update
rsRel.AddNew
rsRel!empresa=[Ô]EMPRESA A[Ô]
rsRel!funcionario=[Ô]FUNCIONÁRIO B[Ô]
rsRel.Update
rsRel.AddNew
rsRel!empresa=[Ô]EMPRESA B[Ô]
rsRel!funcionario=[Ô]FUNCIONÁRIO A[Ô]
rsRel.Update

SQLQuery = [Ô]SHAPE {select ...
Set drRelatorio.DataSource = rsRel


Como geraria um relatório em grupos usando uma tabela temporário?


Ex. Relatório

EMPRESA: empresa A
Funcionário A
Funcionario B

EMPRESA: empresa B
Funcionário A
TECLA 31/03/2011 21:15:27
#369992 Resposta escolhida
Você precisa montar uma conexão usando o MSDATASHAPE além de utilizar os comandos SHAPE, APPEND e RELATE no escopo da consulta.
Exemplo:

Private Sub Form_Load()
[ô]Estabelece a conexão
Set cn = New ADODB.Connection

cn.Provider = [Ô]MSDataShape[Ô]
cn.ConnectionString = [Ô]Data Provider=Microsoft.Jet.OLEDB.4.0;Data Source=c:    este
wind.mdb[Ô]
cn.CursorLocation = adUseClient
cn.Open

[ô]Define o recordset principal
Set rsMestre = New ADODB.Recordset
rsMestre.Open [Ô]SHAPE {select * from categorias} [Ô] & _
  [Ô]APPEND ({select * from produtos} [Ô] & _
  [Ô]RELATE CódigodaCategoria TO CódigodaCategoria) AS CategoriaProdutos[Ô], cn 
  PreencheCampos

[ô]Define o recordse secundario
Set rsDetalhes = New ADODB.Recordset
SelecionaDetalhe

[ô]Define o Grid
With grdDetalhe
  .Caption = [Ô]Produtos[Ô]
  .MarqueeStyle = dbgHighlightRow
End With
End Sub
Tópico encerrado , respostas não são mais permitidas
Voltar