如题，只是一个表单，在vfp环境下运行没有任何问题，就是用到一些嵌套的do case命令来进行判断条件，而后进行数值的加减而已呀，只是连编后好象有一部分代码不起作用啦，该加也不加啦。很郁闷，请高手指点下

谢谢。我以前也没遇到过，今天又试，发现选择‘连编后运行’复选框，可以正确运行，但是一旦退出，再次打开就又不行啦。还没解决呢，再次请求路过的达人给说下。

用了呀，主程序中用了read events，退出菜单用了clear events。

这是源文件，已生成EXE文件，只有一个表单而已，请路过的达人给看看。谢谢！！！[附件ID:attach_1名称:sygl.rar]

附件发不上却呀,下面是在text5文本框的gotfocus中写的,有不对吗?
rda=(Day(Ctot(Thisform.text6.Value)))
lda=(Day(Ctot(Thisform.text7.Value)))
rho=(Hour(Ctot(Thisform.text6.Value)))
lho=(Hour(Ctot(Thisform.text7.Value)))
rmi=(Minute(Ctot(Thisform.text6.Value)))
lmi=(Minute(Ctot(Thisform.text7.Value)))
jsnm=(lda-rda) * (thisform.text5.Value))&&设变量jsnm记录 入住天数*房标 的值 即基础房费
Do Case
Case Thisform.label4.Caption='全价'
    Do Case
    Case (lda-rda)*100+lho > (lda-rda)*100+18&&若离店时间为将来某天的18点以后
        thisform.text8.value=(jsnm)+(thisform.text5.Value)&&收费为基础房费再加一个房标
    Case (lda-rda)*100+lho <= (lda-rda)*100+14
        thisform.text8.value=(jsnm)+0
    Case (lda-rda)*100+lho <=(lda-rda)*100+17
         thisform.text8.value=(jsnm)+60
    Case (lda-rda)*100+lho <=(lda-rda)*100+18
        thisform.text8.value=(jsnm)+80
    Endcase
Case Thisform.label4.Caption='钟点'
        zdjg=Floor((lda-rda)+(lho-rho)+(60-rmi+lmi)/100)&&计算两个时间点之间时间间隔
    Do Case
    Case zdjg <=3

        Thisform.text8.Value=(Thisform.text5.Value)+0
    Case zdjg<= 4

        Thisform.text8.Value=(Thisform.text5.Value)+20
    Case zdjg >= 5

        Thisform.text8.Value=(Thisform.text5.Value)+50
    Endcase
Case Thisform.label4.Caption='半价'
    Thisform.text8.Value=(Thisform.text5.Value)+0
Endcase

谢谢楼上的提醒，不过俺们这不单单要计算出时间间隔来计费，还要分时间段来划分不同的计费标准。
这个问题一直还没解决，一个朋友说我的项目中的文件是旧的，没有更新。将项目中的旧文件移除，将新文件重新加入，也不知道咋弄。