主要是横排的日期格式不太好解决

自定义一个容器类，放入几个控件显示日期相关信息，作为表格单元控件。

这个与精准排课类似。设计似乎可以从3个方向考虑。
1、数据结构
可以用下几个表
人员信息表——人员基本信息，必须字段，代码（工号）、姓名。其它字段，如出生日期、性别、单位……。初期设计可以用不上，系统完善时，可能有用。例如，女性不排晚班，年龄大的不连排……
值班表——如果每天值班只是一个人，或固定的几个人，可以每月或每周用一条记录。这样初期代码可能好写点，但适用性可能不太广。建议每条每人、每天值班信息一条记录。由以下字段：自动生成的关键字字段、工号、值班日期、班次。这个表的字段一定不要多，否则不易维护。另外，休息不用出现在记录中。
特殊日期表——日期、说明。说明字段用于指定日期类型（一般工作日可不注明，双休日、节日）。该表中可以只加入特殊日期；也可以加入所有日期，以便于简化后期代码。可以年、月、日用不同字段
最后，数据不建议用DBF表，不安全自动编号功能与比较弱，还不太方便数据交流。建议用ACCESS，SQL server ……，然后用远程视图调用。
2、结果呈现
1）呈现
表头可以用标签，也可以用表格。按月呈现，如需要也可以按4-5周呈现。
值班数据用表格。
2）查询
可以在旁边用表格、列表框、标签……选定月份。
用组合框加列表框进行人员查询
3、数据维护
1）数据录入
2）数据导入、导出
3）复制
4）自动生成
5）统计

sj表，字段 rq,ri,yue,niang
_yue=2   &&实际可由控件指定的月份。
select * from sj into cursor sjtmp where yue=_yue order by yue,ri  &&指定的月份，也可用between()指定时间范围。
for i=1 to 31  &&也可以多几个标签
    ci='lrq'+allt(str(i))
    thisform.&ci..caption=''
endfor
select sjtmp
for i=1 to recc()
    go i
    ci='lrq'+allt(str(i))
    thisform.&ci..caption=allt(ri)
endfor

[此贴子已经被作者于2021-6-30 11:42编辑过]