Estoy atascada
Publicado por Tadiar (39 intervenciones) el 20/03/2002 21:46:56
Vereis tengo una aplicación con un MSFlexGrid que al hacer un click en una fila en concreto comprueba si en la columna 10 hay un determinado picture y si es así activa un icono en el toolBar, BUENO ESTO FUNCIONA BIEN HASTA AQUI, y adjunto el código a continuación, mi problema surge cuando quiero que al hacer CLICK sobre una fila tambien me compruebe si en la columna 12 de esa fila existe el texto "SI" y si es así que me active un label que se encuentra en el formulario.Por supuesto las dos cosas son independientes, puede existir el picture en la columna 10 y no estar el texto "SI" en la columna 12 ó viceversa.
Este codigo funciona para el tema del picture pero no se como añadir para que me compruebe si existe el texto en la columna 12. Ayudadme por favor estoy atascada.
Private Sub MSFlex_Click()
MSFlex.Col = 10
If MSFlex.CellPicture = PicNo.Picture Then
Toolbar1.Buttons("VerFotos").Enabled = False
Else
Toolbar1.Buttons("VerFotos").Enabled = True
End If
MSFlex.Col = 1
MSFlex.ColSel = MSFlex.Cols - 1
End Sub
-------------------------------------------------------
Private Sub MSFlex_RowColChange()
Static Entrado As Boolean
Dim ColumnaAntigua, FilaAntigua As Long
If Inicializado And Not Entrado Then
Entrado = True
ColumnaAntigua = MSFlex.Col
FilaAntigua = MSFlex.Row
MSFlex.Col = 10
If MSFlex.CellPicture = PicNo.Picture Then
Toolbar1.Buttons("VerFotos").Enabled = False
Else
Toolbar1.Buttons("VerFotos").Enabled = True
End If
MSFlex.Col = ColumnaAntigua
MSFlex.Row = FilaAntigua
Entrado = False
End If
End Sub
Este codigo funciona para el tema del picture pero no se como añadir para que me compruebe si existe el texto en la columna 12. Ayudadme por favor estoy atascada.
Private Sub MSFlex_Click()
MSFlex.Col = 10
If MSFlex.CellPicture = PicNo.Picture Then
Toolbar1.Buttons("VerFotos").Enabled = False
Else
Toolbar1.Buttons("VerFotos").Enabled = True
End If
MSFlex.Col = 1
MSFlex.ColSel = MSFlex.Cols - 1
End Sub
-------------------------------------------------------
Private Sub MSFlex_RowColChange()
Static Entrado As Boolean
Dim ColumnaAntigua, FilaAntigua As Long
If Inicializado And Not Entrado Then
Entrado = True
ColumnaAntigua = MSFlex.Col
FilaAntigua = MSFlex.Row
MSFlex.Col = 10
If MSFlex.CellPicture = PicNo.Picture Then
Toolbar1.Buttons("VerFotos").Enabled = False
Else
Toolbar1.Buttons("VerFotos").Enabled = True
End If
MSFlex.Col = ColumnaAntigua
MSFlex.Row = FilaAntigua
Entrado = False
End If
End Sub
Valora esta pregunta
0