[求助] 交叉统计表中，如何增加表达式 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助] 交叉统计表中，如何增加表达式

共有1884人关注过本帖树形打印复制链接主题：[求助] 交叉统计表中，如何增加表达式

2900819580

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：六尾狐帖子：1346 积分：9807 威望：0 精华：0 注册：2015/6/30 8:46:00

[求助] 交叉统计表中，如何增加表达式 发帖心情

Post By：2017/5/5 16:09:00 [只看该作者]

如下图片和代码，请教两个问题

1）如何可以将列名中的出勤时间* 改为放假，加班，请假，上班，等

2）如果可以增加列是设定表达式 dt.DataCols.Add("上班天数",Gettype(Double),上班 / 8) 注意，上班有的列名有时会变成了出勤时间3，有时会变其它数字

此主题相关图片如下：无标题.png

Dim g As New CrossTableBuilder(bb, DataTables("出勤汇总"))

g.HGroups.AddDef("部门")

g.HGroups.AddDef("姓名")

g.HGroups.AddDef("年份")

g.HGroups.AddDef("月份")

g.VGroups.AddDef("出勤情况")

g.Totals.AddDef("出勤时间", "出勤时间")

g.Filter = fi

g.Build()

Dim dt As DataTable = DataTables(bb)

For Each c As DataCol In dt.DataCols

If c.Caption = "上班" Then dt.DataCols.Add("上班天数",Gettype(Double),c.Name / 8)

有点色

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：13837 积分：69650 威望：0 精华：0 注册：2016/11/1 14:42:00

Post By：2017/5/5 16:45:00 [只看该作者]

1、列名不能修改，只能修改标题；

2、定义一个字典来用

Dim dic As new Dictionary(Of String, String)
For Each c As Col In Tables(bb).cols
dic.add(c.Caption, c.Name)
Next

dt.DataCols.Add("上班天数",Gettype(Double), dic("上班") & "/ 8")

dt.DataCols.Add("加班天数",Gettype(Double), dic("加班") & "/ 8")

dt.DataCols.Add("请假天数",Gettype(Double), dic("请假") & "/ 8")

[此贴子已经被作者于2017/5/5 17:24:07编辑过]

2900819580

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：六尾狐帖子：1346 积分：9807 威望：0 精华：0 注册：2015/6/30 8:46:00

Post By：2017/5/5 17:12:00 [只看该作者]

此主题相关图片如下：无标题.png

有错误。。。。

有点蓝

小大 4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：110337 积分：561533 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2017/5/5 17:15:00 [只看该作者]

dt.DataCols.Add("上班天数",Gettype(Double), dic("上班") &" / 8") '其它自己改改

下一主题 >> << 上一主题

主题：[求助] 交叉统计表中，如何增加表达式