共2 条记录, 每页显示 10 条, 页签:
[1]
[浏览完整版]
标题：表达式列同一个人同一天的时长计算怎么写
1楼
fx719 发表于：2025/3/13 18:28:00
想把汇总时长这里的两列自动填入11.5
2楼
有点蓝 发表于：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
共2 条记录, 每页显示 10 条, 页签:
[1]