la otra respuesta es de ANALISIS.
con algo asi creo que lo lograras
USE estados ALIAS edo ORDER 1 IN 0
USE personal ALIAS per ORDER 1 IN 0 && Open tabla personal ordenada X EDO
CLEAR
qbuscar=edo.edo
SCAN
? IIF(!SEEK (qbuscar,"PER",1), REPLA per.edo WITH edo.edo, "Ya tiene edo")
ENDSCAN