Evitar duplicados en msflexgrid

[eduardo2009]

Que tal como estan, aqui con un problemita, les explico....... tengo un formulario con un msflexgrid el cual le importo informacion por medio de archivo de excel y a su vez guardo esa informacion en un tabla, hasta ahi todo va bien, el problema q me encuentro es q pueden importar la misma informacion varias veces y por lo tanto estare duplicandola en mi base de datos, la verdad no se como podria hacerle para antes de guardar me compare la informacion q esta en el msflexgrid con la de la tabla o q simplemente los datos q existan no me los guarde..... en el msflexgrid tengo un campo el cual nunca se repite q es un folio........ bueno de antemano gracias por la ayuda y espero haberme dado a entender



saludos y gracias

[erbuson]

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:

Public Function VisorFila(Visor As MSFlexGrid, TextoBuscado As String, Columna As Single) As Single
  Dim Fila As Single
  For Fila = 1 To Visor.Rows - 1
    If Visor.TextMatrix(Fila, Columna) = TextoBuscado Then
      VisorFila = Fila
      Exit Function
    End If
  Next
  VisorFila = 0
End Function
 

Si te sirve, toda tuya.

Saludos