Cita:
Iniciado por Avellaneda 
Pues entonces, cambia en la consulta que puse, 'TablaFactura' por el nombre de la tabla e idem con 'TablaArticulos' y comprueba los nombres de los campos.
no me funciono ,el codigo que yo usaba es este :
Private Sub carga_datos11()
Dim i As Long
Dim criterio As String
dsDetalleFactura.RecordSource = " select cantidad,codigoprod, precio, subtotal,numfactura from tbdetallefactura where numfactura like '" & txtNroPresupuesto.Text & "'"
dsDetalleFactura.Refresh
With grilla
.Rows = dsDetalleFactura.Recordset.RecordCount + 2
'.Cols = dsDetalleFactura.Recordset.Fields.Count
i = 1
Do Until dsDetalleFactura.Recordset.EOF
If dsDetalleFactura.Recordset.EOF Then Exit Do
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
txtTotal.Text = dsDetalleFactura.Recordset!subtotal
i = i + 1
dsDetalleFactura.Recordset.MoveNext
If i = grilla.Rows Then Exit Do
'Next
Loop
End With
End Sub
__________________________________________________ _____________________
Pero como veran no puedo agregar la columna 2
grilla.TextMatrix(i, 2) = dsDetalleFactura.Recordset!descripcion
por eso intente esto, pero no me da resultado:
Private Sub carga_datos11()
Dim i As Long
Dim criterio As String
dsDetalleFactura.RecordSource = " select tbdetallefactura.cantidad,tbdetallefactura.codigop rod, tbdetallefactura.precio, tbdetallefactura.subtotal,tbdetallefactura.numfact ura, tbarticulos.codigo, tbarticulos.descripcion from tbdetallefactura inner join tbarticulos on tbdetallefactura.codigoprod = tbarticulos.codigo where tbdetallefactura.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
PERO TAMPOCO me anduvo me dice que " No se encontro el elemeno de esta coleccion" en referencia a
grilla.TextMatrix(i, 2) = dsDetalleFactura.Recordset!descripcion
__________________________________________________ _____________________________________________
Prove de esta manera tb pero tampóco
Private Sub carga_datos() 'nuevo
Dim i As Long
Dim criterio As String
dsDetalleFactura.RecordSource = " select tbdetallecliente.cantidad,tbdetallecliente.codigop rod, tbdetallecliente.subtotal,tbdetallecliente.numfact ura, tbarticulos.descripcion from tbdetallefactura INNER JOIN tbarticulos ON tbdetallefactura.codigoprod = tbarticulos.codigo where numfactura = " & txtNroPresupuesto.Text & " "
dsDetalleFactura.Refresh
With grilla
.Rows = dsDetalleFactura.Recordset.RecordCount + 2
i = 1
Do Until dsDetalleFactura.Recordset.EOF
If dsDetalleFactura.Recordset.EOF Then Exit Do
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
txtTotal.Text = dsDetalleFactura.Recordset!subtotal
i = i + 1
dsDetalleFactura.Recordset.MoveNext
If i = grilla.Rows Then Exit Do
Loop
End With
End Sub
me da el error "No coincide el tipo en la expresion JOIN" error 3615
--------------------------------------------------------------------------------