Sección vb.net

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

42 - Sumar columna en un DatagridView

Sencillo ejemplo en vb.net para sumar una columna determinada en un control DataGridview

Para el ejemplo colocar en un formulario dos controles Button, un control Label y un Datagridview

vista previa del formulario para sumar la columna

Código fuente

Option Explicit On Option Strict On Public Class Form1 Private Sub Form1_Load( _ ByVal sender As System.Object, _ ByVal e As System.EventArgs) Handles MyBase.Load Me.Text = "Sumar columnas en DataGridview" Button1.Text = "Sumar" Button2.Text = "Cargar valores" End Sub ' función que retorna el total Private Function Sumar( _ ByVal nombre_Columna As String, _ ByVal Dgv As DataGridView) As Double Dim total As Double = 0 ' recorrer las filas y obtener los items de la columna indicada en "nombre_Columna" Try For i As Integer = 0 To Dgv.RowCount - 1 total = total + CDbl(Dgv.Item(nombre_Columna.ToLower, i).Value) Next Catch ex As Exception MsgBox(ex.Message.ToString) End Try ' retornar el valor Return total End Function Private Sub Button1_Click( _ ByVal sender As System.Object, _ ByVal e As System.EventArgs) Handles Button1.Click ' muostrar el total de la suma en el control Label para la columna llamada Costo Label1.Text = "Total :" & Format(Sumar("costo", DataGridView1), "c").ToString End Sub Private Sub Button2_Click( _ ByVal sender As System.Object, _ ByVal e As System.EventArgs) Handles Button2.Click Randomize() With DataGridView1 ' Agregar dos columnas .Columns.Clear() .Columns.Add("Id", "Id Producto") .Columns.Add("Costo", "Costo") ' agregar 10 filas .RowCount = 10 ' añadir un valor para el campo ID For Filas As Integer = 0 To .RowCount - 1 .Item(0, Filas).Value = Filas Next ' añadir un valor aleatorio para el campo Costo For Filas As Integer = 0 To .RowCount - 1 .Item(1, Filas).Value = Format(CInt(Rnd() * 2500), "c") Next End With End Sub End Class

Recursos vb6 - relacionados

Sumar columna en un ListView

Buscar en Recursos vb