InitializeComponent()
Dim strcomandoreq As String
Dim adaptadorreq As OleDb.OleDbDataAdapter
'Introducir aquí el código de usuario para inicializar la página
Dim conexionreq As New OleDbConnection("provider=vfpoledb.1;data source=C:\requisiciones\ad_reqi.dbf;")
strcomandoreq = "select numreq,descri from ad_reqi where numreq like '_60____'"
adaptadorreq = New OleDb.OleDbDataAdapter(strcomandoreq, conexionreq)
adaptadorreq.Fill(ds)
Dim rel As CrystalReport1
rel = New CrystalReport1
rel.SetDataSource(ds)
CrystalReportViewer1.ReportSource = rel
DataGrid1.DataSource = ds
DataGrid1.DataBind()
La verdad no he utilizado mucho crystal reports, el reporte lo realice de la manera siguiente:
agregue un nuevo item de crystal report, utilize la opcion using report expert, agregue la conexión y las respectiva tablas, le di finalizar.
En un webform agregue un crystalreports viewer de la caja de herramientas y puse el código anterior en el load del webform. Al correr el reporte me muestra la selección de todos los campos, no se si me haga falta agregar algo al reporte para que me tome el cuenta el where.
De antemano gracias por su respuesta.
