a=alltrim(thisform.Text1.value)
b=alltrim(thisform.Text2.value)
c=alltrim(thisform.Text3.value)
d=alltrim(thisform.Text4.value)
e=alltrim(thisform.Text5.value)
f=alltrim(thisform.Text6.value)
if empty(a)                     &&此条件成立则说明该文本框是空的
   messagebox("请输入类别名称",16,"系统提示")
   return
else
  locate for 类别=a
if empty(b)                    
   messagebox("请输入商品编号",16,"系统提示")
   return
else
  locate for 编号=b
  if .not.eof()               
      go top
      messagebox("不允许有重复的商品编号",16,"系统提示")
      return
  endif
endif
if empty(c)
   messagebox("请输入商品名称",16,"系统提示")
   return
else
  locate for 名称=c
  if empty(d)
   messagebox("请输入商品规格",16,"系统提示")
   return
else
  locate for 规格=d
  if empty(e)
   messagebox("请输入商品品牌",16,"系统提示")
   return
else
  locate for 品牌=e
  if empty(f)
   messagebox("请输入商品产地",16,"系统提示")
   return
else
  locate for 产地=f
msg=messagebox('确定要添加记录吗？',32+4,'系统提示')
if msg=6
   INSERT INTO 商品信息;
   (类别,编号,名称,规格,品牌,产地) ;
   alltrim(thisform.Text1.value),;
   alltrim(thisform.Text2.value),;
   alltrim(thisform.Text3.value),;
   alltrim(thisform.Text4.value),;
   alltrim(thisform.Text5.value),;
   alltrim(thisform.Text6.value))
   messagebox('信息添加成功！',64,'系统提示')
ENDIF
 thisform.grid1.refresh
    thisform.Text1.value=""
    thisform.Text2.value=""
    thisform.Text3.value=""
    thisform.Text4.value=""
    thisform.Text5.value=""
    thisform.Text6.value=""
    thisform.Text1.setfocus
    thisform.refresh
endif

将函数empty()换成isnull()试试。
另外求助最好描述的更为详细些，不要过于简单。至少要告诉大家错误的现象，是运行达不到目的还是程序运行不了。

if empty(a)                     &&此条件成立则说明该文本框是空的
   messagebox("请输入类别名称",16,"系统提示")
   return
else
  locate for 类别=a
这缺少endif

二楼，isnull（）应该是指空值，空值不是指没有值，所以，用您办法估计不行。
本人认为，楼主用EMPTY是正确的，运行不了主要是3楼所指出的问题，而且这个问题还不止一处。
另外，楼主可能是想后面的代码简单一些，所以用了a=alltrim(thisform.Text1.value)，其实直接IF EMPTY（thisform.Text1.value)也是可以的。

补充一下，也可以用IF alltrim(thisform.Text1.value)=''

为什么不用 if a="" ?

不过，需要在前面加上 set exact on

缺少了N个 endif
建议楼主：写程序要有层次！

   INSERT INTO 商品信息;
   (类别,编号,名称,规格,品牌,产地) ;
   alltrim(thisform.Text1.value),;
   alltrim(thisform.Text2.value),;
   alltrim(thisform.Text3.value),;
   alltrim(thisform.Text4.value),;
   alltrim(thisform.Text5.value),;
   alltrim(thisform.Text6.value))


缺少if|else|endif语句
可我上边都有啊

[ 本帖最后由 关关雎鸠 于 2010-7-16 15:39 编辑 ]

一个if应对应一个endif
粗略数了一下8个if,3个endif

呵呵，搞了半天楼是在考大家的眼力，我还给他一句一句的看，反倒是忘记了去数if endif

其实我建议楼主在每个控件的valid事件中来设置这些要求，又好改又好用