如何防止重复导入数据？
如何防止重复导入数据？
导入方法如下,其中表的索引为普通索引
select 表名
filename=getfile("dbf;XLS;TXT:" ,"导入文件名:","导入")
if right(alltrim(filename) ,3)=''
append from '&filename'
thisform.refresh
Tableupdate(.T.)
messagebox("成功导入数据！" ,0+48, "数据转换")
ENDIF