Alguien me puede ayudar

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

gracias


PD: Y quiero diseñar un recibo de pago , en que se puede hacer que sea facil y completo yo lo hice en un datareport pero no me gusta , quiero un mejor diseño gracias

End Sub

[GabrielDR]

Si no te gusto el diseño del DATAREPORT creo que estas algo frito....
tendrias que usar aplicaciones de terceros como son CrystalReports

Por otro lado... tambien podrias hacer el recibo DIBUJANDO en un PICTURE BOX y posteriomente mandarlo imprimir el picture...

Recuerda que un picture box se comporta como si fuera una hoja de impresion.

Algo asi...

picture1.print "Aqui va un texto"
picture1. print "aqui va otro" etc.. etc..
Asi quedaria como lo deseas pero el costo de trabajo es mucho mayor.

[Kruzado]

ya viejito tienes el medio enredo en tu codigo, pero lo primero : estas usando el ciclo erroner, utilias un for, pero lo mas practico debe ser un while, te voy a colocar el codigo que usaria yo, es con dao, pero tu lo llevas a tu tipo de manejo de datos


Private Sub carga_datos()
Dim sql As String
Dim criterio As String
criterio = " select * from tbdetallefacturas where numfactura= " & txtNroPresupuesto.Text
set dsDetalleFactura=tubase.openrecordset(criterio,dbo pendynaset)

while not dsdetallefactura.eof
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.movenext
wend

eso acomodaloa tu codigo y debe funcionar

[gasafonso]

Iniciado por Kruzado

ya viejito tienes el medio enredo en tu codigo, pero lo primero : estas usando el ciclo erroner, utilias un for, pero lo mas practico debe ser un while, te voy a colocar el codigo que usaria yo, es con dao, pero tu lo llevas a tu tipo de manejo de datos


Private Sub carga_datos()
Dim sql As String
Dim criterio As String
criterio = " select * from tbdetallefacturas where numfactura= " & txtNroPresupuesto.Text
set dsDetalleFactura=tubase.openrecordset(criterio,dbo pendynaset)

while not dsdetallefactura.eof
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.movenext
wend

eso acomodaloa tu codigo y debe funcionar

Pero no trabajo con dao, estoy un poco mareado como se haria con el otro?


gracias

[gasafonso]

Iniciado por Kruzado

ya viejito tienes el medio enredo en tu codigo, pero lo primero : estas usando el ciclo erroner, utilias un for, pero lo mas practico debe ser un while, te voy a colocar el codigo que usaria yo, es con dao, pero tu lo llevas a tu tipo de manejo de datos


Private Sub carga_datos()
Dim sql As String
Dim criterio As String
criterio = " select * from tbdetallefacturas where numfactura= " & txtNroPresupuesto.Text
set dsDetalleFactura=tubase.openrecordset(criterio,dbo pendynaset)

while not dsdetallefactura.eof
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.movenext
wend

eso acomodaloa tu codigo y debe funcionar

no me funciona , se te ocurre algo no se yo estoy mareado de tanto probar

trabajo con ado