共25 条记录, 每页显示 10 条, 页签: [1] [2][3]

标题：求教累计值问题

1楼

liuruihua 发表于：2010/1/10 22:32:00

用户已锁定！

2楼

czy 发表于：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

3楼

liuruihua 发表于：2010/1/11 12:39:00

用户已锁定！

4楼

liuruihua 发表于：2010/1/11 13:59:00

用户已锁定！

5楼

liuruihua 发表于：2010/1/11 21:00:00

用户已锁定！

6楼

czy 发表于：2010/1/11 21:35:00

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

7楼

czy 发表于：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

8楼

liuruihua 发表于：2010/1/11 22:49:00

用户已锁定！

9楼

czy 发表于：2010/1/11 23:57:00

你的版本不对吧。

10楼

liuruihua 发表于：2010/1/12 16:08:00

用户已锁定！

共25 条记录, 每页显示 10 条, 页签: [1] [2][3]