no encuentro mi solucion

[gasafonso]

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 que estan en un tabla que tiene (numfactura, importe, codiProd, Cantidad)

gracias

PD: Trabajo con ado, quiero reconstituir la factura original,

[Kruzado]

amigazo, da lo mismo dao o ado.... si para crear un filtro de base de datos da lo mismo, manda el codigo donde abres tu base de datos y tu tabla.... ahi lo amononamos un poco y vemos que sale

para ordenar un poco la casa, estas repitiendo la misma condicion de busqueda dentro del ciclo

dsDetalleFactura.Recordset.FindFirst criterio (esta linea dentro del for)

lo que estas haciendo es cada vez que entra al ciclo estas buscando el primer registro que cumpla con el criterio, entonces SIEMPRE te va a encontrar el mismo registro (el primero), entonces por ejemplo si entra 3 veces al for, en tu grilla te va a mostrar 3 veces el mismo registro.... se entiende?, por eso te aconsejaba usar un ciclo while y recorrer la tabla.... ahora si quieres seguir ocupando tu ciclo for, reemplaza la linea anterior por :

dsDetalleFactura.Recordset.FindNext criterio

cada vez que pase por el ciclo busca el siguiente y no el primero

ahora tu ciclo for lo estas condicionando a la cantidad de lineas que tienes en tu grilla... que pasa si tu grilla tiene 2 lineas y una factura tiene 3 item?, el ultimo item se queda sin ser mostrado, porque recorre solo dos veces tu ciclo, entonces si quieres seguir utilizando el for, debes cambiar la condicion del for por una mas relacionada con la base de datos, por ejemplo la cantidad de registros de la tabla ej

for i=1 to dsDetalleFactura.Recordset.Recordcount

ahora estos son solo consejos, no quiere decir que te funcionen a la primera.... mira analiza y llega a una conclusion, si no puedes, nos avisas y saldremos adelante...

[Avellaneda]

Iniciado por gasafonso

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 que estan en un tabla que tiene (numfactura, importe, codiProd, Cantidad)

gracias

PD: Trabajo con ado, quiero reconstituir la factura original,

Si no encuentas tu solución es porque no haces caso de los consejos que te dan y no miras el código que te ponen.

Siguiendo con tus datos, suponemos que dsDetalleFactura es un control Data de ADO (Adodc) y grilla es un control MSFlexGrid (si no es así, nos lo indicas).
Pues bien, copia el siguiente código (modifica [LaTabla] con el nombre de tu tabla)

Código:

Private Sub carga_datos()
Dim i As Long
dsDetalleFactura.RecordSource = "SELECT * FROM [LaTabla] WHERE numfactura LIKE'%" & txtPresupuesto.Text & "%'"
dsDetalleFactura.Refresh
With grilla
    .Rows = dsDetalleFactura.Recordset.RecordCount
    .Cols = dsDetalleFactura.Recordset.Fields.Count
    i = 1
    Do Until dsDetalleFactura.Recordset.EOF
        .TextMatrix(i, 0) = dsDetalleFactura.Recordset!cantidad
        .TextMatrix(i, 1) = dsDetalleFactura.Recordset!codigoprod
        .TextMatrix(i, 2) = dsDetalleFactura.Recordset!precio
        .TextMatrix(i, 3) = dsDetalleFactura.Recordset!Subtotal
        i = i + 1
        If i = .Rows Then Exit Do
        dsDetalleFactura.Recordset.MoveNext
    Loop
End With
End Sub

Espero que así te funcione y si te dá error, nos indiques el tipo de error y en la línea de código donde lo dá.

[gasafonso]

Iniciado por Avellaneda

Si no encuentas tu solución es porque no haces caso de los consejos que te dan y no miras el código que te ponen.

Siguiendo con tus datos, suponemos que dsDetalleFactura es un control Data de ADO (Adodc) y grilla es un control MSFlexGrid (si no es así, nos lo indicas).
Pues bien, copia el siguiente código (modifica [LaTabla] con el nombre de tu tabla)

Código:

Private Sub carga_datos()
Dim i As Long
dsDetalleFactura.RecordSource = "SELECT * FROM [LaTabla] WHERE numfactura LIKE'%" & txtPresupuesto.Text & "%'"
dsDetalleFactura.Refresh
With grilla
    .Rows = dsDetalleFactura.Recordset.RecordCount
    .Cols = dsDetalleFactura.Recordset.Fields.Count
    i = 1
    Do Until dsDetalleFactura.Recordset.EOF
        .TextMatrix(i, 0) = dsDetalleFactura.Recordset!cantidad
        .TextMatrix(i, 1) = dsDetalleFactura.Recordset!codigoprod
        .TextMatrix(i, 2) = dsDetalleFactura.Recordset!precio
        .TextMatrix(i, 3) = dsDetalleFactura.Recordset!Subtotal
        i = i + 1
        If i = .Rows Then Exit Do
        dsDetalleFactura.Recordset.MoveNext
    Loop
End With
End Sub

Espero que así te funcione y si te dá error, nos indiques el tipo de error y en la línea de código donde lo dá.

Me da el error " 381 en tiempo de ejecucion" dice " NO EXISTE EL SUBINDICE en EL INTERVALO"

Borrando la linea .Rows = dsDetalleFactura.Recordset.RecordCount, no me da error pero carga solo un registro

Prove poniendo un For antes del DO UNTIL for i = 1 to dsDetalleFactura.Recordset.RecordCount pero tampoco

PD : agradeceria urgente infoemacion gracias

[Avellaneda]

Iniciado por gasafonso

Me da el error " 381 en tiempo de ejecucion" dice " NO EXISTE EL SUBINDICE en EL INTERVALO"

Borrando la linea .Rows = dsDetalleFactura.Recordset.RecordCount, no me da error pero carga solo un registro

Prove poniendo un For antes del DO UNTIL for i = 1 to dsDetalleFactura.Recordset.RecordCount pero tampoco

PD : agradeceria urgente infoemacion gracias

Si el Grid no tiene encabezado, pon la instrucción así:


.Rows = dsDetalleFactura.Recordset.RecordCount - 1

[gasafonso]

Iniciado por Avellaneda

Si el Grid no tiene encabezado, pon la instrucción así:


.Rows = dsDetalleFactura.Recordset.RecordCount - 1

No me anduvo , no se que mas hacer se te ocurre algo mas ?

yo tengo que entregar el programa mañana