DataReport - con código

[jeaguiar25]

Buenas Noches amigos foreros!

Ésta vez tengo una consulta con respecto a un DataReport.
Utilizo el siguiente codigo:
-----------------------------------------------------------------------------------------------
Private Sub ImpCaratula()
Dim RsData_FichaUsuario As ADODB.Recordset
Dim StrValorHC As String
Set RsData_FichaUsuario = New ADODB.Recordset
StrValorHC = TextHC.Text

With Data_FichaUsuario

RsData_FichaUsuario.Open "SELECT * FROM Activos INNER JOIN Historial ON Activos.HC_Activos=Historial.HC_Historial WHERE HC_Activos = " & StrValorHC, cnn, adOpenDynamic, adLockBatchOptimistic

Set .DataSource = Nothing
.DataMember = ""
Set .DataSource = RsData_FichaUsuario.DataSource

End With
Data_FichaUsuario.Show 1
End Sub
---------------------------------------------------------------------------------------------
y lo uso para generar un informe para imprimir las veces que un paciente ha estado internado.
El tema es que al generar me trae de la tabla activos, todos los datos del paciente la misma cantidad de veces que internacion, o sea asi

Datos del Paciente
Internación
Datos del Paciente
Internación
Datos del Paciente
Internación
Datos del Paciente
Internación

pero yo quiero que quede así

Datos del Paciente
Internación
Internación
Internación
Internación
Internación

Lo he intentado agregando un "Encabezado y Pie de Grupo" pero me tira el error:
"Las secciones del informe no coinciden con el origen de datos"

Si alguien tiene una idea lo agradezco enormemente.
Saludos........

[franko1809]

Tu mismo lo has dicho tienes que hacer un reporte por grupos no es tan dificil como parece aqui te dejo un ejemplo tambien puedes descargarlo desde este link.

Código:

Dim rs As New ADODB.Recordset

sSQL = "SHAPE {SELECT P.codprod,P.NomProd,P.CodCat,C.nomcat FROM Producto P INNER JOIN Categoria C ON P.codcat=C.codcat } AS LEVEL2 COMPUTE LEVEL2 BY 'CodCat','NomCat'"
 

Set rs = New ADODB.Recordset

rs.Open sSQL, Cn

Set DataReport1.DataSource = rs
DataReport1.Show