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

441 - Modificar y guardar FlexGrid

Ejemplo para modificar un control Microsoft hierarchical Flexgrid, y guardar el registro o fila modificada, en una tabla de Access

El proyecto usa una bd access y Ado para conectarse

Para editar el Flexgrid usa un módulo de clase, que permite modificar el flexgrid mediante un control textbox que se coloca en la celda activa que se va a modificar . Para una columna de tipo fecha, usa un control DtPicker, y para las columnas de tipo boolean, se modifica la celda directamente asignándole el valor Si/No al hacer un clic

Para usar el módulo , antes se debe indicar lo siguiente :

Primero enlazar el Hierarchical flexgrid con el recordset

Set MSHFlexGrid1.DataSource = Recordset

Luego, se debe especificar como parámetro al método Iniciar del módulo los siguientes datos

Un control dtPicker ( se incluye desde la ficha componentes : Microsoft Windows Common Controls 2-6.0) .
El control Microsoft Hierarchical FlexGrid
El formulario actual

Call oEditFlex.Iniciar(MSHFlexGrid1, Me, DTPicker1)

Para configurar las columnas, se debe usar el método SetColumnas, indicando el índice, el tipo de dato ( para campos de texto, de fecha, booleanos, solo númericos y campo de tipo moneda), y también si la columna estará o no bloqueda

Por ejemplo :

' nueva instancia Set oEditFlex = New clsFlex With oEditFlex .EditMode = eClick ' inicia Call .Iniciar(MSHFlexGrid1, Me, DTPicker1) ' columna 0 ( no se puede editar) Call .SetColumnas(0, enumber, True) ' columna 1 , tipo string, se puede editar Call .SetColumnas(1, estring, False) ' columna 2 , tipo numerico, se puede editar Call .SetColumnas(2, enumber, False) ' columna 3 , tipo moneda, se puede editar Call .SetColumnas(3, ecurrency, False) ' columna 4 , tipo boolean, se puede editar Call .SetColumnas(4, eBoolean, False) ' columna 5 , tipo fecha, se puede editar Call .SetColumnas(5, eDate, False) End With

Luego, al editar y modificar un valor, se dispara un evento para validar el cambio . Si no se cancela la validación, se instancia un recordset y se modifican los datos , para guardar la celda editada del Hierarchical flexgrid en la bd

Nota: asi como está el ejemplo, solo funciona con una tabla que tenga un id único

Formulario

Descargar

Recursos vb 6.0 - Enlaces relacionados

Buscar en Recursos vb