Aya no sabía con razón me salia error.
Private Sub flex_DblClick() 'No contempla lista de parametros
Dim Col As Long, Row As Long
With flex
.Row = Row
.Col = 1
If .Row >= 1 And .Text <> "" Then ' si hay datos, tomar y salir --> no entra a esta condición
.Row = Row
.Col = 0
mstrCod = .Text
.Col = 1
mstrDes = .Text
Unload Me
End If
End With
End Sub
En la grilla solo estoy tomando datos del ID Y DESCRIPCION pero no toma los datos solo los titulos de las cabeceras de las columnas a que se debe en que me estoy equivocando
Pedro
Pedro Avila