Multiplicaciones y sumar resultado
Necesito por favor el código de:
Por Ej.
2 * 3 = 6 2 * 5 = 10 etc. 6 + 10 + etc
que la suma se vea en un text1 incrementando el valor, es decir una venta tipo mostrador donde el usuario
factura varios Sub Totales y luego presionando un Comand1 aparezca el total. Muchas gracias anticipadamente
bailat62
Por Ej.
2 * 3 = 6 2 * 5 = 10 etc. 6 + 10 + etc
que la suma se vea en un text1 incrementando el valor, es decir una venta tipo mostrador donde el usuario
factura varios Sub Totales y luego presionando un Comand1 aparezca el total. Muchas gracias anticipadamente
bailat62
Respuesta de andresmaga
1
<%=Texto%>
Buenas, la solución sería así:
Supongamos que vos tenés 3 array de textbox:
-Txtcantidad donde el usuario pone la cantidad de artículos a vender
-Txtvalor donde es el precio del artículo
-txttotal donde es cantidad*valor
Después va otro textbox (txttotalfactura) el cual no es un array y va el total de la factura
Private sub Command1_click()
dim i as integer
'recorremos todos las cantidades y hacemos el subtotal
for i = 0 to txtcantidad.ubound
txttotal(i).text = val(txtcantidad(i).text) * val(txtvalor(i).text)
next i
'recorremos todos los subtotales y hacemos el total de la factura
for i = o to txttotal.ubound
txttotalfactura.text = val(txttotalfactura.text) + val(txttotal(i).text)
next i
end sub
Buenas, la solución sería así:
Supongamos que vos tenés 3 array de textbox:
-Txtcantidad donde el usuario pone la cantidad de artículos a vender
-Txtvalor donde es el precio del artículo
-txttotal donde es cantidad*valor
Después va otro textbox (txttotalfactura) el cual no es un array y va el total de la factura
Private sub Command1_click()
dim i as integer
'recorremos todos las cantidades y hacemos el subtotal
for i = 0 to txtcantidad.ubound
txttotal(i).text = val(txtcantidad(i).text) * val(txtvalor(i).text)
next i
'recorremos todos los subtotales y hacemos el total de la factura
for i = o to txttotal.ubound
txttotalfactura.text = val(txttotalfactura.text) + val(txttotal(i).text)
next i
end sub
