datagrid y crystal report

[waldobh]

Hola, me parece que entienden bastante de Crystal report, tengo una gran inquietud bueno, realice un reporte de pedido en crystal report de ahi lo exporte a visual basic mediante el RDC. todo esta bien pero..ahora lo que deseo es realizar un formulario y en un cuadro de texto puedA yo ingresar ingresar el numero de pedido y que me visualice los datos del numero de pedido en una grilla y al hacer click en el boton imprimir de dicho formulario, me visualice en el reporte que creE, espero supe explicarme , no se como hacerlo, como tomar los datos de la grilla en reporte que se crea. O QUE CONSIDERACIONES DEBO DE TOMAR, SOY PRINCIPIANTE EN ESTO.
bueno gracias por todo! espero que pronto me sepas responder

[Developer9]

El reporte que tu creaste tiene una sentencia select que se crea automaticamente... Para realizar un reporte con filtros, es decir que solo se muestre el reporte de un determinado numero de pedido seleccionado por el usuario, debes hacer algo asi:

Public Sub genera_reporte_curso()
abre_conexion

With frm_imprimir_lista
.CrystalReport1.ReportFileName = App.Path & "\Reportes\rpt_Estudiantes_matriculados.rpt"
.CrystalReport1.Connect = conexion
cadena = "SELECT"
cadena = cadena + " Matricula.Numero_Matricula, Matricula.Periodo_Lectivo,"
cadena = cadena + " Estudiante.Id_Estudiante, Estudiante.Nombre,"
cadena = cadena + " curso.nombre"
cadena = cadena + " From"
cadena = cadena + " (Matricula Matricula INNER JOIN Curso Curso ON"
cadena = cadena + " Matricula.Id_Curso = Curso.Id_Curso)"
cadena = cadena + " INNER JOIN Estudiante Estudiante ON"
cadena = cadena + " matricula.Id_Estudiante = Estudiante.Id_Estudiante"
cadena = cadena + " WHERE curso.nombre='" + .Combo1.Text + "'"
cadena = cadena + " AND Matricula.Periodo_Lectivo='" + fe + "'"

.CrystalReport1.SQLQuery = cadena
.CrystalReport1.PrintReport
End With
cierra_conexion
End Sub

Copiar esa sentencia select generada por crystal reports y añadirle condiciones, en mi caso:

cadena = cadena + " WHERE curso.nombre='" + .Combo1.Text + "'"
cadena = cadena + " AND Matricula.Periodo_Lectivo='" + fe + "'"

entonces yo digo que solo se muestre el curso que el usuario haya seleccionado en el combobox y del Periodo Lectivo que se encuentre en una variable llamada fe

Bueno y luego ese nuevo select se lo envias en la propiedad SQLQuery al reporte...

.CrystalReport1.SQLQuery = cadena

y ya ta.

[jrp01]

Si pero eso es usando el OCX por RDC:

Código:

               sentencia = "Tu SQL"
                Set Rs = cn.Execute(sentencia)
                Screen.MousePointer = vbHourglass
                Set crxReport = crxApplication.OpenReport(App.Path & "\reporte.rpt")
                crxReport.DiscardSavedData
                Set crxDatabase = crxReport.Database
                Set crxDatabaseTables = crxDatabase.Tables
                crxReport.Database.SetDataSource Rs

[david4002239]

buenoas me podria decir que significa estas lineas
crxReport.DiscardSavedData
Set crxDatabase = crxReport.Database
Set crxDatabaseTables = crxDatabase.Tables
gracias [email protected]