Foxtable(狐表) → 用户栏目 → 专家坐堂 → 交?统计问题

共有118人关注过本帖树形打印复制链接主题：交?统计问题

lgz518

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

加好友

发短信

等级：六尾狐帖子：1293 积分：8818 威望：0 精华：0 注册：2019/6/13 9:57:00

交?统计问题 发帖心情

Post By：2025/1/6 14:02:00 [只看该作者]

如何让交叉统计统计，增加“小计，超差数，状态”？

Dim b As New CrossTableBuilder("统计表1", DataTables("表C"))

b.HGroups.AddDef("姓名") '

b.HGroups.AddDef("项目") '

b.HGroups.AddDef("计划运动量") '

b.VGroups.AddDef("日期", DateGroupEnum.Year, "{0}年") '

b.VGroups.AddDef("日期", DateGroupEnum.Month, "{0}月") '

b.Totals.AddDef("数量") '

b.Totals.AddDef("日运动量") '

b.Build '生成统计表

Maintable = Tables("统计表1") '打开生成的统计表

如图

此主题相关图片如下：交计算.jpg

有点蓝

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

加好友

发短信

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

Post By：2025/1/6 14:18:00 [只看该作者]

先生成统计表，再使用DataTables("统计表1").DataCols.Add这种方式添加表达式列，类似：http://www.foxtable.com/webhelp/topics/3227.htm

lgz518

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

加好友

发短信

等级：六尾狐帖子：1293 积分：8818 威望：0 精华：0 注册：2019/6/13 9:57:00

Post By：2025/1/6 14:53:00 [只看该作者]

先生成统计表

Dim b As New CrossTableBuilder("统计表1", DataTables("表C"))

b.HGroups.AddDef("姓名") '

b.HGroups.AddDef("项目") '

b.HGroups.AddDef("计划运动量") '

b.VGroups.AddDef("日期", DateGroupEnum.Year, "{0}年") '

b.VGroups.AddDef("日期", DateGroupEnum.Month, "{0}月") '

b.Totals.AddDef("数量") '

b.Totals.AddDef("日运动量") '

b.Build '生成统计表

'Maintable = Tables("统计表1") '打开生成的统计表

'Dim nms() As String = {"语文", "英语", "数学", "物理", "化学"}

2.绿色部分是如何加上，对红代码，没太理解，请帮处理？

Dim nms() As String = {"日期", "数量"}

For Each nm As String In nms '对生成的统计表增加表达式列,计算及格率和优秀率

DataTables("统计表1").DataCols.Add(nm & "小计", GetType(Double), nm & "_数量")

Tables("统计表1").Cols(nm & "超差数").Move(Tables("统计表1").Cols(nm & "超差数").Index + 1)

DataTables("统计表1").DataCols.Add(nm & "状态", GetType(Double), nm & "状态")

Tables("统计表1").Cols(nm & "状态").Move(Tables("统计表1").Cols(nm & "_状态").Index + 1)

MainTable = Tables("统计表1")

有点蓝

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

加好友

发短信

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

Post By：2025/1/6 15:40:00 [只看该作者]

……

b.Build '生成统计表

dim s as string = ""

for each c as col in Tables("统计表1").cols

if c.name like "数量_*" then

s = s & "+" & c.name

s = s.trim("+")

DataTables("统计表1").DataCols.Add("数量小计", GetType(Double), s)

DataTables("统计表1").DataCols.Add("超差数", GetType(Double), "数量小计 - 计划运动量")

lgz518

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

加好友

发短信

等级：六尾狐帖子：1293 积分：8818 威望：0 精华：0 注册：2019/6/13 9:57:00

Post By：2025/1/7 10:40:00 [只看该作者]

执行后，第一行没计算，如何解决？如下图

此主题相关图片如下：交计算-1.jpg

有点蓝

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

加好友

发短信

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

Post By：2025/1/7 10:42:00 [只看该作者]

加上isnull：http://www.foxtable.com/webhelp/topics/0602.htm

lgz518

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

加好友

发短信

等级：六尾狐帖子：1293 积分：8818 威望：0 精华：0 注册：2019/6/13 9:57:00

Post By：2025/1/7 11:52:00 [只看该作者]

Dim b As New CrossTableBuilder("统计表1", DataTables("表C"))

b.HGroups.AddDef("姓名") '

b.HGroups.AddDef("项目") '

b.HGroups.AddDef("计划运动量") '

b.VGroups.AddDef("日期", DateGroupEnum.Year, "{0}年") '

b.VGroups.AddDef("日期", DateGroupEnum.Month, "{0}月") '

b.VGroups.AddDef("日期", DateGroupEnum.Day, "{0}日")

b.Totals.AddDef("数量") '

b.Totals.AddDef("日运动量") '

b.Build '生成统计表

dim s as string = ""

for each c as col in Tables("统计表1").cols

if c.name like "数量_*" then

s = s & "+" & c.name

s = s.trim("+")

DataTables("统计表1").DataCols.Add("数量小计", GetType(Double), s)

DataTables("统计表1").DataCols.Add("超差数", GetType(Double), "数量小计 - 计划运动量")

加上红代码，取不到值，如何处理？

有点蓝

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

加好友

发短信

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

Post By：2025/1/7 12:02:00 [只看该作者]

什么地方没有值？截图说明

lgz518

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

加好友

发短信

等级：六尾狐帖子：1293 积分：8818 威望：0 精华：0 注册：2019/6/13 9:57:00

Post By：2025/1/7 13:43:00 [只看该作者]

问题一：没值

此主题相关图片如下：交没值.jpg

问题二：改代码，让统计结果在窗口上的表显示，下面代码报错，提示没"统计表1"，如何解决？

Dim b As New CrossTableBuilder("统计表1", DataTables("表C"))

b.HGroups.AddDef("姓名") '

b.HGroups.AddDef("项目") '

b.HGroups.AddDef("计划运动量") '

b.VGroups.AddDef("日期", DateGroupEnum.Year, "{0}年") '

b.VGroups.AddDef("日期", DateGroupEnum.Month, "{0}月") '

b.VGroups.AddDef("日期", DateGroupEnum.Day, "{0}日")

b.Totals.AddDef("数量") '

b.Totals.AddDef("日运动量") '

b.Build '生成统计表

dim s as string = ""

for each c as col in Tables("统计表1").cols

if c.name like "数量_*" then

s = s & "+" & c.name

s = s.trim("+")

DataTables("统计表1").DataCols.Add("数量小计", GetType(Double), s)

DataTables("统计表1").DataCols.Add("超差数", GetType(Double), "数量小计 - 计划运动量")

'MainTable = Tables("统计表1")

Tables("窗口2_Table1").DataSource = b.BuildDataSource()

有点蓝

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

加好友

发短信

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

Post By：2025/1/7 13:46:00 [只看该作者]

问题1、看6楼

2、请上传实例测试

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

总数 18 1 2 下一页

主题：交?统计问题

执行后，第一行没计算，如何解决？如下图