Cita:
Iniciado por gasafonso 
Tengo este codigo :
Private Sub carga_datos()
Dim sql As String
Dim criterio As String
tbdetallefactura where numfactura= " + txtNroPresupuesto.Text & " "
criterio = "numfactura= '" & txtNroPresupuesto.Text & "'"
dsDetalleFactura.Recordset.FindFirst criterio
For i = 1 To grilla.Rows - 1
dsDetalleFactura.Recordset.MoveFirst
dsDetalleFactura.Recordset.FindFirst criterio
grilla.TextMatrix(i, 0) = dsDetalleFactura.Recordset!cantidad
grilla.TextMatrix(i, 1) = dsDetalleFactura.Recordset!codigoprod
grilla.TextMatrix(i, 3) = dsDetalleFactura.Recordset!precio
grilla.TextMatrix(i, 4) = dsDetalleFactura.Recordset!subtotal
' dsDetalleFactura.Recordset.NextRecordset
Next
-------------------------------------------------------------------------------------
Pero quiero que se repita mientras numfactura= txtNroPresupuesto.Text
numfactura es el campo de una tabla , y quiero cargar todos los items de ese numfactura
gracias
End Sub
Hola,
fíjate que dentro del bucle le estás diciendo que vaya al primer registro y además que busque el primer coincidente, no todos los que coincidan.
En vez de FindFirst debes utilizar el método Filter o una consulta de búsqueda Where:
dsDetalleFactura.Recordset.Filter = criterio 