foxpro请教

     用foxpro9.0编了一个教学管理系统，输入表单都有“录入”、“确认”按钮，表单初始设置每个编辑框都为不可操作，点击“录入”后，可将识别码自动加1，编辑框激活，输入信息；“确认”是实现控制输入不可为空以及将记录写到对应表里去。

表名：chooses.dbf

结构为：

     选课识别码      数值型       5        主索引

     学员              字符型       8        普通索引

     培训识别码      数值型       4        普通索引

 

设置选课时别码的初始值为：11110

 

“录入”

     SELECT chooses

SET FILT TO
sele max(选课识别码) into ARRAY jl from chooses where .t.
LOCATE FOR EMPTY(chooses.培训识别码)=.t.
IF FOUND()
   MESSAGEBOX("请输入完整的选课信息！",0+48,"信息提示")
ELSE
  APPEND BLANK
  thisform.选课识别码1.value=jl(1) + 1 

ENDIF

  thisform.Combo1.enabled= .T.
  thisform.Combo2.enabled= .T.

thisform.Refresh

 

 

 

     

 

 “确认”

SELECT chooses

IF EMPTY(thisform.combo1.value)=.t.
    MESSAGEBOX("请为该学员选择一次培训安排！",48+0,"信息提示")
ELSE
  IF thisform.combo2.Value==""
     MESSAGEBOX("请选择一名学员！",48+0,"信息提示") 
  ELSE

  REPLACE 选课识别码 WITH thisform.选课识别码1.Value  , 培训识别码 WITH thisform.combo1.Value,学员 WITH thisform.combo2.Value
  messagebox("信息保存成功！",48+0,"信息提示")
thisform.Combo1.enabled= .f.
thisform.Combo2.enabled= .f.

 ENDIF
ENDIF

 

 

  
点击“录入”时总是提示索引不唯一什么的 这个是什么原因，请各位高手指点下？

 

谢谢！