Foxtable(狐表)用户栏目专家坐堂 → 按条件统计列数


  共有215人关注过本帖树形打印复制链接

主题:按条件统计列数

美女呀,离线,留言给我吧!
13775189031
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:三尾狐 帖子:733 积分:4916 威望:0 精华:0 注册:2017/12/19 14:46:00
按条件统计列数  发帖心情 Post By:2020/6/22 13:43:00 [只看该作者]

考勤汇总表中列“应出勤天数” 
考勤表中列“休息日1”、“休息日2”,“休息日3”....“休息日31”  
想实现“应出勤天数”等于考勤表中“休息日”等于空值的列数(不是空值时显示周末、法定假日、调休等),同时本月若没有29、30或31的要减掉
代码应该怎么写


 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:52879 积分:268032 威望:0 精华:8 注册:2015/6/24 9:21:00
  发帖心情 Post By:2020/6/22 13:50:00 [只看该作者]

请上传实例说明

 回到顶部
美女呀,离线,留言给我吧!
13775189031
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:三尾狐 帖子:733 积分:4916 威望:0 精华:0 注册:2017/12/19 14:46:00
  发帖心情 Post By:2020/6/22 14:09:00 [只看该作者]

为什么传不上去呢? 一直显示“一次只能上传3个文件!”  但我只传了1个     有时显示“请正确选择要上传的文件
[此贴子已经被作者于2020/6/22 14:11:53编辑过]

 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:52879 积分:268032 威望:0 精华:8 注册:2015/6/24 9:21:00
  发帖心情 Post By:2020/6/22 14:15:00 [只看该作者]

刷新网页重新上传,重复试

 回到顶部
美女呀,离线,留言给我吧!
13775189031
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:三尾狐 帖子:733 积分:4916 威望:0 精华:0 注册:2017/12/19 14:46:00
  发帖心情 Post By:2020/6/22 15:05:00 [只看该作者]


[此贴子已经被作者于2020/6/22 16:00:09编辑过]

 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:52879 积分:268032 威望:0 精华:8 注册:2015/6/24 9:21:00
  发帖心情 Post By:2020/6/22 15:20:00 [只看该作者]

大概:

汇总表datacolchanged
If e.DataCol.Name = "姓名" Then
    Dim dr As DataRow = DataTables("考勤").Find("姓名='" & e.NewValue & "' and 考勤月份='" & Format(Date.Today,"yyyy-MM") & "'")
    If dr IsNot Nothing Then
        Dim cnt As Integer = 0
        For i As Integer = 1 To Date.DaysInMonth(Date.Today.Year,Date.Today.Month)
            If dr.IsNull("考勤日期_" & i & "_休息日")
                cnt = cnt +1
            End If
        Next
        e.DataRow("应出勤天数") = cnt
    End If
End If

 回到顶部
美女呀,离线,留言给我吧!
13775189031
  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:三尾狐 帖子:733 积分:4916 威望:0 精华:0 注册:2017/12/19 14:46:00
  发帖心情 Post By:2020/6/22 17:19:00 [只看该作者]

If e.DataCol.Name = "编号" Then
    Dim dr As DataRow = DataTables("考勤").Find("编号='" & e.NewValue & "'")
    If dr IsNot Nothing Then
        Dim cnt As Integer = 0
        For i As Integer = 1 To Date.DaysInMonth(Date.Today.Year,Date.Today.Month)
            If dr.IsNull("考勤日期_" & i & "_休息日")
                cnt = cnt +1
            End If
        Next
        e.DataRow("应出勤天数") = cnt
    End If
End If

每月考勤日期是从上一个月的21号开始到本月的20号结束,例如7月份考勤是从6月21日开始到7月20日结束
按上面的代码发现有31日的月计算出来的天数会少一天,例如从7月21日开始到8月20日结束,是23个工作日,也就是应出勤23天,但计算下来是22天
7月份没有31号,就没问题是因为考勤不是自然月的问题么?

 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:52879 积分:268032 威望:0 精华:8 注册:2015/6/24 9:21:00
  发帖心情 Post By:2020/6/22 17:22:00 [只看该作者]

我给的代码算的是自然月。跨月自己参考改改

 回到顶部
美女呀,离线,留言给我吧!
13775189031
  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:三尾狐 帖子:733 积分:4916 威望:0 精华:0 注册:2017/12/19 14:46:00
  发帖心情 Post By:2020/6/23 10:43:00 [只看该作者]

请老师帮忙改改
If e.DataCol.Name = "编号" Then
    Dim dr As DataRow = DataTables("考勤").Find("编号='" & e.NewValue & "'")
    If dr IsNot Nothing Then
        Dim cnt As Integer = 0
         Dim dt1 As Date = Date(year,addmonth(-1),21)
        Dim dt2 As Date = Date(year,month,20)
        For i As Integer = dt1 To dt2
            If dr.IsNull("考勤日期_" & i & "_休息日")
                cnt = cnt +1
            End If
        Next
        e.DataRow("应出勤天数") = cnt
    End If
End If

 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:52879 积分:268032 威望:0 精华:8 注册:2015/6/24 9:21:00
  发帖心情 Post By:2020/6/23 11:10:00 [只看该作者]

If e.DataCol.Name = "编号" Then
    Dim dr As DataRow = DataTables("考勤").Find("编号='" & e.NewValue & "'")
    If dr IsNot Nothing Then
        Dim cnt As Integer = 0
        Dim dt1 As Date = Date(year,addmonth(-1),21)
        Dim dt2 As Date = Date(year,month,20)
        Do While dt1 <= dt2
            If dr.IsNull("考勤日期_" & dt1.Day & "_休息日")
                cnt = cnt +1
            End If
            dt1.AddDays(1)
        Loop
        e.DataRow("应出勤天数") = cnt
    End If
End If

 回到顶部
总数 24 1 2 3 下一页