- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 表达式列同一个人同一天的时长计算怎么写 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=195843)
-- 发布时间：2025/3/13 18:28:00
-- 表达式列同一个人同一天的时长计算怎么写
想把汇总时长这里的两列自动填入11.5
-- 发布时间：2025/3/13 20:00:00
--
要使用代码处理，datacolchanged事件
Select Case e.DataCol.Name
Case "填写日期","员工姓名","时长"
Dim dr As DataRow = e.DataRow
If dr.IsNull("填写日期") OrElse dr.IsNull("员工姓名") Then
dr("汇总时长") = Nothing
Case "填写日期","员工姓名","时长"
Dim dr As DataRow = e.DataRow
If dr.IsNull("填写日期") OrElse dr.IsNull("员工姓名") Then
dr("汇总时长") = Nothing
Else
dim cnt as double = e.DataTable.Compute("Sum(时长)","[员工姓名] = \'" & dr("员工姓名") & "\' and 填写日期=#" & dr("填写日期") & "#")
dim cnt as double = e.DataTable.Compute("Sum(时长)","[员工姓名] = \'" & dr("员工姓名") & "\' and 填写日期=#" & dr("填写日期") & "#")
SystemReady = False
e.DataTable.replacefor("汇总时长",cnt,"[员工姓名] = \'" & dr("员工姓名") & "\' and 填写日期=#" & dr("填写日期") & "#")
SystemReady = true
End If
End Select
End Select