select 图书信息查询
if alltrim(thisform.text1.value)==""
   messagebox("图书必须填充!",64,"提示")
   else
  locate for alltrim(thisform.text1.value)==alltrim(图书信息查询.图书编号)
    if not eof()
    messagebox("此编号已经存在,请重新输入",64,"提示")
    thisform.text1.value=""
    thisform.text2.value=""
    thisform.text3.value=""
    thisform.text4.value=""
    thisform.text5.value=""
    thisform.text6.value=""
    thisform.text1.setfocus
  else
    append blank
    replace 图书编号 with alltrim(thisform.text1.value)
    replace 图书名称 with alltrim(thisform.text2.value)
    replace 价格 with alltrim(thisform.text3.value)
    replace 作者 with alltrim(thisform.text4.value)
    replace 出版社 with alltrim(thisform.text5.value)
    replace 内容简介 with alltrim(thisform.text6.value)
    messagebox("添加成功！")
    thisform.text1.value=""
    thisform.text2.value=""
    thisform.text3.value=""
    thisform.text4.value=""
    thisform.text5.value=""
    thisform.text6.value=""
    thisform.text1.setfocus
   endif
  endif
thisform.list1.requery
thisform.refresh

检查一下alltrim()函数输入的参数类型

你的图书编号字段和text控件的类型都是字符型么？

价格肯定不是字符型的..别用ALLTRIM

提示是哪？

我觉得应该是 这个样子的
 locate for alltrim(thisform.text1.value)==图书编号
第一，按我的理解，当前工作区没有必要引用表名，
第二，我理解文字型字段的值就是没有空格i的值，这个就是字段值和控件的值得差别。
第三，replace 价格 with alltrim(thisform.text3.value)，这个就无法执行，按一般的情况，价格应该是数值型字段。

[此贴子已经被作者于2015-10-18 08:26编辑过]