Visual Basic - sumar todos los campos de un listbox

Life is soft - evento anual de software empresarial

sumar todos los campos de un listbox

Publicado por Sandra URGE RESPUESTA (38 intervenciones) el 01/05/2001 02:25:53

hola, he conseguido sumar los campos de un listbox, pero solo consigo total entero y nesesito que sume con todo y decimales

Private Sub Command2_Click()

Dim IndiceLis

Dim VTotal

VTotal = 0

If List3.ListCount < 1 Then Exit Sub

For IndiceLis = 0 To List3.ListCount - 1

 VTotal = VTotal + Val(List3.List(IndiceLis))

Next IndiceLis

MsgBox VTotal

End Sub

me pueden ayudar ?

Valora esta pregunta

Me gusta: Está pregunta es útil y esta clara

No me gusta: Está pregunta no esta clara o no es útil

Responder

RE:sumar todos los campos de un listbox

Publicado por Paco (10 intervenciones) el 03/05/2001 02:18:57

Soy un erudito que en esto de la Programación pero me permito opinar que has declarado la variable VTotal como variant, si la dimensionas como single ó currenci obtendrás decimales.

Valora esta respuesta

Me gusta: Está respuesta es útil y esta clara

No me gusta: Está respuesta no esta clara o no es útil

Comentar

RE:sumar todos los campos de un listbox

Publicado por Luis D. Sáenz (20 intervenciones) el 03/05/2001 09:22:40

Edurido.. probaste si funciona la boludes que dijiste???.. La informatica no es una ccia exacta, por favor no emitas enunciados concluyentes y no creas que eres demasiado bueno.

La enfermedad del ignorante es ignorar su propia ignorancia.
<b>Amos Bronson Alcott</b>

Suerte

Valora esta respuesta

Comentar

RE:sumar todos los campos de un listbox

Publicado por Jorge Caballero (6 intervenciones) el 03/05/2001 11:13:23

Haber si pruebas con las funciones de Conversión:

Private Sub Command2_Click()

Dim IndiceLis

Dim VTotal

VTotal = 0

If List3.ListCount < 1 Then Exit Sub

For IndiceLis = 0 To List3.ListCount - 1

VTotal = VTotal + CDbl(List3.List(IndiceLis))

Next IndiceLis

MsgBox VTotal

End Sub

Valora esta respuesta

Comentar

RE:sumar todos los campos de un listbox

Publicado por ana (1 intervención) el 07/03/2010 01:19:36

como hago para sumar todos mis numeros en una listbox ?

Valora esta respuesta

Comentar

RE:sumar todos los campos de un listbox

Publicado por javier (1 intervención) el 26/08/2012 08:00:56

no te compliques
si lo que vas a agregar son subtotales, y quieres sacar la suma de ellos, usa esta formula simple

dim a,b,c as double
a = (Val(Precio.Text) * Val(Cantidad.Text))
b = TPagar.Text
c = a + b
TPagar.Text = c

pero procura ponerle a "c" un valor de cero, osino les va a salir error

Valora esta respuesta

Comentar

RE:sumar todos los campos de un listbox

Publicado por nora (1 intervención) el 18/05/2007 19:22:52

hola quiero ver si me pueden ayudad por que necesito ayuda para saber como se hace la suma de varios numeros que contiene un lisbox

Valora esta respuesta

Comentar

RE:sumar todos los campos de un listbox

Publicado por vicho (1 intervención) el 07/08/2009 00:13:29

tienes q declarar todas las variables de tipo currency y asi logra sumar los decimales

Valora esta respuesta

Comentar

RE:sumar todos los campos de un listbox

Publicado por walter (1 intervención) el 25/03/2010 09:41:16

Probaste declarando la variable como tipo currency que seria para moneda¿?
o bien podes establecer el formata asi:
txtTotal = Format(total, "###.##0,00")

Valora esta respuesta

Comentar

RE:sumar todos los campos de un listbox

Publicado por Sirdany (1 intervención) el 26/05/2010 00:49:47

Esto sirve para hacer la suma que de todo lo que hay en el listbox Funciona con VB.net y VB6 lo acabo de hacer y funciona al %100

Private Sub Form_Load()

Dim d As Double

Dim tot As Double

Dim x As Integer

For x = 0 To List1.ListCount - 1

    List1.Selected(x) = True

    d = List1.Text

    tot = tot + d

    Label1.Caption = tot

Next

End Sub

Espero haber sido de ayuda

Valora esta respuesta

Comentar

como resolveria esto me ayudan

Publicado por alejandro (1 intervención) el 20/11/2014 16:02:16

Elaborar una aplicación VB .Net que realice la siguiente operación de arreglos:
• En un arreglo “A” de 10 elementos ingresar 10 números enteros.
• En otro Arreglo “B” de 10 elementos ingresar otros 10 números enteros.
• Ambos datos ingresados se mostrarán en sus respectivas listas ListtBox.
• Implementar cuatro botones de operaciones para Sumar, Restar, Multiplicar y Dividir los elementos almacenados en los arreglos, devolviendo como resultado un tercer arreglo con los resultados de las operaciones, este tercer arreglo se mostrará en otro ListBox, además el promedio de los valores del tercer arreglo.

Valora esta respuesta

Comentar

como sumar en un msflexgrid totales

Publicado por luis (3 intervenciones) el 16/04/2015 23:24:42

Hola quisiera saber como sumar totales en un datagrid o en un msflexgrig en vb 6.0 por ejemplo pagar y al ir abonando me de el resultado de cuanto fue el abono y cuanto queda restando que este conectado a una bd access gracias

Valora esta respuesta

Comentar

como sumar en un msflexgrid totales

Publicado por LUIS FRANCO (93 intervenciones) el 18/04/2015 05:46:12

Buenas noches, facil con una sentencia sql te suma todos los valores de la columna, teniendo esto como dato lo que te queda es restar dato - cantidad y te da el resultado que deseas. anexo excelente explicacion de como hacer la sumatoria.

http://deletesql.com/viewtopic.php?f=5&t=11

Sin mas por el Momento se Despide.

LUIS A FRANCO R
INGENIERO DE SISTEMAS
EMAIL: [email protected]
TLF: 0426-5821929
PIN: 79F120E2INSTAGRAM: FRANCO776TWITTER: @FRANCO776

Valora esta respuesta

Comentar

buenos dias me pueden ayudar como filtrar las fechas de un dtpicker en vb 6.0

Publicado por luis (3 intervenciones) el 27/08/2015 18:31:59

es que este codigo me filtra bien si lo ago con solo un adodc pero para filtrar los cuatro solo me filtra 3 registros por tabla
como solucionarlo muchas gracias por la ayuda

Private Sub Command1_Click()

 If DTPicker1.Value > Date Or DTPicker2.Value > Date Then

  MsgBox "Las Fechas de los Rangos no pueden ser mayores a la fecha actual", vbInformation, "CAJA"

 Else

  If DTPicker1.Value <= DTPicker2.Value Then

  Adodc1.Refresh

   Adodc2.Refresh

   Adodc3.Refresh

   Adodc4.Refresh

  Adodc1.Recordset.Filter = "fecha >= #" & DTPicker1.Value & "# and fecha <= #" & DTPicker2.Value & "#"

  Adodc2.Recordset.Filter = "fecha >= #" & DTPicker1.Value & "# and fecha <= #" & DTPicker2.Value & "#"

  Adodc3.Recordset.Filter = "fecha >= #" & DTPicker1.Value & "# and fecha <= #" & DTPicker2.Value & "#"

  Adodc4.Recordset.Filter = "fecha >= #" & DTPicker1.Value & "# and fecha <= #" & DTPicker2.Value & "#"

   If Not Adodc1.Recordset.EOF And Not Adodc1.Recordset.BOF Then

   If Not Adodc2.Recordset.EOF And Not Adodc2.Recordset.BOF Then

   If Not Adodc3.Recordset.EOF And Not Adodc3.Recordset.BOF Then

   If Not Adodc4.Recordset.EOF And Not Adodc4.Recordset.BOF Then

    Adodc1.Recordset.MoveFirst

    Adodc2.Recordset.MoveFirst

    Adodc3.Recordset.MoveFirst

    Adodc4.Recordset.MoveFirst

Do While Not Adodc1.Recordset.EOF And Not Adodc2.Recordset.EOF And Not Adodc3.Recordset.EOF And Not Adodc4.Recordset.EOF

tut = tut + Adodc1.Recordset!total

tat = tat + Adodc2.Recordset!valor

tet = tet + Adodc3.Recordset!total

tit = tit + Adodc4.Recordset!total

    tatg = tatg + tat

    tat = 0

   Text1.Text = tatg

     tutg = tutg + tut

    tut = 0

    Text3.Text = tutg

     tetg = tetg + tet

     tet = 0

     Text4.Text = tetg

    titg = titg + tit

     tit = 0

     Text2.Text = titg

     Text5 = Val(Text1) + Val(Text2) + Val(Text3) - Val(Text4) - Val(Text6)

    Adodc1.Recordset.MoveNext

    Adodc2.Recordset.MoveNext

   Adodc3.Recordset.MoveNext

   Adodc4.Recordset.MoveNext

   Loop

    Else

    MsgBox "No hay Datos para mostrar", vbInformation, "CAJA"

    Text1.Text = ""

    Text2.Text = ""

    Text3.Text = ""

    Text4.Text = ""

   Text5.Text = ""

  End If

 Else

   MsgBox "La Fecha de Inicio deber ser menor o igual que la Fecha de Finalización", vbInformation, "CAJA"

  End If

End If

End If

End If

End If

End Sub

Valora esta respuesta

Comentar

sumar todos los campos de un listbox

Publicado por calle (1 intervención) el 22/06/2016 06:11:31

si quiero sumar todos los campos de un listbox en java con netbeans como seria alguien me podra ayudar gracias

Valora esta respuesta

Comentar

Fuente

sumar todas las cantidades de un list