Problema de esos existenciales con sumas acumulativas
Publicado por Rodrigo Fernando (3 intervenciones) el 25/09/2018 22:22:05
Buen (inserte aquí el horario en que leyó esto) amigos. hoy vengo con un problema raro. Resulta que estoy sumando datos de un datagrid y lo que el usuario decida poner en unos textbox (función que se activa al apretar un Button el cual mostrará la suma de lo que uno puso en un datagrid diferente en la misma ventana). Comienza el problema cuando voy a hacer una segunda suma. Problemas como:
1) Si yo no pongo nada, debiera dejar el número tal cual, pero los suma igual (es decir, si uno de los datos dice 12 y en la primera suma agregué 1 y en la segunda suma no pongo nada, en vez de ser 13 suma 12+13).
2) He intentado poner la suma dentro de un For Each pero al hacer ésto simplemente la aplicación se buggea (lo que no es una buena idea si estoy accionando la función con un Button).
Adjunto el código abajito. Cualquier cosa (no importa si no tienen respuesta, con que lo vean también me ayuda), gracias.
:8)
1) Si yo no pongo nada, debiera dejar el número tal cual, pero los suma igual (es decir, si uno de los datos dice 12 y en la primera suma agregué 1 y en la segunda suma no pongo nada, en vez de ser 13 suma 12+13).
2) He intentado poner la suma dentro de un For Each pero al hacer ésto simplemente la aplicación se buggea (lo que no es una buena idea si estoy accionando la función con un Button).
Adjunto el código abajito. Cualquier cosa (no importa si no tienen respuesta, con que lo vean también me ayuda), gracias.
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
Dim 1, 2, 3, 4, 5, 6, 7, 8, 9, 10 As New Decimal
1 = CDbl(txt1.Text)
2 = CDbl(txt2.Text)
3 = CDbl(txt3.Text)
4 = CDbl(txt4.Text)
5 = CDbl(txt5.Text)
6 = CDbl(txt6.Text)
7 = CDbl(txt7.Text)
8 = CDbl(txt8.Text)
9 = CDbl(txt9.Text)
10 = CDbl(txt10.Text)
'La numeracion no esta mala. Las columnas anteriores a la primera tienen encabezados.
txt1.Text = 1 + Val(dtDatos.Rows(0).Cells(2).Value.ToString)
txt2.Text = 2 + Val(dtDatos.Rows(0).Cells(3).Value.ToString)
txt3.Text = 3 + Val(dtDatos.Rows(0).Cells(4).Value.ToString)
txt4.Text = 4 + Val(dtDatos.Rows(0).Cells(5).Value.ToString)
txt5.Text = 5 + Val(dtDatos.Rows(0).Cells(6).Value.ToString)
txt6.Text = 6 + Val(dtDatos.Rows(0).Cells(7).Value.ToString)
txt7.Text = 7 + Val(dtDatos.Rows(0).Cells(8).Value.ToString)
txt8.Text = 8 + Val(dtDatos.Rows(0).Cells(9).Value.ToString)
txt9.Text = 9 + Val(dtDatos.Rows(0).Cells(10).Value.ToString)
txt10.Text = 10 + Val(dtDatos.Rows(0).Cells(11).Value.ToString)
:8)
Valora esta pregunta
0
