MSFlexGrid VB 6.0

[Loquillo_]

Aquí te envío unos ejemplos de como seleccionar filas de un Grid

Ojo, solo son ejemplos y tenes que adaptarlos
las variables mcodigo y mdescripcio son solo para asignar el valor de la rejilla y poderlas tratar en otro formulario.


Private Sub GridConsEsp_DblClick()
gs_Selecciona_Fila_Grid GridConsEsp
LastRow = GridConsEsp.Row
LastCol = GridConsEsp.Col
mCodigo = Me.GridConsEsp.TextMatrix(LastRow, 1)
mDescripcio = Me.GridConsEsp.TextMatrix(LastRow, 2)
cmdModificar_Click
End Sub

Private Sub cmdModificar_Click()
If rs.RowCount > 0 Then
With frm_ApConsEsp
ConsMod = "Actualizar"
.lbl_Mensajes.Caption = Me.Tag
.txt_Codigo.Text = mCodigo
.txt_Descripcio.Text = mDescripcio
.txt_Codigo.Enabled = False
.Show 1
End With
Else
MsgBox "No hay registros qué modificar", vbInformation, "Estadísticas"
End If
End Sub

Sub gs_Selecciona_Fila_Grid(ByRef Grid As MSFlexGrid)
On Error Resume Next 'Continúa con la sgte. instrucción si ocurre un error

With Grid
If .Row = 0 Then Exit Sub 'Si dió click en la cabecera
.Col = 0 'desde la primera columna
.ColSel = .Cols - 1 'hasta la última columna
.Tag = .Row 'Guarda la fila que seleccionó actualmente
End With
End Sub