Te explico un poco como lo tengo:
Evento load del form:
OPEN DATABASE &rutaa\controlp
USE &rutaa\produc IN 1 ALIAS produc &&tabla de produccion
USE &rutaa\modelos IN 2 ALIAS modelos
USE &rutaa\produc IN 3 AGAIN ALIAS produc2 &&tabla de producción2
*********************************************
Evento Valid del grid, column1-text1:
LOCAL wmodelo,wfecha
wmodelo=produc.modelo
wfecha=produc.fecha
SELECT produc2
SET ORDER TO modfecha
busca=(STR(wmodelo,8)+DTOS(wfecha))
SEEK(busca)
IF FOUND()
MESSAGEBOX("Error: Clave duplicada","Aviso")
NODEFAULT
RETURN .f.
ENDIF
SELECT produc
thisform.refresh
*******************************
Con este código al abrir el form se bloquea dando continuamente el mensage clave duplicada.Tengo que forzar cierrre con control+alt+sup
Gracias.