以文本方式查看主题

-  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)

--  作者:fx719
--  发布时间: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
        Else
           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