Para Gente Capaz

[gasafonso]

Iniciado por franko1809

Tio en el post 16 probaste como te dije y te salia error "No se encontro el elemeno de esta coleccion" intenta de esta manera

Código:

Private Sub carga_datos11()

Dim i As Long
Dim criterio As String
dsDetalleFactura.RecordSource = "SELECT D.numfactura,D.cantidad,D.codigoprod,A.descripcion,D.precio,D.subtotal FROM tbarticulos A INNER JOIN tbdetallefactura D ON A.codigo = D.codigoprod WHERE D.numfactura=" + txtNroPresupuesto.Text + "" 


i = 1
For i = 1 To grilla.Rows - 1 

grilla.TextMatrix(i, 0) = dsDetalleFactura.Recordset!cantidad
grilla.TextMatrix(i, 1) = dsDetalleFactura.Recordset!codigoprod
grilla.TextMatrix(i, 2) = dsDetalleFactura.Recordset!descripcion
grilla.TextMatrix(i, 3) = dsDetalleFactura.Recordset!precio
grilla.TextMatrix(i, 4) = dsDetalleFactura.Recordset!subtotal

'i = i + 1
dsDetalleFactura.Recordset.MoveNext

If i = grilla.Rows Then Exit For

Next

End Sub

Cheka bien el codigo por q hay una linea comentada.
el error "No se encontro el elemeno de esta coleccion" que hacia referencia a grilla.TextMatrix(i, 2) = dsDetalleFactura.Recordset!descripcion puede ser debido al " ! " si sale ese error prueba asi
grilla.TextMatrix(i, 2) = dsDetalleFactura.Recordset("descripcion") ó
grilla.TextMatrix(i, 2) = dsDetalleFactura.Recordset("A.descripcion")

Por ultimo si sale error en la sentencia sql quita WHERE D.numfactura=" + txtNroPresupuesto.Text + " y carga todos los datos para ver si el error esta ahi?

Donde te mando el proyecto franko asi lo ves ?