Sección de códigos, trucos y ejemplos para visual basic

Clic para descargar Velneo Open source Software - Plataforma para el desarrollo de aplicaciones sobre base de datos

479 - Sumar Columna en MsFlexGrid

Simple Código fuente de ejemplo para sumar una columna en un control MsFlexGrid o Hierarchical Flex

Formulario

El ejemplo es muy simple, y recorre las filas del Msflexgrid, para una columna especifica, y luego obtener los valores con TextMatrix para sumar los valores

Colocar el código fuente en un formulario, con un control command1 y un Msflexgrid1 ( Indicar el índice de la columna)

Option Explicit Function Sumar(MSFlexGrid As Object, _ Columna As Integer) As Currency On Error GoTo error_function With MSFlexGrid Dim total As Currency Dim i As Long If Columna > .Cols Then MsgBox "Columna no válida", vbExclamation Exit Function End If ' recorrer las filas de la grilla For i = 1 To .Rows - 1 ' comprobar que el dato es de tipo numérico con la función IsNumeric de vb If IsNumeric(.TextMatrix(i, Columna)) Then ' Sumar, obteniendo el valor de la celda con TextMatrix total = total + .TextMatrix(i, Columna) End If Next ' retornar el total de la suma a la función Sumar = total End With Exit Function error_function: MsgBox Err.Description, vbCritical, "error al sumar" End Function Private Sub Command1_Click() Dim dtotal As Currency dtotal = Sumar(MSFlexGrid1, 2) ' formatear el resultado y mostrarlo MsgBox FormatCurrency(dtotal, 2), vbInformation End Sub Private Sub Form_Load() ' Cargar datos en el MsFlexgrid Randomize With MSFlexGrid1 .FixedCols = 0 .FormatString = "Id|Producto|Precio" Dim i As Integer For i = 1 To 10 .AddItem (i) & vbTab & _ ("Producto ") & i & vbTab & _ (FormatCurrency(Round(Rnd * 100), 2)), i Next ' ancho para los encabezados .ColWidth(0) = 700 .ColWidth(1) = 2500 .ColWidth(2) = 1500 End With Command1.Caption = "Sumar" End Sub

Buscar en Recursos vb