if allt(thisform.txt学号.value)==""
  messagebox("请输入完整的必要信息！",64,"提示")
  thisform.txt学号.setfocus
else
  if allt(thisform.txt姓名.value)==""
    messagebox("请输入完整的必要信息！",64,"提示")
    thisform.txt姓名.setfocus
 else
  if allt(thisform.txt出生年月.value)==""
    messagebox("请输入完整的必要信息！",64,"提示")
    thisform.txt出生年月.setfocus
    else
      if allt(thisform.txt语文.value)==""
        messagebox("请输入完整的必要信息！",64,"提示")
        thisform.txt语文.setfocus
      else
      if allt(thisform.txt数学.value)==""
        messagebox("请输入完整的必要信息！",64,"提示")
        thisform.txt数学.setfocus
       else
        if allt(str(thisform.txt奖学金.value))==""
        messagebox("请输入完整的必要信息！",64,"提示")
        thisform.txt奖学金.setfocus
        
         else
 
   append blank
   repla 学号 with alltr(thisform.txt学号.value)
   repla 姓名 with thisform.txt姓名.value
   repla 语文 with thisform.txt语文.value
    repla 数学 with thisform.txt数学.value
    repla 出生年月 with thisform.txt出生年月.value
     repla 奖学金 with thisform.txt奖学金.value
messagebox("添加成功")
   endif
    endif
   
      endif
        endif
          endif
           endif

添加记录速度最快：INSERT INTO 表 (,,) VALUES (,,)
APPEND BLANK
REPLACE

要学会看VFP的帮助文件。

以下这一段确实非常有必要优化一下,
只需要一次写操作的情况, 居然搞了七次
楼主理当按照2楼说的办.

不删的话，可以添加，但一直覆盖第一条信息

你到底想解决什么问题
IF ELSE ENDIF 嵌套太多，代码看着有点头晕
可以改为
DO CASE...ENDCASE 条理清楚

[ 本帖最后由 sdta 于 2012-6-1 22:48 编辑 ]

1楼代码的if逻辑错了

if allt(thisform.txt出生年月.value)==""
看下txt出生年月的数据类型

go bott
append blank

是日期型

知道ALLTRIM()的意思吗