应该先判断后追加 GO BOTTOM SCATTER TO AA &&最后一条记录的数据保存在数组AA中 AA(1)=THISFORM.TEXT1.VALUE LOCATE ALL FOR 第1个字段名=AA(1) IF EOF() APPEN BLANK &&追加一条空白记录 GATHER FROM AA &&从数组AA中追加数据到当前记录处(空白记录) ELSE MESSAGEBOX("关键字段不允许重复") ENDIF
select yourtable go top locate for 你的查询条件 if found() and reccount()<>recno() ****如果未到文件尾,查询结果.t.说明有重复值。 go bottom delete pack &&&&删除最后重复值 endif go bottom