 Autor
|
Tema: sumar datos list1 (Leído 2,488 veces)
|
corlo
 Desconectado
Mensajes: 98
|
Hola soy Corlo Tengo una duda en sumar el datos.subtotal del list1 el codigo que tengo hasta ahora es:
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
|
|
|
|
|
En línea
|
|
|
|
|
Shell Root
|
Sumar? Donde estás sumando?
|
|
|
|
|
En línea
|
Por eso no duermo, por si tras mi ventana hay un cuervo. Cuelgo de hilos sueltos sabiendo que hay veneno en el aire.
|
|
|
corlo
Desconectado
Mensajes: 98
|
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
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
|
|
|
|
|
En línea
|
|
|
|
|
Shell Root
|
Tendrías primero que recorrer los datos para realizar la sumatoria, lo almacenas en una variable de x tipo, en este caso sería IntegerDim Sum As Integer For Sum = Sum + CInt(datos.subtotal) Next
|
|
|
|
|
En línea
|
Por eso no duermo, por si tras mi ventana hay un cuervo. Cuelgo de hilos sueltos sabiendo que hay veneno en el aire.
|
|
|
corlo
Desconectado
Mensajes: 98
|
Hola soy corlo gracias por responder shell root osea mas o menos seria asi el codigo
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
|
|
|
|
|
En línea
|
|
|
|
|
XresH
|
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.
|
|
|
|
|
En línea
|
|
|
|
corlo
Desconectado
Mensajes: 98
|
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
|
|
|
|
|
En línea
|
|
|
|
|
| Mensajes similares |
|
Asunto |
Iniciado por |
Respuestas |
Vistas |
Último mensaje |
|
|
|
Restar y sumar columas de una base de datos.
Programación Visual Basic
|
erick185
|
0
|
1,824
|
20 Febrero 2006, 06:17 am
por erick185
|
|
|
|
vb modificar datos list1 a archivo random txt
Programación Visual Basic
|
corlo
|
2
|
2,189
|
8 Septiembre 2015, 21:04 pm
por corlo
|
|
|
|
Sumar datos
Bases de Datos
|
SrTrp
|
3
|
3,130
|
4 Febrero 2017, 21:05 pm
por SrTrp
|
|
|
|
descontar valor en list1 de la columna 3
Programación Visual Basic
|
corlo
|
0
|
1,499
|
24 Febrero 2021, 00:42 am
por corlo
|
|
|
|
sumar list1
Programación Visual Basic
|
corlo
|
2
|
2,259
|
4 Diciembre 2021, 18:51 pm
por corlo
|
 |
