Imprimir Página - sumar datos list1

Título: sumar datos list1
Publicado por: corlo en 7 Enero 2016, 19:16 pm

Hola soy Corlo

Tengo una duda en sumar el datos.subtotal del list1

el codigo que tengo hasta ahora es:

Código:



dim gh as string
gh = App.Path & "\facturas" & "\" & Prefix_Facturas & Text3.Text & ".TXT"
        Open gh For Random As #1 Len = Len(datos)
        Get #1, (List1.ListIndex + 1), datos
        Text7.Text = datos.producto
        Text8.Text = datos.precio
        Text9.Text = datos.existencias
        Text10.Text = datos.subtotal
        Close #1

gracias

Título: Re: sumar datos list1
Publicado por: Shell Root en 7 Enero 2016, 19:32 pm

Sumar? Donde estás sumando?

Título: Re: sumar datos list1
Publicado por: corlo en 7 Enero 2016, 19:41 pm

hola soy corlo

necesito sumar la variable datos.subtotal del list1

ahora no hace la suma, por eso os pregunto ¿como puedo hacer la suma de la variable
datos.subtotal

Código:


dim gh as string
gh = App.Path & "\facturas" & "\" & Prefix_Facturas & Text3.Text & ".TXT"
        Open gh For Random As #1 Len = Len(datos)
        Get #1, (List1.ListIndex + 1), datos
        Text7.Text = datos.producto
        Text8.Text = datos.precio
        Text9.Text = datos.existencias
        Text10.Text =[b] datos.subtotal[/b]

        Close #1

Título: Re: sumar datos list1
Publicado por: Shell Root en 7 Enero 2016, 19:45 pm

Tendrías primero que recorrer los datos para realizar la sumatoria, lo almacenas en una variable de x tipo, en este caso sería Integer

Código

Dim Sum As Integer
For
   Sum = Sum + CInt(datos.subtotal)
Next

Título: Re: sumar datos list1
Publicado por: corlo en 7 Enero 2016, 19:54 pm

Hola soy corlo

gracias por responder shell root

osea mas o menos seria asi el codigo

Código:



dim d as integer
dim sum as integer
dim gh as string
gh = App.Path & "\facturas" & "\" & Prefix_Facturas & Text3.Text & ".TXT"
        Open gh For Random As #1 Len = Len(datos)
        Get #1, (List1.ListIndex + 1), datos
        Text7.Text = datos.producto
        Text8.Text = datos.precio
        Text9.Text = datos.existencias
        Text10.Text = datos.subtotal
        

for d = 1 to list1.listcount-1
sum = sum + cint(datos.subtotal)
next d 

text11.text = sum

Close #1

Título: Re: sumar datos list1
Publicado por: XresH en 16 Enero 2016, 23:47 pm

Hola, a ver colega corlo, te estas liando, vos tenes un tipo de dato que queres sumar, pero no es un array, por lo que no podes hacer un for ejecutandolo en si el mismo ya que contiene solo un valor y no varios items.

Los varios items segun veo en tu codigo estan en otras variables en el mismo tipo de dato, por lo que tenes que sumar esas o bien utilizar a donde estas transfiriendo los datos, o sea los textbox a los cuales les estas asignando los valores.

Para mi por cuestion de costumbres, seria mas sencillo crear un array, transferir todos los valores para luego sumarlos como lo estas haciendo a traves de un for.

Sino estas enredandote en algo que no vas a encontrarle salida, porque el valor de esa variable no tendra otro sino se lo asignas, en tu caso siempre seria el mismo.

Saludos.

Título: Re: sumar datos list1
Publicado por: corlo en 17 Enero 2016, 16:38 pm

Hola soy Corlo

Gracias por responder XresH

Me podrias poner un ejemplo de lo que explicas con codigo , por que soy novato en tema de programacion, gracias

Foro de elhacker.net

Programación => Programación Visual Basic => Mensaje iniciado por: corlo en 7 Enero 2016, 19:16 pm