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

按钮公式改为：

Syscmd.Project.Save()
Dim b As New SQLGroupTableBuilder("统计表1","fhjl")
b.Groups.AddDef("批次")
b.Totals.AddDef("实孵数量")
b.Totals.AddDef("受精蛋")
b.Build
With DataTables("统计表1")
.DataCols.Add("受精率", GetType(Double), "[受精蛋] /[实孵数量]")
End With
Tables("窗口1_Table1").DataSource = DataTables("统计表1")

1、您进行的是后台统计，不进行保存的话修改后的数据没有保存到后台的datatable。
2、您的这种统计方法应用的表达式针对的是原始数据表，当出现与分组列相同的两条数据时出现错误，因此改用了增加受精率列的同时使用表达式功能。
3、由于采用了增加列的方式，原来绑定表的方法则对新增加的受精率列无效，因此，只能直接绑定到DataTables("统计表1")

其他的办法就只能等其他高手来实现，我对统计功能没有深入，今天只是试手，只能说是达到您的目的，方法不一定准确！

Dim b As New SQLGroupTableBuilder("统计表1","fhjl")
b.Groups.AddDef("批次")
b.Totals.AddDef("实孵数量")
b.Totals.AddDef("受精蛋")
b.Exprs.Adddef("受精率","[受精蛋]/[实孵数量]",AggregateEnum.Average)
b.Build
Tables("窗口1_Table1").DataSource = b.BuildDataSource

那这样试试

Dim b As New SQLGroupTableBuilder("统计表1","fhjl")
b.Groups.AddDef("批次")
b.Totals.AddDef("实孵数量")
b.Totals.AddDef("受精蛋")
b.Exprs.Adddef("受精率","[受精蛋]/[实孵数量]")
b.Build
DataTables("统计表1").DataCols("受精率").Expression = "[受精蛋] /[实孵数量]"
Tables("窗口1_Table1").DataSource = DataTables("统计表1")

是bug，只有老六才可以搞定它。

liuruihua	小大 1楼 \| 信息 \| 搜索 \| 邮箱 \| 主页 \| UC
加好友发短信等级：四尾狐帖子：781 积分：9870 威望：0 精华：0 注册：2008/9/1 13:47:00	数据统计结果不正确 Post By：2009/9/25 22:32:00 [只看该作者] 用户已被锁定

liuruihua	小大 4楼 \| 信息 \| 搜索 \| 邮箱 \| 主页 \| UC
加好友发短信等级：四尾狐帖子：781 积分：9870 威望：0 精华：0 注册：2008/9/1 13:47:00	Post By：2009/9/26 19:12:00 [只看该作者] 用户已被锁定

liuruihua	小大 6楼 \| 信息 \| 搜索 \| 邮箱 \| 主页 \| UC
加好友发短信等级：四尾狐帖子：781 积分：9870 威望：0 精华：0 注册：2008/9/1 13:47:00	Post By：2009/9/29 12:37:00 [只看该作者] 用户已被锁定

liuruihua	小大 7楼 \| 信息 \| 搜索 \| 邮箱 \| 主页 \| UC
加好友发短信等级：四尾狐帖子：781 积分：9870 威望：0 精华：0 注册：2008/9/1 13:47:00	Post By：2009/9/30 23:09:00 [只看该作者] 用户已被锁定

主题：数据统计结果不正确