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

Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]统计汇总

共有3571人关注过本帖树形打印复制链接主题：[求助]统计汇总

天一生水

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

加好友

发短信

等级：五尾狐帖子：1141 积分：11272 威望：0 精华：0 注册：2017/9/26 16:30:00

[求助]统计汇总 发帖心情

Post By：2020/10/26 17:00:00 [只看该作者]

老师好！

怎样在统计表中，每一天下面增加一行汇总行。

汇总列：[涨跌次数]=牛的次数-熊的次数； [预测涨跌幅]=牛的涨跌幅+熊的涨跌幅。

如图，图一是数据表；图二是统计表：

此主题相关图片如下：截屏图片.jpg

此主题相关图片如下：截屏图片 (1).jpg

'''

Dim cn As String = "gp99" 'sql外部数据源

Dim bm As String = "统计表1"

Dim b As New SQLGroupTableBuilder(bm,"批量预测")

b.ConnectionName = cn

b.Groups.AddDef("日期",DateGroupEnum.Month,"月份") '根据产品分组

b.Groups.AddDef("日期",DateGroupEnum.none) '根据产品分组

b.Groups.AddDef("牛熊") '根据分组

b.Totals.AddDef("牛熊",AggregateEnum.Count,"涨跌次数")

b.Totals.AddDef("预测涨跌幅") '对数量进行统计

b.Build '生成统计表

Tables("批量选股_Table10").DataSource = b.BuildDataSource()

Dim dt As Table = Tables("批量选股_Table10")

Dim g As Subtotalgroup

dt.SubtotalGroups.Clear()

'定义分组

g = New Subtotalgroup

g.GroupOn = "月份"

g.TotalOn = "牛熊,预测涨跌幅,涨跌次数"

dt.SubtotalGroups.Add(g)

dt.Subtotal() '生成汇总模式

dt.GroupAboveData = True '分组行位于数据行之上

dt .TreeVisible = True '显示目录树

With Tables("批量选股_Table10") '合并

.MergeMode = MergeModeEnum.Standard '标准合并模式

.MergeCols.Clear() '清除原来的合并列

Dim Names As String() = {"月份","日期","牛熊"}

For i As Integer = 0 To Names.Length -1

.MergeCols.Add(Names(i))

.AllowMerge = True '启用合并模式

End With

有点蓝

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

加好友

发短信

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

Post By：2020/10/26 17:04:00 [只看该作者]

按日期汇总：g.GroupOn = "日期"

天一生水

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

加好友

发短信

等级：五尾狐帖子：1141 积分：11272 威望：0 精华：0 注册：2017/9/26 16:30:00

Post By：2020/10/26 21:13:00 [只看该作者]

谢谢蓝老师！可以了。

再问个问题：

如果统计表采用一天一行的方式，如图，统计列的表达式怎样写？

图片点击可在新窗口打开查看此主题相关图片如下：截屏图片 (2).jpg

Dim cn As String = "gp99" 'sql外部数据源

Dim bm As String = "统计表1"

Dim b As New SQLGroupTableBuilder(bm,"批量预测")

b.ConnectionName = cn

b.Groups.AddDef("日期",DateGroupEnum.Month,"月份")

b.Groups.AddDef("日期",DateGroupEnum.none)

b.Groups.AddDef("牛熊"，"牛涨跌次数") '分组

b.Totals.AddDef("牛熊",AggregateEnum.Count,"牛涨跌次数")

b.Groups.AddDef("牛熊"，"熊涨跌次数") '分组

b.Totals.AddDef("牛熊",AggregateEnum.Count,"熊涨跌次数")

......

b.Build '生成统计表

Tables("批量选股_Table10").DataSource = b.BuildDataSource()

有点蓝

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

加好友

发短信

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

Post By：2020/10/26 21:39:00 [只看该作者]

Dim cn As String = "gp99" 'sql外部数据源

Dim bm As String = "统计表1"

Dim b As New SQLGroupTableBuilder(bm,"批量预测")

b.ConnectionName = cn

b.Groups.AddDef("日期",DateGroupEnum.Month,"月份")

b.Groups.AddDef("日期",DateGroupEnum.none)

b.Totals.Addexp("牛涨跌次数","iif(牛熊,1,0)")
b.Totals.Addexp("熊涨跌次数","iif(牛熊=false,1,0)")

http://www.foxtable.com/webhelp/topics/2960.htm

天一生水

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

加好友

发短信

等级：五尾狐帖子：1141 积分：11272 威望：0 精华：0 注册：2017/9/26 16:30:00

Post By：2020/10/27 19:21:00 [只看该作者]

谢谢蓝老师！

但是出个问题，统计表绑定窗口表显示时会报错，直接在数据表显示没问题。这是什么原因？

代码如下：

Dim bm As String = "统计表1"
Dim b As New SQLGroupTableBuilder(bm,"批量预测")
b.ConnectionName = cn
b.Groups.AddDef("日期",DateGroupEnum.Month,"月份")
b.Groups.AddDef("日期",DateGroupEnum.none)
b.Totals.Addexp("牛涨跌次数","Case When 牛熊 ='牛' then 1 else 0 End")
b.Totals.Addexp("熊涨跌次数","Case When 牛熊 ='熊' then -1 else 0 End")
b.Totals.Addexp("牛预测涨跌幅","Case When 牛熊 ='牛' then 预测涨跌幅 else 0 End")
b.Totals.Addexp("熊预测涨跌幅","Case When 牛熊 ='熊' then 预测涨跌幅 else 0 End")
b.Totals.Addexp("牛熊次数","Case When 牛熊 ='牛' then 1 else 0 End + Case When 牛熊 ='熊' then -1 else 0 End")
b.Totals.Addexp("牛熊涨跌幅","Case When 牛熊 ='牛' then 预测涨跌幅 else 0 End + Case When 牛熊 ='熊' then 预测涨跌幅 else 0 End")
b.Build '生成统计表

'MainTable = Tables("统计表1") ----------------这样显示没问题
Tables("批量选股_Table10").DataSource = b.BuildDataSource() ------------绑定窗口表显示会报错

此主题相关图片如下：截屏图片 (8).jpg

有点蓝

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

加好友

发短信

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

Post By：2020/10/27 20:10:00 [只看该作者]

去掉这一句：b.Build

天一生水

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

加好友

发短信

等级：五尾狐帖子：1141 积分：11272 威望：0 精华：0 注册：2017/9/26 16:30:00

Post By：2020/10/27 21:45:00 [只看该作者]

谢谢老师！

还有个问题：这个窗口表，没有绑定数据表，类型是normal。我设置最后两列的样式，如果大于0，是红色；小于0，是绿色。

但是没有效果。

代码如下，是什么原因？

项目属性-全局表事件-DrawCell：

Select Case e.Table.Name

Case "批量选股_table10"
        DataTables("批量选股_table10").AddUserStyle("a1", Color.skyblue, Color.black) '未来
        DataTables("批量选股_table10").AddUserStyle("b1", Color.Red , Color.White)    '正值
        DataTables("批量选股_table10").AddUserStyle("c1", Color.GreenYellow, Color.blue)    '负值

        If e.Col.Name = "日期" Then
            If e.Row.IsNull(e.Col.Name) = False '且该列已经输入内容
                If e.Row(e.Col.Name) > Date.Today Then
                    e.Style = "a1" '那么用"不及格"样式绘制单元格
                End If
            End If
        Else

            If e.Col.Name = "牛熊次数" Or e.Col.Name = "牛熊涨跌幅" Then
                If e.Row.IsNull(e.Col.Name) = False '且该列已经输入内容
                    If e.Row(e.Col.Name) > 0 Then '如果该列的值小于60
                        e.Style = "b1" '那么用样式绘制单元格
                    Else
                        e.Style = "c1" '那么用样式绘制单元格
                    End If
                End If
            End If

End Select

这三句代码写进窗口的afterload也不行：

Tables("批量选股_table10").DataTable.AddUserStyle("a1", Color.skyblue, Color.black) '未来
Tables("批量选股_table10").DataTable.AddUserStyle("b1", Color.Red , Color.White) '正值
Tables("批量选股_table10").DataTable.AddUserStyle("c1", Color.GreenYellow, Color.blue) '负值

[此贴子已经被作者于2020/10/27 21:45:21编辑过]