多谢!不是在上面已经说吗?我的问题已解决.就是把if found()改为do while found()
顺便请教以下代码,也很纳闷,很简单一个问题,说有有语法错误,类似使用以前都没问题.
for m=1 to 20

endfor

for m=1 to 20
    **m..Enabled=.F. &&原代码M要转换为字符型
    ** 修改后的代码
　　CM=TRANSFORM(M)
　　cm..Enabled=.F.
endfor

在我以前用时好象不用吧!但还是感谢!我试一下.

情况还是一样.

for m=1 to 20
    **m..Enabled=.F. &&原代码中的M为数值型，要转换为字符型
    ** 修改后的代码
　　CM=TRANSFORM(M)
　　cm..Enabled=.F.
endfor
COMMAND是按钮组（）,还是单个按钮，如果是按钮组上面肯定不能用，如果是20个单独的COMMAND按钮，M是数据型，数据型如何与字符串COMMAND连接在一起。

[ 本帖最后由 sdta 于 2012-2-11 23:04 编辑 ]

是单独按钮,我也不明白,以前我用过thisform.text&m..Enabled=.F.都可以.都没问题.

转换为字符应是：
cm=allt(str(m))

妙用自己体会吧

已经成功.多谢你们的关注,我又得到长进.

自动排课不现实的，用排课软件排出来的不合理，再调来调去，还不如一开始就手工排。
手工排的意思是排课时思路是自己头脑指挥排课位置，不依赖程序的自动填充。
放弃铅笔橡皮和刊画纸，改用电脑鼠标点击格子，也属于手工排课，我就是在电脑上操作的。