如何防止重复导入数据？

怎么导入数据的？

导入方法如下,其中表的索引为普通索引

select 表名
filename=getfile("dbf;XLS;TXT:" ,"导入文件名:","导入")
if right(alltrim(filename) ,3)=''
append from '&filename'
thisform.refresh
Tableupdate(.T.)
messagebox("成功导入数据！" ,0+48, "数据转换")
ENDIF

我想可以在导入的表中设个布尔型变量，导入过的改为真，没导入过的设为假，在导入前加个判断

谢谢,具体怎么设置?请指教

在“Tableupdate(.T.)”的之前加句判断某一字段的值是真是假的判断再决定执不执“Tableupdate(.T.)”，执行后就把该值设为真

该怎么加呢?