各位论友,新年好!本人正做一个排课系统遇到一个问题.一个老师同一节课在不同的班级不能有相同的科目.以下代码可以解决一个老师只能担任两个班课.如果一个老师担任有三个或三个班课,排出的课可能有冲突.不知哪位高手有何妙招帮我解决这个问题呢?
use zkb
...................

m=0
g=0
FOR k=1 TO ALEN(b)

locate FOR  EMPTY(kmname) AND bjname=b(k) AND between(jb,1,5)AND jb!=m
IF FOUND()
m=jb
replace kmname WITH "语文"
g=g+1
IF g>3
EXIT
ELSE
LOOP
ENDIF
ENDIF
endfor
............
其中kmnane表示科目,jb表示第几节,b(k)贮存有班级数组.

[ 本帖最后由 TZTJ 于 2012-2-5 15:13 编辑 ]

能否共享一下你的排课系统的架构及思路！！！

用排列组合的办法试试

排课流程，是全校的，还是某一个系的，课程名称表有吗
细节性的问题要讲清楚，否则无法解决问题。

我采用数组可以基本解决了问题,但觉得不时最佳方法.

没有比数组方法再合适的方法了，满足吧

各位论友,我遇到一种怪现象,用了数组可以解决以上问题,但第三个班第一节是空的,后面的班级根本没有排课,如果不空的,又可以,原因何在?请高手指点

USE szb

.........................
m=0
g=0
DIMENSION a(10)
STORE 0 TO a
FOR k=1 TO ALEN(b)
locate FOR  EMPTY(kmname) AND bjname=b(k) AND xq=ALLTRIM(thisform.optiongroup1.Buttons(t).caption) AND between(jb,1,4)AND jb!=m
IF FOUND()
m=jb
nps=ASCAN(a,jb)
IF nps!=0
continue
else
STORE jb TO a(k)
replace kmname WITH ALLTRIM(thisform.list2.Value)  
g=g+1
b(k)=null
ENDIF
IF g>2
EXIT
ELSE
LOOP
ENDIF
ENDIF
endfor
...........................

原始表缺少或缺少必需字段

不可能,如果去掉
nps=ASCAN(a,jb)
IF nps!=0
continue
else
它就有排课,只不过课程有冲突.我试过很多次,只要第一节排有课,它就没问题.我人为在数组使用过程中有不妥地方.但我查不出原因

TO:TZTJ

请问做排课系统的DBF表是如何构建的?    能否介绍一二？