&&at save command button.. SELE typ2 LOCATE FOR txtname=UPPER(ALLTRIM(thisform.txtname.value)) IF !FOUND() append from dbf('crsDist') ELSE MESSAGEBOX("Exist") endif With Thisform .grdDistribution.RecordSource = '' .grdDistribution.Visible = .T. endwiththanks.
>>use mytable in 0 >>locate for .... >> if !found() >>*Append from dbf('grdDistribution') && rong >>*Append from DBF(grdDistribution.RecordSource = 'crsDist')&&rong >>*append from cursor ('crsDist')&&rong >>*append from (crsDist.cursor)&&rong >>else >>. >>. >> endif >>>>thanks.