RE:Filtrar registros para un Datareport
A ver si esto te sirve
en un comando meto un select
luego este commando lo vinculo al data report mediante el datasource
y al final relaciono cada uno de los casilleros que se encuantran en el datareport (Seccion detalles) a los campos del select
espero te sirva
Dim CmdReporte As ADODB.Command
Set CmdReporte = New ADODB.Command
CmdReporte.ActiveConnection = CN
CmdReporte.CommandType = adCmdText
CmdReporte.CommandText = " Select CA_1,CA_2,CA_3,CA_4,CA_5,CA_6,CA_7,CA_8,CA_9,CA_10 " _
& " From IMPR Where de_tmp='" & Usuario & "' Order By Fi_Fila Asc"
CmdReporte.CommandTimeout = 0
Set DR_RECLA.DataSource = CmdReporte.Execute
DR_RECLA.Sections("CABECERA").Controls("EGRUPO").Caption = "GRUPO :" & Trim(LbGrupo)
DR_RECLA.Sections("CABECERA").Controls("ECPIA").Caption = "Empresa : " & Trim(LbCpia)
DR_RECLA.Sections("DETALLES").Controls("txt1").DataField = "CA_1"
DR_RECLA.Sections("DETALLES").Controls("txt2").DataField = "CA_2"
DR_RECLA.Sections("DETALLES").Controls("txt3").DataField = "CA_3"
DR_RECLA.Sections("DETALLES").Controls("Txt4").DataField = "CA_4"
DR_RECLA.Sections("DETALLES").Controls("Txt5").DataField = "CA_5"
DR_RECLA.Sections("DETALLES").Controls("Txt6").DataField = "CA_6"
DR_RECLA.Sections("DETALLES").Controls("Txt7").DataField = "CA_7"
DR_RECLA.Sections("DETALLES").Controls("Txt8").DataField = "CA_8"
DR_RECLA.Sections("DETALLES").Controls("Txt9").DataField = "CA_9"
DR_RECLA.Sections("DETALLES").Controls("Txt10").DataField = "CA_10"
Screen.MousePointer = 1
DR_RECLA.Show vbModal
Set DR_RECLA = Nothing
Set CmdReporte = Nothing