sábado, 16 de dezembro de 2017
DVD
ConteÚdo
DOWNLOADS
Interação
dicas aleatórias
Dicas

Como somar uma determinada coluna de um ListBox ou ComboBox
Autor:  Gilberto Silva de Paulo - The Gib@ (gibax1@hotmail.com)
Publicado:  10/02/2005
Visitas: 7258
 
Olá Amigos!!

Pela primeira vez estou colaborando com uma dica para o AtivoAccess!

Dica: Como somar uma determinada coluna de um ListBox ou ComboBox.

Descrição: Função que retorna a soma de uma coluna de um controle
ListBox/ComboBox que o desenvolvedor determinar.

Function RetValor(obj As Control, iCol As Integer) As Double

Dim OldCol As Integer
Dim vTotal As Double

OldCol = obj.BoundColumn
obj.BoundColumn = iCol
For x = 0 To obj.ListCount - 1
vTotal = vTotal + obj.ItemData(x)
Next

obj.BoundColumn = OldCol
RetValor = vTotal
End Function


Modo de Usar:

Pode-se utilizar um TextBox ou Variável ou até mesmo um MSGBOX para
guardar/apresentar o retorno desta função:
txtValor = RetValor(Lista01,3) 'retorna a soma da terceira coluna do
controle Lista01

msgBox "Total de Pedidos: " & RetValor(Combo01,7)

dblSalario = RetValor(Combo07,2)



Espero que apreciem.

Grato,

Gib@
---------------------------------------

N.E.: Nós é que agradecemos a valiosa contribuição Gib@.

  « Voltar

   Copyright © Ativo Access 2003 - 2017- Todos os direitos reservados   Política de Privacidade | Fale conosco