请大师们看看我错哪里了
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
