主题：交叉统计汇总行出现小数溢出

交叉统计汇总行出现小数溢出（分组统计不会）。有什么办法？

此主题相关图片如下：2010-8-26 16-34-15.png

是外部数据的做例子比较麻烦，不用红色部分就不会出现小数溢出，代码如下：

Dim g As New CrossTableBuilder("交叉统计", DataTables("总览"))
g.HGroups.AddDef("乡名")
g.VGroups.AddDef("造林年度","{0}年_总面积")
g.Totals.AddDef("保存面积","总面积")
g.HorizontalTotal = True
g.VerticalTotal = True
g.HorizontalProportion = True
g.VerticalProportion = True
g.Build()
MainTable = Tables("交叉统计")
Tables("交叉统计").Sort = "合计 DESC" '降序
Tables("交叉统计").AutoSizeCols()  '自动列宽
Tables("交叉统计").Cols.Frozen = 2  '冻结前二列

有近13M传不了，已经发到你的信箱hehui@datasoft.com.cn

之所以完整上传是为了你测试，难道小数溢出与数据源有关系吗？

为了能说明问题上传主程序，只要是交叉统计就会出现问题，不一定要按三楼的代码。

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:退耕还林数据管理系统.table

 

自定义菜单就有个交叉统计 数据维护—数据分析。我只要知道用什么办法可以避免小数溢出就行了

If ( e.Form.Controls("RadioButton1").Checked Or e.Form.Controls("RadioButton2").Checked Or e.Form.Controls("RadioButton3").Checked)= False Then
    Messagebox.Show("选一个项目")
    Return
End If
If ( e.Form.Controls("RadioButton4").Checked Or e.Form.Controls("RadioButton5").Checked )= False Then
    Messagebox.Show("选一个面积")
    Return
End If
Dim Filter As String
Dim cmb As WinForm.ComboBox=e.Form.Controls("ComboBox1")
If cmb.Value IsNot Nothing Then
    If Filter > "" Then
        Filter = Filter & " And "
    End If
    Filter = Filter & "乡名= '" & cmb.Value & "'"
End If
Dim g As New CrossTableBuilder("交叉统计", DataTables("总览"),Filter)
If e.Form.Controls("RadioButton1").Checked Then g.VGroups.AddDef("造林年度","{0}年_总面积")
    If e.Form.Controls("RadioButton2").Checked Then g.VGroups.AddDef("造林类别","{0}_总面积")
        If e.Form.Controls("RadioButton3").Checked Then  g.VGroups.AddDef("林种","{0}_总面积")
            If e.Form.Controls("RadioButton4").Checked Then  g.Totals.AddDef("保存面积","总面积")
                If e.Form.Controls("RadioButton5").Checked Then  g.Totals.AddDef("退耕地","总面积")
                    If cmb.Value  IsNot Nothing Then
                        g.HGroups.AddDef("村名")
                    Else
                        g.HGroups.AddDef("乡名")
                    End If
                    g.HorizontalTotal = True
                    g.VerticalTotal = True
                    g.HorizontalProportion = True
                    g.VerticalProportion = True
                    g.Build()
                    MainTable = Tables("交叉统计")
                    Tables("交叉统计").Sort = "合计 DESC"
                    Tables("交叉统计").AutoSizeCols()  '自动列宽
                    Tables("交叉统计").Cols.Frozen = 2  '冻结前二列

这个问题一直就有，只是统计表不好看对应的报表却没有这个问题。如果一时难办的话就不要再费神了。

我这里是正常的，水平分组列以乡名，垂直分组列造林类别，统计列设计面积

Dim g As New CrossTableBuilder("统计表1", DataTables("总览"))
g.HGroups.AddDef("乡名")
g.VGroups.AddDef("造林类别")
g.Totals.AddDef("设计面积", "设计面积")
g.HorizontalTotal = True
g.VerticalTotal = True
g.Build()
MainTable = Tables("统计表1")

 

惭愧!简单问题复杂化。记得以前有导入的数据会产生小数溢出一说。