SoloCodigo

Programación General => Visual Basic 6.0 e inferiores => Mensaje iniciado por: roach6891 en Miércoles 6 de Agosto de 2008, 08:53

Título: Suma de Text.Text
Publicado por: roach6891 en Miércoles 6 de Agosto de 2008, 08:53

buenas, primero que nada un saludo a toda la banda, soy nuevo en vb y mi problema es muy simple tengo el siguiente codigo:

Private Sub Command1_Click()
imp1.Text = (cant1.Text) * (pu1.Text)
imp2.Text = (cant2.Text) * (pu2.Text)
imp3.Text = (cant3.Text) * (pu3.Text)
imp4.Text = (cant4.Text) * (pu4.Text)
imp5.Text = (cant5.Text) * (pu5.Text)
imp6.Text = (cant6.Text) * (pu6.Text)
imp7.Text = (cant7.Text) * (pu7.Text)

stotal.Text = Val(imp1.Text) + Val(imp2.Text) + Val(imp3.Text) + Val(imp4.Text) + Val(imp5.Text) + Val(imp6.Text) + Val(imp7.Text)
total.Text = (stotal.Text) * 1.15
iva.Text = Val(total.Text) - Val(stotal.Text)
End Sub

todo se ve cencillo y facil, el problema es que en algunas ocaciones (por ejemplo) cant.5.Text, cant6.Text, cant7.Text van a estar vacios entonces cuando ejecuto el botón me tira un error

¿alguien puede decirme como hacer para que me acepte que esos campos esten vacios?

gracias!! un saludo

Título: Re: Suma de Text.Text
Publicado por: F_Tanori en Miércoles 6 de Agosto de 2008, 10:44

Cita de: "roach6891"

buenas, primero que nada un saludo a toda la banda, soy nuevo en vb y mi problema es muy simple ¿alguien puede decirme como hacer para que me acepte que esos campos esten vacios?

gracias!! un saludo

SENCILLO,

Puedes saber si esta vacio con

Código: Visual Basic

if trim(text1)="" then ...
 

Código: Visual Basic

if trim(text1)=empty then ...
 

aunque me parece el problema es con los nulls...
y puedes concatenar una cadena vacia a la funcion val para que convierta el vacio y/o null a 0

Código: Visual Basic

stotal.Text = Val(imp1.Text &"") + Val(imp2.Text & "")
 

Espero te sirva
Saludos

Título: Re: Suma de Text.Text
Publicado por: roach6891 en Jueves 7 de Agosto de 2008, 03:00

ya lo hice y me sigue tirando el mismo error u.u

Título: Re: Suma de Text.Text
Publicado por: cpmario en Jueves 7 de Agosto de 2008, 05:20

No explicas que hiciste.

Tal vez te faltó algo como esto en todas las lineas.

Código: Text

imp1.Text = Val(cant1.Text) * Val(pu1.Text)
 

:comp:

Título: Re: Suma de Text.Text
Publicado por: roach6891 en Viernes 8 de Agosto de 2008, 06:44

muchas gracias por su ayuda, los dos me ayudaron gracias!! :beer: