请大神看一下,老出现编码不唯一,但库存表并无索引,
*处理产品库存记录
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，多用户环境就有可能，要视“同步”问题是如何处理。
是否只是用肉眼看是“编码不唯一”，用代码“==”判断重复的“编码”是否真的一个样，有时thisform.txt编码.value输入的可能有些“不明真相”的东东。

或者严谨点：
将：
  repl 编码 with thisform.txt编码.value,;
       本月出库 with thisform.txt数量.value
改为：
  repl 编码 with alltrim(thisform.txt编码.value),;
       本月出库 with thisform.txt数量.value

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

可能是你的数据库设置了字段规则，不容许空值，改用 Insert Into 代替 Append 命令试试看。

你最好上传你的数据库样本数据，让人猜谜多累呀，你说呢？

谢版主
对不起,问题找到了
改为：
  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

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