Foxtable(狐表)用户栏目专家坐堂 → 求教累计值问题


  共有16694人关注过本帖树形打印复制链接

主题:求教累计值问题

帅哥哟,离线,有人找我吗?
liuruihua
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:四尾狐 帖子:781 积分:9870 威望:0 精华:0 注册:2008/9/1 13:47:00
求教累计值问题  发帖心情 Post By:2010/1/10 22:32:00 [只看该作者]

用户已被锁定

 回到顶部
帅哥哟,离线,有人找我吗?
czy
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信 一级勋章 三级勋章 二级勋章
等级:超级版主 帖子:6318 积分:33963 威望:0 精华:10 注册:2008/8/31 20:56:00
  发帖心情 Post By:2010/1/11 0:29:00 [只看该作者]

Dim dt As DataTable = DataTables("表A")
For Each dr As DataRow In dt.DataRows
    dr("累计产蛋量") = Math.Round(dt.Compute("Sum(产蛋率)","[批次] = '" & dr("批次") & "' And [日期] <= #" & dr("日期") & "#"),3)
Next

 回到顶部
帅哥哟,离线,有人找我吗?
liuruihua
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:四尾狐 帖子:781 积分:9870 威望:0 精华:0 注册:2008/9/1 13:47:00
  发帖心情 Post By:2010/1/11 12:39:00 [只看该作者]

用户已被锁定

 回到顶部
帅哥哟,离线,有人找我吗?
liuruihua
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:四尾狐 帖子:781 积分:9870 威望:0 精华:0 注册:2008/9/1 13:47:00
  发帖心情 Post By:2010/1/11 13:59:00 [只看该作者]

用户已被锁定

 回到顶部
帅哥哟,离线,有人找我吗?
liuruihua
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:四尾狐 帖子:781 积分:9870 威望:0 精华:0 注册:2008/9/1 13:47:00
  发帖心情 Post By:2010/1/11 21:00:00 [只看该作者]

用户已被锁定

 回到顶部
帅哥哟,离线,有人找我吗?
czy
  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信 一级勋章 三级勋章 二级勋章
等级:超级版主 帖子:6318 积分:33963 威望:0 精华:10 注册:2008/8/31 20:56:00
  发帖心情 Post By:2010/1/11 21:35:00 [只看该作者]

2楼的代码本来就是窗口按钮的代码。

 回到顶部
帅哥哟,离线,有人找我吗?
czy
  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信 一级勋章 三级勋章 二级勋章
等级:超级版主 帖子:6318 积分:33963 威望:0 精华:10 注册:2008/8/31 20:56:00
  发帖心情 Post By:2010/1/11 21:43:00 [只看该作者]

以下是引用liuruihua在2010-1-11 13:59:00的发言:

C版,上面的代码在数据量多时近乎呈死机现象,不得不强行关闭。如果不想通过专门的一列来统计“累计产蛋量”,只要在窗口统计中能实现这样的功能即可,但不知代码如何写如:
Dim b As New SQLGroupTableBuilder("统计表1","表A")
b.Groups.AddDef("批次")
b.Groups.AddDef("日期", DateGroupEnum.Year, "年")
b.Groups.AddDef("日期", DateGroupEnum.month, "月")
b.Groups.AddDef("日期", DateGroupEnum.Day, "日")

b.Totals.Addexp("累计产蛋量","  ? ? ? ? ? ? ?)


请指教!

[此贴子已经被作者于2010-1-11 19:38:14编辑过]



Dim g As New GroupTableBuilder("统计表1", DataTables("表A"))
g.Groups.AddDef("批次")
g.Groups.AddDef("日期", DateGroupEnum.Year, "年")
g.Groups.AddDef("日期", "月")
g.Groups.AddDef("日期", DateGroupEnum.Day, "日")
g.Totals.AddDef("产蛋率",True)
g.TableVisible = false
Tables("窗口1_Table1").DataSource = g.BuildDataSource


 回到顶部
帅哥哟,离线,有人找我吗?
liuruihua
  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:四尾狐 帖子:781 积分:9870 威望:0 精华:0 注册:2008/9/1 13:47:00
  发帖心情 Post By:2010/1/11 22:49:00 [只看该作者]

用户已被锁定

 回到顶部
帅哥哟,离线,有人找我吗?
czy
  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信 一级勋章 三级勋章 二级勋章
等级:超级版主 帖子:6318 积分:33963 威望:0 精华:10 注册:2008/8/31 20:56:00
  发帖心情 Post By:2010/1/11 23:57:00 [只看该作者]

你的版本不对吧。

 回到顶部
帅哥哟,离线,有人找我吗?
liuruihua
  10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:四尾狐 帖子:781 积分:9870 威望:0 精华:0 注册:2008/9/1 13:47:00
  发帖心情 Post By:2010/1/12 16:08:00 [只看该作者]

用户已被锁定

 回到顶部
总数 25 1 2 3 下一页