SELECT MAX(VAL(SUBSTR(sbh,2))) FROM tblccs INTO ARRAY arrsbh
SELECT tblccs
IF ISNULL(tblccs.sbh)&&或empty(tblccs.sbh)
INSERT INTO tblccs VALUES ("S1" , ALLTRIM(thisform.text1.Value),thisform.text2.Value) 
ELSE 
INSERT INTO tblccs VALUES ("S"-ALLTRIM(STR(arrsbh+1)), ALLTRIM(thisform.text1.Value) ,thisform.text2.Value)
 ENDIF 
IF NOT TABLEUPDATE(.T.)
   =MESSAGEBOX("更新失败，请重新执行操作！")
ELSE 
  frmsysset.refresh 
  RELEASE thisform 
ENDIF  
如果有数值很正常。把所有数据删除，再进行添加，就提示：SBH字段不能为null值.