嗬 楼主人緣好啊 这么多人回贴
自己的经验 与你分享一下
可能看起来更简单
ls1=Allt(Thisform.txt学号.Value)
ls2=(Allt(Thisform.txt姓名.Value)
ls3=Allt(Thisform.txt出生年月.Value)  &&这个可能要注意字符类型的问题哟
ls4=Allt(Thisform.txt语文.Value)
ls5=Allt(Thisform.txt数学.Value)
ls6=Allt(Str(Thisform.txt奖学金.Value))
   ***上面这几个Ls当然可以换成 I 者其它什么的,反正临时用,只要不冲突,主要是下面的语句
If empty(ls1) or empty(ls2) or empty(ls3) or empty(ls4) or empty(ls5) or empty(ls6)
    Messagebox("请输入完整的必要信息！",64,"提示")
return
ENDIF
append blank
repl 学号 With ls1,姓名 With ls2, ..,奖学金 With ls6

简单
加分50

判断用户输入的数据是否符合要求，通常不仅仅是判断是否为空，很多情况下还要考虑数据的范围和数据间的逻辑关系。

应该写成下面的
if allt(thisform.txt学号.value)==""
   =messagebox("请输入完整的必要信息！",64,"提示")
   thisform.txt学号.setfocus
   return .f.
endif
if allt(thisform.txt姓名.value)==""
   =messagebox("请输入完整的必要信息！",64,"提示")
   thisform.txt姓名.setfocus
   return .f.
endif
if thisform.txt出生年月.value={}
   =messagebox("请输入完整的必要信息！",64,"提示")
   thisform.txt出生年月.setfocus
   return .f.
endif
if allt(thisform.txt语文.value)==""      && 如果是数值型的 if thisform.txt语文.value<=0
   =messagebox("请输入完整的必要信息！",64,"提示")
   thisform.txt语文.setfocus
   return .f.
endif
if allt(thisform.txt数学.value)==""      && 如果是数值型的 if thisform.txt数学.value<=0
   =messagebox("请输入完整的必要信息！",64,"提示")
   thisform.txt数学.setfocus
   return .f.
endif
if thisform.txt奖学金.value<=0
   =messagebox("请输入完整的必要信息！",64,"提示")
   thisform.txt奖学金.setfocus
   return .f.
endif
append blank
repla 学号 with allt(thisform.txt学号.value),姓名 with allt(thisform.txt姓名.value),语文 with thisform.txt语文.value,数学 with thisform.txt数学.value,出生年月 with thisform.txt出生年月.value,奖学金 with thisform.txt奖学金.value
messagebox("添加成功")


[ 本帖最后由 ptyy803 于 2012-6-10 18:51 编辑 ]