请大神看一下,老出现编码不唯一,但库存表并无索引,
*处理产品库存记录
select 库存  &&选取现有库存数据库
locate for alltrim(编码)==alltrim(thisform.txt编码.value)
if eof()
  appe blan
  repl 编码 with thisform.txt编码.value,;
       本月出库 with thisform.txt数量.value
  else
  repl 本月出库 with 本月出库+thisform.txt数量.value
ENDIF

指针在这里appe blan

谢朋友回复,
还是报 "索引编码不唯一"
不用 APPE BLAN 直接用REPL也是报 "索引编码不唯一"
不知问题出在哪里

谢版主
对不起,问题找到了
改为：
  repl 编码 with alltrim(thisform.txt编码.value),;
        本月出库 with thisform.txt数量.value
是可以的,
我看错地方,另一段代码出了问题,不好意思

*处理年出入库存
select 年出入库  &&选取现有年出入库
locate for alltrim(品名)==alltrim()
if eof()
  appe blan
  repl 品名 with (thisform.txt编码.value),;
       本月出库 with thisform.txt数量.value
  else
  repl 本月出库 with 本月出库+thisform.txt数量.value
ENDIF

MESSAGEBOX("出库成功",64,"出库")
 出错地方 appe blan

去掉年出入库存主索引,就不出错