以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  出勤状况月度汇总  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=88712)

--  作者:zhangning
--  发布时间:2016/8/8 12:33:00
--  出勤状况月度汇总
有一个数据表,名称:出勤相关


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

其中 出勤分类列 有   加班、请假、迟到、早退、未打卡等项目

如何统计汇总成以下效果:

图片点击可在新窗口打开查看此主题相关图片如下:2.png
图片点击可在新窗口打开查看
月度汇总时,每人占一行,

请老师帮看看,谢谢!


--  作者:大红袍
--  发布时间:2016/8/8 14:20:00
--  

先生成交叉统计表。

 

http://www.foxtable.com/webhelp/scr/0165.htm

 


--  作者:zhangning
--  发布时间:2016/8/9 9:33:00
--  
谢谢老师,我在上图中用代码自动显示的星期几,
If e.DataCol.Name = "日期" Then
    If e.NewValue = Nothing Then
        e.DataRow("星期") = Nothing
    Else
        e.DataRow("星期") = Format(e.newValue, "dddd")
    End If
End If
但是只是当时显示,保存后,再次打开后,消失了。

请问老师,如何才能不消失呢?



--  作者:Hyphen
--  发布时间:2016/8/9 9:43:00
--  
如果是统计表,属于临时表,没有办法保存的。需要的时候重新生成统计表即可
--  作者:zhangning
--  发布时间:2016/8/9 9:47:00
--  
老师,如何能让  星期几也不消失呢

图片点击可在新窗口打开查看此主题相关图片如下:3.png
图片点击可在新窗口打开查看
想让日期下面,现在是“空“的位置显示“星期一”等周几



--  作者:大红袍
--  发布时间:2016/8/9 10:08:00
--  
以下是引用zhangning在2016/8/9 9:47:00的发言:
老师,如何能让  星期几也不消失呢

图片点击可在新窗口打开查看此主题相关图片如下:3.png
想让日期下面,现在是“空“的位置显示“星期一”等周几


 

1、你星期几的列,不能用表达式列,必须是数据列,不然数据是不保存的。

 

2、代码应该是没问题的。


--  作者:zhangning
--  发布时间:2016/8/9 10:22:00
--  
果然是表达式的问题,谢谢老师,
如果只统计2016年8月的,如何在交叉统计中设置条件呢?


--  作者:大红袍
--  发布时间:2016/8/9 10:31:00
--  
以下是引用zhangning在2016/8/9 10:22:00的发言:
果然是表达式的问题,谢谢老师,
如果只统计2016年8月的,如何在交叉统计中设置条件呢?

 

Dim d As Date = New Date(2016, 8, 1)

交叉统计对象.Filter = "日期 >= #" & d & "# and 日期 < #" & d.AddMonths(1) & "#"


--  作者:zhangning
--  发布时间:2016/8/9 10:37:00
--  
老师,不好意思,我将上述代码放哪里呢?


--  作者:大红袍
--  发布时间:2016/8/9 10:43:00
--  
以下是引用zhangning在2016/8/9 10:37:00的发言:
老师,不好意思,我将上述代码放哪里呢?

 

设置交叉统计,用代码处理

 

http://www.foxtable.com/webhelp/scr/0678.htm

 

http://www.foxtable.com/webhelp/scr/2672.htm