改成试试：
LOCATE FOR EMPTY(kmname) AND bjname=b(k)AND between(jb,5,8)
IF FOUND()
    &&有
ELSE
    &&没有
ENDIF

每个if 之间都是紧密联系,第一if不运行后面的所有if都无法运行,因为后面运行用到前面的条件.你们所提出问题我都试过.反而都没有我的效果好.
我认为想办法退出不满足条件的程序.
FOR k=1 TO 10
scan FOR  EMPTY(kmname) AND bjname=b(k) AND between(jb,5,8)

IF k=1
m=jb
replace kmname WITH "数学" while jb=m
exit
  ELSE
     IF jb=m
      LOOP
          ELSE
            IF k=2
              n=jb
              replace kmname WITH "数学" while  jb=n
             EXIT
``````````````````````
             ENDIF
         ENDIF
ENDIF
endscan
ENDFOR

[ 本帖最后由 TZTJ 于 2011-8-6 12:02 编辑 ]

没细看程序。
可以程序开始时先赋值：m=所有条件都不满足时应有的值。

m的作用就让在同一节课不能有同一个科目.在上面我说过，大部分问题我都解决了.问题是假如遇到有一个班出现不满足条就跳出自动排课.

[ 本帖最后由 TZTJ 于 2011-8-6 12:12 编辑 ]