【添加】
SELECT 商品信息
USE d:\database\data\商品信息
APPEND BLANK
GO bottom
thisform.Refresh
thisform.List1.enabled=.f.
thisform.txt编号.enabled=.f.

thisform.txt品牌.enabled=.f.
thisform.Edit1.enabled=.f.
thisform.txt描述.enabled=.f.
thisform.txt产地.enabled=.f.

【保存】
类别=alltrim(thisform.List1.value)
编号=alltrim(thisform.Txt编号.value)
名称=alltrim(thisform.Txt编号.value)
品牌=alltrim(thisform.Txt品牌.value)
规格=alltrim(thisform.Edit1.text)
描述=alltrim(thisform.Txt描述.value)
产地=alltrim(thisform.Txt产地.text)
if     类别                   &&验证类别名称是否为空
    messagebox("类别名称不能为空！",16,"商品信息")
    thisform.txt类别.value=""
    thisform.txt类别.setfocus
    return
endif
if     编号                    &&验证商品编号是否为空
    messagebox("编号不能为空！",16,"商品信息")
    thisform.txt编号.value=""
    thisform.txt编号.setfocus
    return
endif
*检查添加的编号是否已被使用
nRecno=recno()                       &&记录当前记录编号
locate for 编号==编号
if found()
        messagebox("编号："+编号+"已被使用！",16,"商品信息")
        thisform.txt编号.setfocus
        return
    else
        if nrecno<>recno()
            messagebox("编号："+编号+"已被使用！",16,"商品信息")
            thisform.txt编号.setfocus
            return
    endif
if     名称                 &&验证商品名称是否为空
    messagebox("商品名称不能为空！",16,"商品信息")
   
   
    return
ENDIF
if     品牌                          &&验证商品品牌是否为空
    messagebox("商品名称不能为空，无品牌商品请填0",16,"商品信息")
    thisform.Txt品牌.value=""
    thisform.Txt品牌.setfocus
    return
ENDIF
if     规格                         &&验证商品规格是否为空
    messagebox("商品规格为空为空时请填1",16,"商品信息")
    thisform.Edit1.value=""
    thisform.Edit1.setfocus
    return
ENDIF
if    描述                          &&验证商品描述是否为空
    messagebox("商品名称不能为空，无描述时请填0",16,"商品信息")
    thisform.Txt描述.value=""
    thisform.Txt描述.setfocus
    return
ENDIF
if     产地                         &&验证商品产地是否为空
    messagebox("商品产地不能为空，无产地请填0",16,"商品信息")
    thisform.Txt产地.value=""
    thisform.Txt产地.setfocus
    return
endif
thisform.refresh
messagebox("添加成功",64,"商品信息")
    go nrecno   
    thisform.refresh

[ 本帖最后由 关关雎鸠 于 2010-6-17 08:29 编辑 ]

问下错误信息是什么？

if     类别 --->if empty(类别)

【添加】不好使。运行表单，点击【添加】所有的编辑框、文本框呈灰色，无法输入内容。
【保存】缺少IF ELSE ENDIF 语句

[ 本帖最后由 关关雎鸠 于 2010-6-14 08:03 编辑 ]

1、thisform.List1.enabled=.f.
   .....
   .....
所有的编辑框、文本框当然是灰色的
2、if  类别 ，语法错误
3、if found() 判断语句末尾缺少一个 endif
4、保存命令用 repl 命令
5、整个程序段显得很混乱

谢谢老师，我重做一个试试