以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  人数考勤求思路,列可以按日如图  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=112883)

--  作者:舞楼名角
--  发布时间:2018/1/4 16:10:00
--  人数考勤求思路,列可以按日如图
人数考勤求思路,列可以按日如图。


图片点击可在新窗口打开查看此主题相关图片如下:人数考勤.png
图片点击可在新窗口打开查看


--  作者:有点甜
--  发布时间:2018/1/4 16:14:00
--  

方法一:一个日期列,一个考勤列,加上其它列;这样利于统计。

 

方法二:按照你图片那样设计31列。


--  作者:舞楼名角
--  发布时间:2018/1/4 16:22:00
--  
先谢谢。

方法一:一个日期列,一个考勤列,加上其它列;这样利于统计。(这个确实可以,就是数据很庞大,可能每天就有上百个组要填)

 

方法二:按照你图片那样设计31列。(设计31列,就是每月天数不一样,希望屏蔽没有的日期填上,不知道有没办法处理)


--  作者:有点甜
--  发布时间:2018/1/4 16:54:00
--  
以下是引用舞楼名角在2018/1/4 16:22:00的发言:

(设计31列,就是每月天数不一样,希望屏蔽没有的日期填上,不知道有没办法处理)

 

1、年份、月份,分别填入 2018,2,这样的数据;日期列,这样命名,如 日1、日2、日3、日4.....

 

2、startEdit事件写代码

 

If e.Col.Name Like "日*" AndAlso e.Row.isnull("年份") = False AndAlso e.Row.isnull("月份") = False Then

    Dim n As Integer = Date.DaysInMonth(e.Row("年份"), e.Row("月份"))

    If e.Col.name.replace("日", "") > n Then

        e.cancel = True

    End If

End If


--  作者:舞楼名角
--  发布时间:2018/1/4 17:21:00
--  
这个可以,3Q