谢谢蓝老师！可以了。

再问个问题：

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

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

谢谢蓝老师！

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

代码如下：

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()    ------------绑定窗口表显示会报错

谢谢老师！

还有个问题：这个窗口表，没有绑定数据表，类型是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)    \'负值

还是没效果