Hola,
Te ayudo con tu segunda pregunta :
1. en tu form incluyes la siguiente linea : Imports CrystalDecisions.Shared
2. declaras las siguiente variables :
Dim ParamFields As New ParameterFields()
Dim ParamField As New ParameterField()
Dim DiscreteVal As New ParameterDiscreteValue()
Dim miFormula As String
3. cargas el valor del parámetro que pasaras al reporte, desde un contro textbox llamado TxtTitulo, el control "crystalReportViewer" donde se mostrará el reporte se llama "rptMarcaMalla"
ParamField.ParameterFieldName = "titulo"
DiscreteVal.Value = TxtTitulo.Text
ParamField.CurrentValues.Add(DiscreteVal)
ParamFields.Add(ParamField)
RptMarcaMalla.ParameterFieldInfo = ParamFields
4. construyes el equivalente de la cláusula Where de la sentencia SQL, que lee la tabla "kr_horas", el campo fecha, y compara con el valor de la variable texto sFecha1
sSQL = sSQL & "{kr_horas.fecha} >= CDate('" & sFecha1 & "') "
5. asignas la fórmula y el nombre del reporte crystal al control. La variable "rutaReportes" contiene el path donde guardas tu reporte crystal (*.rpt)
RptMarcaMalla.SelectionFormula = sSQL
RptMarcaMalla().ReportSource = RutaReportes + "Rpt_Kr_MarcaMalla2.rpt"
RptMarcaMalla().Refresh()
Eso es todo....
Saludos, |