Cita:
Iniciado por gasafonso 
hice com ome dijiste pero me da un error, " No coincide el tipo en la expresion JOIN "
yo puse al comienzo
dsdetalleFactura.recordsource=" SelecT dsetallefactura.Numfactura,dsdetallefactura.codPro d, dsdetallefactura.fecha,........................... ......from dsdetallefactura inner join dsarticulos ON dsdetallefactura.codigoProd= dsarticulos.codigo where numfactura = ' " & txtnropresupuesto & "' "
no se por que me da el error
o tambien intente y en vez de "dsdetalleFactura.recordsource" puse "Criterio" y tampoco me anduvo , me daba un error como que el whit no esta definido o declarado
gracias
"dsdetallefactura" ¿es una tabla o un control Adodc?
Suponemos que es un control Data ADO:
dsdetallefactura.RecordSource = "SELECT TablaFactura.NumFactura, TablaFactura.CodProd, ... , TablaArticulos.Descripcion FROM TablaFactura INNER JOIN TablaArticulos ON TablaFactura.CodProd = TablaArticulos.codigo WHERE TablaFactura.NumFactura = '" & txtnropresupuesto & "'"
(si 'NumFactura' es un campo de tipo numérico, le quitas las comillas simples).
En el bucle:
Código:
For i = 1 To grilla.Rows - 1 ' ya has controlado que el nº de filas es igual al de registros que devuelve la consulta
' dsDetalleFactura.Recordset.MoveFirst <- eliminar esta línea
' dsDetalleFactura.Recordset.FindFirst criterio <- y esta también
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
' dsDetalleFactura.Recordset.NextRecordset
dsDetalleFactura.Recordset.MoveNext
Next
Nota: Cuando escribas parte de tu código, haz un Copy-Paste, quedará mas claro y sin errores de transcripción.
