运行表单，输入框有数据没就提示没有。请帮忙查看“确定”按钮代码 以及表单输入框生成器

if dtoc(thisform.text1.value)="" or thisform.text2.value="" or thisform.text3.value="" or thisform.text4.value="" or ;
                 or or or or ;
                 or or
     messagebox("有漏项，请重新输入！",40)
    thisform.text1.setfocus
else
    if len(alltrim(thisform.text2.value))<>7
            messagebox("请输入7位箱号或车号！",40)
            thisform.text2.setfocus
       else
               if len(alltrim(thisform.text3.value))<>7
                messagebox("请输入7位箱号或车号！",40)
               thisform.text3.setfocus
            else
              if len(alltrim(thisform.text4.value))<>7
                 messagebox("请输入7位箱号或车号！",40)
                 thisform.text4.setfocus
             else
      *select 空箱加固库
    *set order to 日期
    go top
    loca for 日期=thisform.text1.value and 车号=thisform.text2.value
    if eof()
        m_riqi=thisform.text1.value
        m_daozhan=
        m_minglinghao=
        m_chezhong=
        m_chexing=
        m_chehao=thisform.text2.value
        m_xiangshu=
        m_xiangxing=
        m_xianghao1=thisform.text3.value
        m_xianghao2=thisform.text4.value
        m_huoyunyuan=
        append blank
        replace 日期 with m_riqi,到站 with m_daozhan,命令号 with m_minglinghao,车种 with m_chezhong,车型 with m_chexing,车号 with m_chehao,;
                   箱属 with m_xiangshu,箱型 with m_xiangxing,箱号1 with m_xianghao1,箱号2 with m_xianghao2,货运员 with m_huoyunyuan
                messagebox("录入成功！",40)   
    else
        messagebox("该数据已经存在，请核查！",40)
        thisform.text1.setfocus
                endif
            endif
        endif
    endif
endif

看看有啥问题？

太感谢了，我琢磨了两天也没弄懂的问题！以后多多指教！再次感谢