刚入门，菜鸟一个，请大家帮帮忙
一个新增用户名的表单，确定按钮的代码为

    select mmb    &&密码表
    if  len(allt(thisform.pageframe1.page1.text5.value))=0
        messagebox("请输入用户名!",0+48,"系统提示")
        thisform.pageframe1.page1.text5.setfocus
        return
     endif
  select mmb      
   append blank
   replace yhm with thisform.pageframe1.page1.text5.value   
   replace mm with thisform.pageframe1.page1.text6.value
   messagebox("添加用户成功",48,"系统信息")
   thisform.pageframe1.page1. text5.value=""
   thisform.pageframe1.page1. text6.value=""
   thisform.pageframe1.page1.text5.setfocus
   thisform.refresh
如何在append前可检测用户名是否存在

    select mmb    &&密码表
    if  len(allt(thisform.pageframe1.page1.text5.value))=0
        messagebox("请输入用户名!",0+48,"系统提示")
        thisform.pageframe1.page1.text5.setfocus
        return
     endif
  select mmb
  loca for lowe(allt(yhm)) ==lowe(allt(thisform.pageframe1.page1.text5.value))
  if eof() .and.6=messageb("该用户名不存在, 是否添加?? ",4+48,"")
     append blank
     replace yhm with thisform.pageframe1.page1.text5.value   
     replace mm with thisform.pageframe1.page1.text6.value
     messagebox("添加用户成功",48,"系统信息")
  endif
   thisform.pageframe1.page1. text5.value=""
   thisform.pageframe1.page1. text6.value=""
   thisform.pageframe1.page1.text5.setfocus
   thisform.refresh

不行呀，
运行完，相同的用户名还是可以添加，出错，YHM索引不是唯一

把这一段添替换红色部分试试
C_yhm=allt(thisform.pageframe1.page1.text5.value)
sele count(yhm) as n_yhm from mmb where yhm=C_yhm into cursor tmp_d
if n_yhm=0
sele mmb
     append blank
     replace yhm with thisform.pageframe1.page1.text5.value   
     replace mm with thisform.pageframe1.page1.text6.value
     messagebox("添加用户成功",48,"系统信息")
else
messagebox("用户已经存在",48,"系统信息")
endif

[ 本帖最后由 scilent 于 2011-8-20 15:35 编辑 ]

可以了，谢谢