对7楼程序的修订
查询1的sql语句更改为:
SELECT DMin("[作业日期]","表1","[工号]='" & [工号] & "' and [作业日期]> #" & [作业日期] & "#") AS 结束日期, 表1.工号, 表1.作业日期, 表1.工位能力, IIf(IsNull([结束日期]),DateDiff("d",[作业日期],Format(Now(),"yyyy-mm-dd")),DateDiff("d",[作业日期],[结束日期])) AS 天数
FROM 表1
ORDER BY 表1.工号, 表1.作业日期;