汉字啊 不是只有一个字段不同，是大部分字段相似 所以把最后一个拷过来 在这基础上修改一下 就是一条新记录
怎么编程啊？

应该先判断后追加
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

1、象此类情况应该是先判断再追加，因为这样做不仅逻辑上清析，而且编程上也简单。
2、追加记录是逐条进行的，先加一条空记录，然后将数组的值传递到该记录中。

按照楼主的意思，也可这样做：

sele 字段 from 表 where 字段=aa into cursor tmp
if _tally>1
删除
endif

不过我认为还是先判断再追加记录好。

判断时在哪里输入要判断的字段呢？
还是要在txt里输入啊 那就要首先添加记录啊
不然哪来的txt 框啊？

你看12楼，TEXT1就是添加到表单中的独立控件,不与任何数据表联系.用户任意输入数据,都与表没有关系,更不可能增加任何记录.你将所有数据捆绑取消，将数据环境中的表和数据库移除,在表单的INIT里建立表,打开表,设置控件的初始值等操作.其实在向导的基础上修改代码实在是很麻烦的事