程序代码：

thisform.lockscreen=.t.
select main
    select max(bianhao) as maxbianhao1 from main into cursor yy
    maxbianhao=maxbianhao1

 if thisform.pf.page2.text1.value=""
    select main
    maxjilu=maxbianhao

else
    select main
     select max(bianhao) as maxbianhao2,shenhe from main where 罐号=alltrim(thisform.pf.page2.text1.value) into cursor uu
     maxjilu=maxbianhao2
     maxshenhe=shenhe
     *calc max(bianhao) for 罐号=alltrim(thisform.pf.page2.text1.value) to maxjilu
     guanhao1=alltrim(thisform.pf.page2.text1.value)
     select youguan
     locate for 罐号=guanhao1
         mypinzhong=品种
     select main
    
endif

select main
mybian=bianhao
if  maxjilu=mybian and getnextmodified(0)=0 and nkeycode=24
           if thisform.pf.page2.text1.value=""   
               select main
               append blank   **这里开始出问题
            replace 日期 with date()
            replace bianhao with maxbianhao+1
        else 
             if maxshenhe=1
                select main
                append blank 
                replace 日期 with date()
                replace bianhao with maxbianhao+1
                replace 罐号 with guanhao1
                replace 品种 with mypinzhong
              else
                 messagebox("该罐的上一笔数据未审核，不能添加",0,"注意") 
               
              endif 
        endif
           
endif
thisform.lockscreen=.f.