Ver Mensaje Individual
  #2 (permalink)  
Antiguo 24/11/2009, 00:36
Avatar de erbuson
erbuson
 
Fecha de Ingreso: noviembre-2009
Mensajes: 701
Antigüedad: 14 años, 6 meses
Puntos: 53
Respuesta: Evitar duplicados en msflexgrid

Hola:

Para estos casos, yo utlizo esta funcion que me devuelve la fila que contiene el dato coincidente en la columna buscada. Si no la encuntra devuelve 0.

Código vb:
Ver original
  1. Public Function VisorFila(Visor As MSFlexGrid, TextoBuscado As String, Columna As Single) As Single
  2.   Dim Fila As Single
  3.   For Fila = 1 To Visor.Rows - 1
  4.     If Visor.TextMatrix(Fila, Columna) = TextoBuscado Then
  5.       VisorFila = Fila
  6.       Exit Function
  7.     End If
  8.   Next
  9.   VisorFila = 0
  10. End Function
Si te sirve, toda tuya.

Saludos