以文本方式查看主题 - Foxtable(狐表) (http://foxtable.com/bbs/index.asp) -- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2) ---- 由表生成可视可调课表 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=153320) |
-- 作者:刘林 -- 发布时间:2020/8/6 19:50:00 -- 由表生成可视可调课表 此主题相关图片如下:qq图片20200806194406.png 老师,我在探索排课,现在是有一个各班课时安排表如上图,请问如何将上表转化为可视方式来调课,一是可以由表生成每个班一个可视的课表,并能进行指定安课,限定按课,然后随机派课,并能手动调课,调课时能联动,现在的问题是先解决用什么方式来实现可视并能进行拖动等。谢谢! |
-- 作者:有点蓝 -- 发布时间:2020/8/6 20:18:00 -- 我也不懂。看看有没有高手出来。 |
-- 作者:刘林 -- 发布时间:2020/8/6 20:31:00 -- 此主题相关图片如下:8694a4c27d1ed21b4a4094ecad6eddc451da3f29.jpg 如果用listview方式如何实现将表转化为一个如上的课程表,并能实现拖动修改其星期和节次,请老师帮研究下
|
-- 作者:有点蓝 -- 发布时间:2020/8/6 20:41:00 -- listview仅支持拖动行,无法拖动单元格。 可以试试使用线条+标签,拖动标签进行处理:http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=49697&skin=0
|
-- 作者:刘林 -- 发布时间:2020/8/6 20:59:00 -- 请问老师,listview能否实现每节课的两个参数(星期,节次,按上表这样排列其课程) |
-- 作者:有点蓝 -- 发布时间:2020/8/6 21:30:00 -- 详细信息模式: |
-- 作者:刘林 -- 发布时间:2020/8/6 21:59:00 -- 老师,没有看懂这两者关系,如何生成一个表格的样式 |
-- 作者:有点蓝 -- 发布时间:2020/8/6 22:17:00 -- 把帮助的实例看一看:http://www.foxtable.com/webhelp/topics/2768.htm |
-- 作者:刘林 -- 发布时间:2020/8/6 22:26:00 -- Dim tb As Table= Tables("课程安排") For Each r As Row In tb.Rows Dim js As Integer=r("节数") Dim i As Integer = 1 Do While i <= js Dim xq As Integer = Rand.Next(1,5) Dim jc As Integer = rand.Next(1,7) Dim dr As DataRow = DataTables("课程详表").find("班级=\'" & r("班级") & "\' and 星期 = \'" & xq & "\' and 节次=\'" & jc & "\' and 科目 is null") If dr IsNot Nothing dr("科目")=r("科目") dr("教师姓名")=r("教师姓名") i=i+1 End If Loop Next 老师,我试着取星期的随机和节次的随机数来派课,但测试有时会有出现一科连续三节课,如何实现让这个一科之间的间隔科学一点,如一个班一科一周有六节,可以实现大致一天有一节
|
-- 作者:有点蓝 -- 发布时间:2020/8/6 22:29:00 -- 如果要设计“比较”科学的排课,涉及到比较复杂的算法,在我的能力之外了。建议排差不多,然后手工调整一下吧 |