--
值变化事件
select case e.datacol.name
case "日期","时间"
dim d as date = Cdate(e.datarow("日期"))
dim t as time = Cdate(e.datarow("时间"))
if t.hour > 19 then
e.datarow("结算时间") = d.adddays(1)
e.datarow("类型") = "夜班"
else
e.datarow("结算时间") = d
e.datarow("类型") = "白班"
end if
end select
[此贴子已经被作者于2023/4/1 23:09:05编辑过]