PepLluis : DataGridView's

Buscar un texto en una columna y seleccionar los coincidentes en un DGV

peplluis — Fri, 24 Apr 2009 09:13:00 GMT

<Pregunta>
Que tal .. igual no sé si este comentario sea para es hilo, pero tengo un problema .. tengo un datagridview pero quiero agregar un textbox fuera del datagrid, para cuando empiece a escribir vaya buscando en el datagrid y que se vaya seleccionando, sé que para ese procedimiento se juega un poco con el datatable pero aún estoy perdido ... alguién tiene una sugerencia ..

Mil gracias

<Respuesta>
... Se me ocurre algo similar a esto.

Private Articulo As New DataTable("Articulos")

Private MIDGV As New DataGridView

Private MITXT As New TextBox

Private Sub Form1_Load() Handles MyBase.Load

' Simular tabla Articulos

Articulo.Columns.Add("Codigo")

Articulo.Columns.Add("Descripcion")

Articulo.Columns.Add("Precio")

Articulo.Rows.Add("001", "Resistencia 100ohms", "0,15")

Articulo.Rows.Add("002", "Transistor 2n2234", "1,00")

Articulo.Rows.Add("003", "Microprocesador Z80", "5,40")

Articulo.Rows.Add("004", "UART 16C450", "3,45")

Articulo.Rows.Add("005", "Resistencia 200ohms", "0,12")

Articulo.Rows.Add("006", "Transistor 2n2222", "1,22")

' marco

Dim marcoDGV = New FlowLayoutPanel

marcoDGV.BorderStyle = BorderStyle.Fixed3D

marcoDGV.Width = Me.Width

marcoDGV.Height = Me.Height

' Añadir el marco con el DataGridView y textBox

marcoDGV.Controls.AddRange(New Control() {MIDGV, MITXT})

Me.Controls.Add(marcoDGV)

' Seleccionar el textbox

MITXT.Select()

' al cambiar el texto

AddHandler MITXT.TextChanged, AddressOf VerSeleccion

End Sub

' LINQ (Con VB9 'Visual Studio 2008')

' Mostrar la seleccion de los registros

' que contienen la seleccion del texto

' introducido en el textBox

Private Sub VerSeleccion()

MIDGV.DataSource = (From S In Articulo Where S.Item("Descripcion").ToString.Contains(MITXT.Text) _

Select Codigo = S.Item("Codigo"), _

Descripcion = S.Item("Descripcion") _

).ToList

End Sub

Saludos,
Pep Lluis,

Autocompletando columnas en un DataGridView

peplluis — Thu, 16 Apr 2009 08:05:00 GMT

<Pregunta>
Estoy desarrollando una TPV, y he visto muchos ejemplos donde existe un texbox para ingresar el codigo o el producto y despues agregarle al datagrid. Mi pregunta es la siguiente:
Existe la forma de escribir directamente en la grilla y que a medida de ingresar las letras me autocomplete el nombre del producto y luego con enter me trae los otros datos (codigo,precio,etc)?
Saludos

<Respuesta>

Public Class Form1

Private Articulo As New DataTable("Articulos")

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

' Simular tabla Articulos

Articulo.Columns.Add("Codigo")

Articulo.Columns.Add("Descripcion")

Articulo.Columns.Add("Precio")

Articulo.Rows.Add("001", "Resistencia 100oh", "0,15")

Articulo.Rows.Add("002", "Transistor 2n2234", "1,00")

Articulo.Rows.Add("003", "Microprocesador Z80", "5,40")

Articulo.Rows.Add("004", "UART 16C450", "3,45")

Articulo.Rows.Add("001", "Resistencia 200oh", "0,12")

Articulo.Rows.Add("002", "Transistor 2n2222", "1,22")

'Fijar la clave principal para las busquedas

Dim Claves(0) As DataColumn

Claves(0) = Articulo.Columns("Descripcion")

Articulo.PrimaryKey = Claves

'Crear la lista de cadenas para el autocompletado

For Each nombre In Articulo.Rows

CadenasAutocompletado.Add(nombre("Descripcion"))

'Dar formato a la vista de nuestro DGV

Me.DataGridView1.Columns.Add("Codigo", "Codigo")

Me.DataGridView1.Columns.Add("Descripcion", "Descripcion")

Me.DataGridView1.Columns.Add("Precio", "Precio")

End Sub

'Al editar la celda Descripcion

Private CadenasAutocompletado As New AutoCompleteStringCollection

Private Sub ControlEdicion(ByVal sender As Object, ByVal e As DataGridViewEditingControlShowingEventArgs) Handles DataGridView1.EditingControlShowing

If DataGridView1.CurrentCell.ColumnIndex = 1 Then

DirectCast(e.Control, TextBox).AutoCompleteMode = AutoCompleteMode.SuggestAppend

DirectCast(e.Control, TextBox).AutoCompleteSource = AutoCompleteSource.CustomSource

DirectCast(e.Control, TextBox).AutoCompleteCustomSource = CadenasAutocompletado

End If

End Sub

' Completar las columnas de Codigo/Precio al finalizar la edicion

Private Sub FinDeEdicion(ByVal sender As Object, ByVal e As DataGridViewCellEventArgs) Handles DataGridView1.CellEndEdit

'Añadir aqui las validaciones necesarias

Try

Dim _Articulo As DataRow = Articulo.Rows.Find(Me.DataGridView1(e.ColumnIndex, e.RowIndex).Value)

Me.DataGridView1("Codigo", e.RowIndex).Value = _Articulo("Codigo")

Me.DataGridView1("Precio", e.RowIndex).Value = _Articulo("Precio")

Catch ex As Exception

'.... Accion en caso de excepcion

End Try

End Sub

End Class

Establecer una vista Maestro Detalle, entre dos Tablas

peplluis — Tue, 10 Feb 2009 11:10:00 GMT

Más respuestas... a la pregunta:

>> Hola el ejemplo Dos Tablas y sus relaciones en un DataGridView a traves de un 'ComboBoxColumn' estuvo muy bueno pero quería saber cómo hago si solamente quiero mostrar los 2 DataTables tipo maestro detalle en el DataGridView.

' Simular tabla con los Id's Maestros

Dim Maestros As New DataTable("Maestro")

Maestros.Columns.Add("Cliente")

Maestros.Columns.Add("Nombre")

Maestros.Rows.Add("001", "Jose Javier Garcia")

Maestros.Rows.Add("002", "Jhon Smith Carter")

Maestros.Rows.Add("003", "Pierre Bertran Janvier")

Maestros.Rows.Add("004", "Jose Di Souza")

' Simular tabla con los Detalles

Dim Detalles As New DataTable("Detalle")

Detalles.Columns.Add("Cliente")

Detalles.Columns.Add("Pedido")

Detalles.Columns.Add("Fecha")

Detalles.Columns.Add("Importe")

Detalles.Rows.Add("001", "F164533", "22/01/2006", "1,111.11")

Detalles.Rows.Add("001", "A163453", "22/02/2007", "2,123.23")

Detalles.Rows.Add("003", "ZP12343", "22/03/2008", "3,456.34")

Detalles.Rows.Add("004", "PDF2333", "22/05/2009", "4,452.22")

Detalles.Rows.Add("001", "CRF5453", "22/06/2009", "1,223.33")

Detalles.Rows.Add("002", "MFF6763", "22/07/2009", "1,234.32")

Detalles.Rows.Add("002", "VRF4683", "22/08/2009", "2,123.54")

Detalles.Rows.Add("004", "ZRF7933", "22/09/2009", "1,203.00")

' Construir el DS y establecer relaciones

Dim MiDataSet As New DataSet

MiDataSet.Tables.Add(Detalles)

MiDataSet.Tables.Add(Maestros)

MiDataSet.Relations.Add("Fk", _

MiDataSet.Tables("Maestro").Columns("Cliente"), _

MiDataSet.Tables("Detalle").Columns("Cliente"))

' Contructores para los Bingdings

Dim MaestroBindingSource As New BindingSource

Dim DetalleBindingSource As New BindingSource

' Binding del "Maestro"

MaestroBindingSource.DataMember = "Maestro"

MaestroBindingSource.DataSource = MiDataSet

' Enlace del detalle entre la relacion "Fk" y el Maestro

DetalleBindingSource.DataMember = "Fk"

DetalleBindingSource.DataSource = MaestroBindingSource

'Asignar los binding source Maestro y Detalle a su DGV

Me.DataGridView1.DataSource = MaestroBindingSource

Me.DataGridView2.DataSource = DetalleBindingSource

Para probar este ejemplo solo es necesario crear una nueva solución “Windows Forms”, añadir dos DataGridView al Form1 y en el evento “Form Load” añadir el código adjunto. Puedes hacer lo mismo utilizando un 'combo' aunque he preferido dos DataGridView por simplicidad.

Espero os sea útil,
Pep Lluis,

Del Articulo al Albaran

peplluis — Tue, 30 Sep 2008 10:30:00 GMT

' A tren de una consulta de como duplicar filas de un DGV a otro

' a petición de Raul os dejo esta idea (muy básica) de como

' componer un "albarán" a partir de un DGV con los datos del articulo.

' Al realizar un doble clic sobre una fila de artículos

' se abrirá un cuadro de dialogo pidiendo la cantidad

' una vez introducida, crearemos una nueva línea en un

' DataGridView personalizado para contener la entradas

' de un albarán... evidentemente ficticio.

'Ejemplo utilizando VB2008

Imports System.Data.OleDb

Public Class Form1

'Definir objectos de conexion a base de datos

Private MiConexion As New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0; Data Source=MiBd.mdb;")

Private MiAdaptador As New OleDbDataAdapter("SELECT * FROM Articulos", MiConexion)

Private MiDataSet As New DataSet()

Private MiEnlazador As New BindingSource

'tareas en tiempo de carga de la aplicación

Private Sub Form1_Load() Handles MyBase.Load

'Abrir conexion y llenar el dataset

MiConexion.Open()

MiAdaptador.Fill(MiDataSet)

Dim commandbuilder As New OleDb.OleDbCommandBuilder(Me.MiAdaptador)

'Asignamos el origen de datos para del DataGridView

Me.DataGridView1.DataSource = MiDataSet.Tables(0)

'Cerrar la conexión

MiConexion.Close()

'Clonar o...

'Reproducir la estructura del 1er dataGrid en DataGridView2

'añadiendo una columna para la cantidad y otra para totalizar

Me.DataGridView2.ColumnCount = Me.DataGridView1.ColumnCount + 1

Me.DataGridView2.Columns(0).Name = "Cantidad"

Me.DataGridView2.Columns(0).HeaderText = "Cantidad"

For x = 1 To Me.DataGridView1.ColumnCount - 1

Me.DataGridView2.Columns(x).Name = Me.DataGridView1.Columns(x).Name

Me.DataGridView2.Columns(x).HeaderText = Me.DataGridView1.Columns(x).HeaderText

Me.DataGridView2.Columns(DataGridView1.ColumnCount).Name = "Total"

Me.DataGridView2.Columns(DataGridView1.ColumnCount).HeaderText = "Total"

Me.DataGridView2.AllowUserToAddRows = False

End Sub

' Al hacer doble click sobre la fila del articulo esta se duplica en el segundo grid

Private Sub DataGridView1_DoubleClick(....) Handles DataGridView1.DoubleClick

If DataGridView1.SelectedRows.Count > 0 Then

'Añadir los valores obtenidos de la fila seleccionada

'al segundo datagridview

Dim Unidades = InputBox("Numero de unidades para :" _
+ DataGridView1.SelectedRows.Item(0).Cells(1).Value, "Cantidad")

If Unidades.Length > 0 Then

Me.DataGridView2.Rows.Add( _

FilaAlbaran( _

Unidades, _

DataGridView1.SelectedRows.Item(0)) _

)

End If

End Sub

' Componer la nueva entrada al DGV del albaran

Function FilaAlbaran(ByVal cantidad As String, ByVal fila As DataGridViewRow) As String()

'Dimensionar el array al tamaño de columnas del DGV + una de total

Dim Contenido(Me.DataGridView1.ColumnCount) As String

'La primera columna corresponde a la cantidad

Contenido(0) = cantidad

'Rellenar el contenido con el valor de las celdas de la fila

For Ndx = 1 To Contenido.Length - 2

Contenido(Ndx) = fila.Cells(Ndx).Value

'Calcular y mover a la columna total el resultado de la cantidad por el precio

Contenido(Contenido.Length - 1) = cantidad * Contenido(Contenido.Length - 2)

Return Contenido

End Function

End Class

Copiar o mover filas de un DataGridView a otro.

peplluis — Fri, 19 Sep 2008 02:54:00 GMT

Atendiendo a la consulta de Javier..

Hola Pep Lluis, he leído varias veces las soluciones que das en los diferentes espacios y foros, y quizá esta pregunta te la hayan hecho ya, pero la verdad ando algo atorado con este problemilla... ahí va :
La idea es tener 2 datagrid’s : el1er Datagrid : Muestra el resultado de una búsqueda, de este datagrid deben seleccionar 1 o varios registros y deberán pasarse al 2do Datagrid : Que debe mostrar los registros seleccionados en el 1er datagrid.Si paso un registro del Datagrid 1 al 2, el registro desaparecerá del 1 y aparecerá en el 2, y viceversa.

____

Supongo que existen diversas formas de conseguir lo mismo y sin duda más sofisticadas pero como siempre buscando la simplicidad y en pro de la comprensión os muestro el siguiente ejemplo evitando a exprofeso estructuras complejas difíciles de seguir.

Para poder tener visión sobre dos maneras distintas de hacerlo, he decido mostrar el primer DGV unido a una estructura de datos y el segundo “clonado” pero sin estar enlazado a ninguna BD, por lo tanto deberéis situar el ejemplo como un punto de partida, en ningún caso como una solución concreta y mucho menos pensando en dos DGV’s enlazados a datos y con relaciones… pues la cosa puede complicarse ligeramente y como os digo no es el propósito ni alcance de este corto.

Tampoco contempla en qué orden y como se ordenan los registros o filas que se copian o mueven de un lado a otro J, también he obviado procesar la excepciones para concentrarnos solo en el código que puede interesarnos… por lo que no está libre de ‘errores’.

Para utilizar este código tienes que crear un nuevo proyecto “Windows Form Application” desde el menú de Visual Basic y arrastrar y soltar dos DGV’s, dos CheckBox y dos Botones de la ventana de herramientas, a continuación solo debes copiar y pegar este código substituyendo el generado por el ‘wizard’. También debes crear una BD de Access en la carpeta ‘debug’ conteniendo la tabla de la BD referenciada en la cadena de conexión, para poder leer tanto código comodamente,.me he tomado la libertad de eliminar las firmas de las funciones, por lo que tendréis de substituir el “(….)” Por el ‘ByVal sender As System.Object, ByVal e As System.EventArgs’ correspondiente en VB2005 o dejarlo simplemente () en VB2008.

Espero que os sea útil,
Saludos!
Pep Lluis,

Imports System.Data.OleDb

Public Class Form1
    '
    'Definir objectos de conexion a base de datos
    Private MiConexion As New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0; Data Source=TuBd.mdb;")
    Private MiAdaptador As New OleDbDataAdapter("SELECT * FROM TuTabla", MiConexion)
    Private MiDataSet As New DataSet()
    Private MiEnlazador As New BindingSource

    '
    'tareas en tiempo de carga de la aplicación
    Private Sub Form1_Load(….) Handles MyBase.Load
        'Abrir conexion y llenar el dataset
        MiConexion.Open()
        MiAdaptador.Fill(MiDataSet)
        Dim commandbuilder As New OleDb.OleDbCommandBuilder(Me.MiAdaptador)
        'Asignamos el origen de datos para del DataGridView
        Me.DataGridView1.DataSource = MiDataSet.Tables(0)
        'Cerrar la conexión
        MiConexion.Close()
        'Clonar o...
        'Reproducir la estructura del 1er dataGrid en DataGridView2
        Me.DataGridView2.ColumnCount = Me.DataGridView1.ColumnCount
        For x = 0 As Integer To Me.DataGridView1.ColumnCount – 1
            Me.DataGridView2.Columns(x).Name = Me.DataGridView1.Columns(x).Name
            Me.DataGridView2.Columns(x).HeaderText = Me.DataGridView1.Columns(x).HeaderText
        Next
        Me.CheckBox1.Checked = True     'por defecto al iniciar seleccionamos
        Me.CheckBox2.Checked = False    'Operaciones origen DGV1, destino DGV2
    End Sub
    '
    'Boton Copiar
    Private Sub Btn_Copiar_Click(….) Handles Btn_Copiar.Click
        'determinar la direccion de copiar entre DGV1 y 2
        If CheckBox1.Checked Then

            'Comprobar que existen columnas seleccionadas
            If DataGridView1.SelectedRows.Count > 0 Then
                CopiarSeleccionadosDGV1aDGV2()
            End If
        Else
            If DataGridView2.SelectedRows.Count > 0 Then
                CopiarSeleccionadosDGV2aDGV1()
            End If
        End If
    End Sub
    '
    'Boton Mover
    Private Sub Btn_Mover_Click(….) Handles Btn_Mover.Click
        'determinar la direccion de mover entre DGV1 y 2
        If CheckBox1.Checked Then
            'Comprobar que existen columnas seleccionadas
            If DataGridView1.SelectedRows.Count > 0 Then
                MoverSeleccionadosDGV1aDGV2()
            End If
        Else
            If DataGridView2.SelectedRows.Count > 0 Then
                MoverSeleccionadosDGV2aDGV1()
            End If
        End If
    End Sub
    '
    'Copiar los elementos seleccionados del DGV1 al DGV2
    Sub CopiarSeleccionadosDGV1aDGV2()
        For Each Seleccion As DataGridViewRow In DataGridView1.SelectedRows
            Me.DataGridView2.Rows.Add(ObtenerValoresFila(Seleccion))
        Next
        DataGridView1.ClearSelection()
    End Sub
    '
    'Copiar los elementos seleccionados del DGV1 al DGV2
    Sub CopiarSeleccionadosDGV2aDGV1()
        For Each Seleccion As DataGridViewRow In DataGridView2.SelectedRows
            Me.MiDataSet.Tables(0).Rows.Add(ObtenerValoresFila(Seleccion))
        Next
        DataGridView2.ClearSelection()
    End Sub
    '
    'Mover los elementos seleccionados del DGV1 al DGV2
    Sub MoverSeleccionadosDGV1aDGV2()
        'Para cada fila seleccionada
        For Each Seleccion As DataGridViewRow In DataGridView1.SelectedRows
            'Añadir los valores obtenidos de la fila seleccionada
            'al segundo datagridview
            Me.DataGridView2.Rows.Add(ObtenerValoresFila(Seleccion))
            'eliminar la fila del DataGridView origen
          DataGridView1.Rows.Remove(Seleccion)
        Next
    End Sub
    '
    'Mover los elementos seleccionados del DGV1 al DGV2
    Sub MoverSeleccionadosDGV2aDGV1()
        'Para cada fila seleccionada
        For Each Seleccion As DataGridViewRow In DataGridView2.SelectedRows
            'Añadir los valores obtenidos de la fila seleccionada
            'al segundo datagridview
            Me.MiDataSet.Tables(0).Rows.Add(ObtenerValoresFila(Seleccion))
            'eliminar la fila del DataGridView origen

            DataGridView2.Rows.Remove(Seleccion)
        Next
    End Sub
    '
    'Obtener el contenido de la fila en un string()
    'con el proposito de copiarlo o moverlo
    '
    'Recibe el 'row' y retorna su contenido en un array tipo string
    Function ObtenerValoresFila(ByVal fila As DataGridViewRow) As String()
        'Dimensionar el array al tamaño de columnas del DGV
        Dim Contenido(Me.DataGridView1.ColumnCount - 1) As String
        'Rellenar el contenido con el valor de las celdas de la fila
        For Ndx As Integer = 0 To Contenido.Length – 1
            Contenido(Ndx) = fila.Cells(Ndx).Value
        Next
        Return Contenido
    End Function
    '
    'Seleccionar la direccion en que se efectuara la copia
    Private Sub CheckBox1_CheckedChanged(….) Handles CheckBox1.CheckedChanged
        CheckBox2.Checked = Not CheckBox1.Checked
    End Sub
    Private Sub CheckBox2_CheckedChanged(….) Handles CheckBox2.CheckedChanged
        CheckBox1.Checked = Not CheckBox2.Checked
    End Sub
End Class

Actualizar una Tabla de una BD SQL utilizando un DataGridView

peplluis — Wed, 23 Jul 2008 16:22:00 GMT

A menudo en los foros aparece la pregunta de cómo actualizar una BD utilizando un DataGridView. Aquí os dejo una forma de realizarlo. Espero que os sea útil.

Saludos,
Pep Lluis,

'
'Definir enlace a datos y objetos del form

Private MiConexion As New SqlConnection( _

"Datasource=.\SQLEXPRESS;AttachDbFilename=C:\Temp\NORTHWND.MDF" + _
";Integrated Security=True;Connect Timeout=30;User Instance=True")
Private MiAdaptador As New SqlDataAdapter("SELECT * FROM Shippers", MiConexion)
Private MiDataSet As New DataSet()

Private MiEnlazador As New BindingSource

Private MidataGriView As New DataGridView

Private BotonGuardar As New Button

'En tiempo de carga...
Private Sub Form1_Load(…..) Handles MyBase.Load
MessageBox.Show(My.Computer.FileSystem.CurrentDirectory)

'Poner titulo a la aplicacion

Me.Text = "Mantenimiento de Shippers"

'Añadir DataGriView

MidataGriView.Dock = DockStyle.Top

Me.Controls.Add(MidataGriView)

BotonGuardar.Dock = DockStyle.Bottom

'Añadir Boton de Guardar

BotonGuardar.Text = "Guardar Cambios"

Me.Controls.Add(BotonGuardar)

AddHandler BotonGuardar.Click, AddressOf Guardar
Dim commandbuilder As New SqlCommandBuilder(Me.MiAdaptador)

MiConexion.Open()

MiAdaptador.Fill(MiDataSet)

MiEnlazador.DataSource = MiDataSet.Tables(0)

MidataGriView.DataSource = MiEnlazador

End Sub

'Actualizar la tabla enlazada con el DataGridView

Private Sub Guardar(…..)
Me.MiAdaptador.Update(CType(Me.MiEnlazador.DataSource, DataTable))

End Sub

Como puedo posicionar el ‘CurrentCell’ de mi DataGridView

peplluis — Tue, 22 Jul 2008 16:24:00 GMT

Que nadie se lo tome a mal! Pero después de reírnos un rato, nos encontramos a menudo perdiendo la tarde en búsqueda de cómo realizar las cosas más sencillas. Intentando dar respuesta a la repetida pregunta de cómo posicionarnos dentro de nuestro DataGridView… Ahí va la respuesta:

Dim Columna As Integer = 0, Fila As Integer = 0
Me.DataGridView1.CurrentCell = _
Me.DataGridView1(Columna, Fila)

La de tumbos que a veces damos, porque creo que difícil no es! J
Saludos,
Pep Lluis,

De Excel a Texto pasando por un DataGridView

peplluis — Mon, 09 Jun 2008 22:14:00 GMT

''
'' Crear un archivo de texto con el contenido
'' de las celdas de un DataGridView de los
'' datos cargados de una hoja de excel.
''

Imports System.Data.OleDb

Public Class Form1
    'Definir conexion,adaptador y Dataset
    Private MiConexion As New OleDbConnection _
    ("Provider=Microsoft.Jet.OLEDB.4.0;" + _
     "Extended Properties = 'Excel 8.0';" + _
     "Data Source=|DataDirectory|\libro1.xls;")
    Private MiAdaptador As New OleDbDataAdapter("SELECT * FROM [Hoja1$]", MiConexion)
    Private MiDataSet As New DataSet()

    Private Sub Form1_Load() Handles MyBase.Load
        'Abrir y llenar el DGV con la hoja de excel
        MiConexion.Open()
        MiAdaptador.Fill(MiDataSet)
        Me.DataGridView1.DataSource = MiDataSet.Tables(0)
        'Crear un documento de texto
        Dim ATexto = IO.File.CreateText("MiExport.txt")
        For Each row As DataGridViewRow In Me.DataGridView1.Rows
            For Each col As DataGridViewColumn In Me.DataGridView1.Columns
                'Añadir una entrada por celda
                ATexto.Write(row.Cells(col.Index).Value)
                'separar con un tabulador
                ATexto.Write(Chr(Keys.Tab))
            Next
            'Añadir una linea por fila
            ATexto.WriteLine()
        Next
        ATexto.Close()
    End Sub

End Class

:-)

Totalizar una Columna en un DataGridView

peplluis — Thu, 05 Jun 2008 11:52:00 GMT

Siguiendo la consulta de Jesús Pérez, preguntando como totalizar la suma de una columna de un DataGridView, poniendo como ejemplo recorrer las filas de una columna y efectuar las operaciones que consideremos oportunas. Tambien como entrada del post os dejo un aporte gracias a Enrique Martinez, que introduce la funcion explicita y correcta para efectuar sumas en encolumnados de DataGridView's...

Saludos,
Pep Lluis,

Aqui teneis el enlace : http://msdn.microsoft.com/es-es/library/system.data.datatable.compute.aspx

        ' Computar la suma de la columna 'Capital'
        Dim total As Object = dt.Compute("SUM(Capital)", Nothing)
        ' visualizar el resultado en la barra
        Me.Text = total.ToString

A continuacion... recorriendo las filas de la Columna...

.. Handles Me.Load
'Disparar el calculo cada vez que editamos
AddHandler Me.dataGridView1.CellEndEdit, AddressOf Sumar
'Calcular el contenido inicial de la columna
Me.dataGridView1.Columns(3).HeaderText = "Salario"
Me.dataGridView1.AllowUserToAddRows = False
Me.dataGridView1.CurrentCell = dataGridView1.Rows(0).Cells(3)
Sumar()
..
End Sub
'
' Sumar las cantidades de una columna
'
Private Columna As Integer = 3

Sub Sumar()
Dim Total As Integer = 0      'Acumular el total
Dim UltimaFila As Integer = Me.dataGridView1.Rows.Count
'Solo calculamos si modificamos la columna definida
If Me.dataGridView1.CurrentCell.ColumnIndex = Columna Then
   For Each row As DataGridViewRow In Me.dataGridView1.Rows
   If row.Index < UltimaFila - 1 Then Total += row.Cells(Columna).Value
   Next
   Me.dataGridView1.Rows(UltimaFila - 1).Cells(3).Value = Total.ToString
  End If
End Sub

Pd. No dudeis en pedirme el proyecto completo si estais interesados, o si quereis comentar alguna parte del codigo.

Dos Tablas y sus relaciones en un DataGridView a traves de un 'ComboBoxColumn'

peplluis — Wed, 04 Jun 2008 07:41:00 GMT

Ejemplo de cómo añadir una columna de selección unida a una tabla de ‘maestros’ y relacionada con su identificador en la tabla ‘detalles’, en casos reales solo teneis que substituir las tablas por los ‘sources’ de las tablas en vuestra BD.
Me gustara recibir vuestros comentarios... ;-)

Imports System
Imports System.Data

Public Class Form1
    Private dataGridView1 As New DataGridView()

    Private Sub Form1_Load() Handles Me.Load
        '
        ' Simular tabla con los Detalles
        '
        Dim Detalles As New DataTable("Detalle")
        Detalles.Columns.Add("Actividad")
        Detalles.Columns.Add("Nombre")
        Detalles.Columns.Add("Telefono")
        Detalles.Rows.Add("001", "Pep Lluis", "231.321.321")
        Detalles.Rows.Add("002", "Luis Franco", "Internacional")
        Detalles.Rows.Add("003", "Marc Rubiño", "111.222.333")
        Detalles.Rows.Add("004", "Javier Conesa", "91.244.32.32")
        '
        ' Simular tabla con los Id's Maestros
        '
        Dim Maestros As New DataTable("Maestro")
        Maestros.Columns.Add("Actividad")
        Maestros.Columns.Add("Descripcion")
        Maestros.Rows.Add("001", "POgramaor")
        Maestros.Rows.Add("002", "Torero")
        Maestros.Rows.Add("003", "Banderillero")
        Maestros.Rows.Add("004", "ANALista")

        '
        ' Construir el DS y establecer relaciones
        '
        Dim MiDataSet As New DataSet
        MiDataSet.Tables.Add(Detalles)
        MiDataSet.Tables.Add(Maestros)
        MiDataSet.Relations.Add("Actividad", _
              MiDataSet.Tables("Maestro").Columns("Actividad"),_
              MiDataSet.Tables("Detalle").Columns("Actividad"))
       '
        ' Añadir una columna 'ComboBox'
        ' Conteniendo la tabla 'Maestro'
        '
        Dim MiBoxColumn As New DataGridViewComboBoxColumn
        MiBoxColumn.DisplayMember = "Descripcion"
        MiBoxColumn.ValueMember = "Actividad"
        MiBoxColumn.DataPropertyName = "Actividad"
        MiBoxColumn.DataSource = MiDataSet.Tables("Maestro")
        Me.dataGridView1.Columns.Add(MiBoxColumn)
        '
        ' Visualizar el DGV con la columna combo 'Maestro'
        ' y las columnas y tablas de 'Detalle'
        '
        Me.dataGridView1.Dock = DockStyle.Fill
        Me.Controls.Add(dataGridView1)
        Me.dataGridView1.DataSource = MiDataSet.Tables("Detalle")

   End Sub
End Class

Si os interesa en determinadas situaciones podeis "camuflar" el combo para que tenga un aspecto como este :

De esta forma no podran modificar ni desplegar las opciones y su aspecto sera como el de cualquier otra columna.
Ajustando las propiedades :

MiBoxColumn.DisplayStyle = DataGridViewComboBoxDisplayStyle.Nothing
MiBoxColumn.ReadOnly = True

Saludos,
Pep Lluis,

PD. Agradecemos la participacion de los actores secundarios (Javier, Luis i Marc), aunque tengo mis dudas sobre si son personajes reales o ficticios ;-)

DataGridView... Quiero saltar de de Columna!!! no de fila

peplluis — Mon, 30 Oct 2006 08:12:00 GMT

Muchos de nosotros aprovechamos el control DataGridView como visualizador, sin embargo además puede ser una excelente ayuda para añadir nuevas filas a nuestras estructuras de datos.

En un proceso donde la información se estructura mediante columnas y líneas, el objetivo es introducir nuevas filas con la mayor facilidad posible, es entonces cuando nos percatamos de que por defecto el DataGridView actúa de una forma un tanto inconveniente para nuestro cometido. Cada vez que pulsamos ‘enter’ ya sea en modo ‘edición’ el efecto es que nos crea una nueva fila desplazándose acto seguido a la primera celda de la misma (como en Excel), entonces nos obliga a utilizar los cursores para reubicar el ‘foco’ a la celda donde va a continuar nuestra próxima entrada. Realmente es un inconveniente, pues nos hace perder muchísimo tiempo empleándolo en pulsaciones simplemente inútiles.

Dicho esto, para poder introducir datos de izquierda a derecha tal y como estamos acostumbrados en la mayoría de situaciones en la que manejamos información, podemos recurrir a varios recursos, os proponemos ver como anulando las funciones ‘ProcessDialogKey’ ‘OnKeyDown’ y rescribiendo el código para que la pulsación de una tecla ‘enter’ sea substituida por un ‘tab’ utilizando un ‘sendkeys’, pudiendo conseguir una mejora increíble en la funcionalidad. También en una segunda propuesta os introducimos a como manejar el direccionamiento de selección de las ‘celdas’ de un DataGridView capturando las pulsaciones en el ‘PreProcessMessage’, ambas heredando la funcionalidad DataGridView y añadiendo a esta personalidad propia.

Esperamos que os sea de utilidad… solo tenéis que ¡cortar y pegar!

Pep Lluis y Rafael.

'' (c) Pep Lluis & Rafa Vargas

'' Ambos ejemplos vienen derivados de una inquietud compartida en

'' el ultimo Code Camp del Escorial en el 2006 entre Rafa Vargas y

'' Pep Lluis... no cabe duda del lema 'Comparte y Aprenderas'.

Public Class form1

Private WithEvents _MiDGView1 As New DgvPlus 'Mi DGV, que traduce el 'Enter' en 'Tab'

Private WithEvents _MiDGView2 As New MiDGView 'Mi DGV, que controla la posicion de la celda actual

' al lanzar nuestro form (en el momento de carga)

Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load

'Construir el primer DGV

_MiDGView1.Dock = DockStyle.Left 'Acoplarlo a la izquierda

_MiDGView1.ColumnCount = 4 'con cuatro columnas

_MiDGView1.AutoSizeColumnsMode = DataGridViewAutoSizeColumnsMode.Fill 'Ajustarlo al tamaño

_MiDGView1.Columns(0).HeaderText = "Caso A" 'Etiquetar columna

Me.Controls.Add(_MiDGView1) 'Añadirlo al form

'Construir el segundo DGV

_MiDGView2.Dock = DockStyle.Right

_MiDGView2.ColumnCount = 4

_MiDGView2.AutoSizeColumnsMode = DataGridViewAutoSizeColumnsMode.Fill

_MiDGView2.Columns(0).HeaderText = "Caso B"

Me.Controls.Add(_MiDGView2)

'La ventana (aspecto)

Me.Width = Me._MiDGView1.Width + Me._MiDGView2.Width + 25 'Ajustar el ancho del form

Me.Text = "Pep/Rafa DataGridView" 'Ponerle titulo

End Sub

End Class

' Nuestra personalizacion para MiDGView ---------------------------------------------------------------

Public Class MiDGView

Inherits DataGridView 'Heredar del DataGridView

'Prepocesar mensajes

Public Overrides Function PreProcessMessage(ByRef msg As System.Windows.Forms.Message) As Boolean

If msg.Msg = 257 And msg.WParam.ToInt32 = 13 Then 'Si es 'KeyDown' y 'Enter'

Dim MiCol As Integer = 0

Dim MiFil As Integer = Me.CurrentCell.RowIndex - 1

If Me.CurrentCell.ColumnIndex < Me.ColumnCount - 1 Then 'Si noSalimos del limite

MiCol = Me.CurrentCell.ColumnIndex + 1 'Siguiente columna

End If

If MiFil > -1 Then Me.CurrentCell = Me(MiCol, MiFil) 'Posicionar columna

End If

Return MyBase.PreProcessMessage(msg)

End Function

End Class

' Nuestra personalizacion para DGVPlus ---------------------------------------------------------------

Public Class DgvPlus

Inherits DataGridView 'Heredar del DataGridView

'en el 'processDialogKey'... cuando estamos en edicion

Protected Overrides Function ProcessDialogKey(ByVal keyData As System.Windows.Forms.Keys) As Boolean

If keyData = Keys.Enter Then 'Si es 'enter'

SendKeys.Send(Chr(Keys.Tab)) 'Enviar un 'Tab'

Return True 'Marcar como procesado

Else 'en caso contrario

Return MyBase.ProcessDialogKey(keyData) 'devolver KeyData

End If

End Function

' en 'OnKeyDown'... cuando no estamos en edicion

Protected Overrides Sub OnKeyDown(ByVal e As System.Windows.Forms.KeyEventArgs)

If e.KeyData = Keys.Enter Then 'Si es 'enter'

SendKeys.Send(Chr(Keys.Tab)) 'Enviar un 'Tab'

Else

MyBase.OnKeyDown(e) 'Devolver el KeyEventArgs

End If

End Sub

End Class

Copiar filas entre dos DataGridView

peplluis — Fri, 20 Oct 2006 07:08:00 GMT

Siguiendo la discusión en los foros MSDN de VB en Español, os adjunto una propuesta de como copiar una fila entre DataGridView's. Existen muchisimas formas de hacerlo y os animo a discutirlas aqui. Os dejo un ejemplo simple, para animaros a proponer ejemplos mas sutiles.

Como siempre prodeis descargar DataGridView2 en 'attachments'

Un Abrazo,
Pep Lluis,