Dudas con Data grid

[pabje]

Hola a Todos

Solo queria saber si en el data grid se puede ingresar directamente datos(como una matriz donde se ingresa directamente valores en las columnas) sin que el data grid estee conectado a un control .

Si no se puede ingresar directamente datos en el datagrid , ¿que control del visual basic 6.0 me permite ingresar datos directamete en ella ?

Gracias a todos.

[Avellaneda]

Iniciado por pabje

Hola a Todos

Solo queria saber si en el data grid se puede ingresar directamente datos(como una matriz donde se ingresa directamente valores en las columnas) sin que el data grid estee conectado a un control .

Si no se puede ingresar directamente datos en el datagrid , ¿que control del visual basic 6.0 me permite ingresar datos directamete en ella ?

Gracias a todos.

Bueno, con el control DataGrid no puedes hacer eso, pues siempre debe estar enlazado a un control data o recordset. Si lo enlazas a un recordset desconectado, que se puede, no podrás escribir nada en él.

Lo que quieres se podría hacer con un control MSFlexGrid o MSHFlexGrid controlando en sus eventos KeyPress y KeyDown las teclas pulsadas.

[pabje]

Hola nuevamente

Gracias Avellaneda por la respueta.

Ahora mire por ahi que hay un control llamado datagridview. Lo que no se si visual basic 6.0 lo tiene.

Si en visual basic 6.0 lo puedo usar, te pregunto:

¿El datagridview me permite ingresar datos directamente en él sin que estee enlazado a un recordset.?

[Avellaneda]

Hola,

El DataGridView es un componente de .NET y no se puede usar en VB6.

[pabje]

Hola Avellaneda

Con algunos de estos controles MSFlexGrid o MSHFlexGrid ¿ yo puedo crear una matriz dinamica de ingresos de datos?

En otras palabras una matriz que permita variar(incrementar) el numero de filas a medidia que yo ingreso los datos, ya que los datos que ingresos en esta matriz son variables y no fijos.

[Avellaneda]

Iniciado por pabje

Hola Avellaneda

Con algunos de estos controles MSFlexGrid o MSHFlexGrid ¿ yo puedo crear una matriz dinamica de ingresos de datos?

En otras palabras una matriz que permita variar(incrementar) el numero de filas a medidia que yo ingreso los datos, ya que los datos que ingresos en esta matriz son variables y no fijos.

Hola pabje,

Claro que se puede, controlando como te dije los eventos KeyPress y KeyDown del Grid.

Te pongo un ejemplo que creo que ya he expuesto alguna vez aquí:

Código:

Private Sub MSFlexGrid1_KeyPress(KeyAscii As Integer)
With MSFlexGrid1
    Select Case KeyAscii
    Case 32 To 127
        ' solo se admiten caracteres imprimibles
        .Text = .Text & Chr(KeyAscii)
    End Select
End With
End Sub

Private Sub MSFlexGrid1_KeyDown(KeyCode As Integer, Shift As Integer)
With MSFlexGrid1
    Select Case KeyCode
    Case vbKeyDelete    ' Tecla [Supr] borramos toda la celda
        .Text = ""
    Case vbKeyBack      ' Tecla [Retroceso] borramos el último caracter
        If Len(.Text) > 0 Then
            .Text = Left(.Text, Len(.Text) - 1)
        End If
    Case vbKeyTab, vbKeyReturn   ' Teclas [Tab] o [Enter]
        If .Col = .Cols - 1 Then
            ' si es la última columna pasamos al principio de la siguiente fila
            If .Row = .Rows - 1 Then
                ' es la última fila añadimos una nueva
                .Rows = .Rows + 1
                .TopRow = .Row
            End If
            .Row = .Row + 1
            .Col = 0
            .LeftCol = 1
            ' si no está visible
            If .Row < .Rows - 1 Then
                If .RowIsVisible(.Row + 1) = False Then .TopRow = .Row
            End If
        Else
            .Col = .Col + 1
        End If
    End Select
End With
End Sub

Como podrás comprobar, combinando los caracteres pulsados, puedes hacer casi de todo.

Después con otros eventos como EnterCell y LeaveCell puedes hacer mas vistosas la entrada de datos.

[pabje]

HOLA Avellaneda

He probado la matriz dinamica con los controles que me diste MSFlexGrid o MSHFlexGrid Y me anduvo muy bien.

Queria preguntarte lo siguiente:

1-) ¿Como borrar una fila de la matriz dinamica. ya sea la ultima o una del medio?
2-) ¿Como escribir en el codigo una tecla combinada? Por ejemplo para borrar
una fila, el usuario presione junto Shift con Supr.

En la primera pregunta , borrar la ultima fila , tal vez no se tan dificil, solo pregunto si es la ultima fila y resto 1 a la propieda rows del control.
Pero borrar una del medio, puede ser mas dificil, tal vez tenga simular que borro la del medio, haciendo un desplazamiento del contenido de las filas(con datos) y borrando realmente la ultima fila, ya que solo cuento con la propiedad Rows.

Gracias Nuevemente Avellaneda.

[Avellaneda]

Iniciado por pabje

HOLA Avellaneda

He probado la matriz dinamica con los controles que me diste MSFlexGrid o MSHFlexGrid Y me anduvo muy bien.

Queria preguntarte lo siguiente:


En la primera pregunta , borrar la ultima fila , tal vez no se tan dificil, solo pregunto si es la ultima fila y resto 1 a la propieda rows del control.
Pero borrar una del medio, puede ser mas dificil, tal vez tenga simular que borro la del medio, haciendo un desplazamiento del contenido de las filas(con datos) y borrando realmente la ultima fila, ya que solo cuento con la propiedad Rows.

Gracias Nuevemente Avellaneda.

Hola pabje,

no hay mayor problema, el control MSFlexgrid tiene la propiedad RemoveItem para eliminar filas del grid

Código:

Private Sub cmdEliminarFila_Click()
Dim i As Integer
With MSFlexGrid1
    i = .Row
    If .Row = .Rows - 1 Then
        .Col = 0
        If .TextMatrix(.Row, .Col) = "" Then
            ' última fila y en blanco, borramos sin preguntar
            .RemoveItem i
            Exit Sub
        End If
    End If
    If MsgBox("¿Seguro que quieres eliminar esta fila?", vbYesNo + vbDefaultButton2 + vbQuestion, "Atención") = vbYes Then
        .RemoveItem i
        .Col = 0
        .Row = 1
    End If
End With
End Sub