如何在小计列中计算出库存的累计数是31呢? - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 如何在小计列中计算出库存的累计数是31呢?

共有12408人关注过本帖树形打印复制链接主题：如何在小计列中计算出库存的累计数是31呢?

fyj0326

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：一尾狐帖子：416 积分：3789 威望：0 精华：0 注册：2009/12/12 17:04:00

如何在小计列中计算出库存的累计数是31呢? 发帖心情

Post By：2011/6/8 21:48:00 [只看该作者]

我想在此流水帐的
小计行的库存列中计算出库存的累计数是31（收入累计55-支出累计24=31），而不是累计库存为67

图片点击可在新窗口打开查看

此主题相关图片如下：20110608-截图 1.png

请高手指教，谢谢！

ybil

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：521 积分：4916 威望：0 精华：7 注册：2008/9/2 22:22:00

Post By：2011/6/8 23:16:00 [只看该作者]

试试在原来代码的最后加上下面的代码

With CurrentTable

.Rows(.Rows.count,True)("库存") = .Rows(.Rows.count,True)("入库")-.Rows(.Rows.count,True)("出库")

End With

狐狸爸爸

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：管理员帖子：47511 积分：251479 威望：0 精华：91 注册：2008/6/17 17:14:00

Post By：2011/6/9 8:18:00 [只看该作者]

分组统计的时候，统计列加上库存，不就行了吗？

fyj0326

小大 4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：一尾狐帖子：416 积分：3789 威望：0 精华：0 注册：2009/12/12 17:04:00

可以计出库存为31了，谢谢 发帖心情

Post By：2011/6/9 8:46:00 [只看该作者]

此主题相关图片如下：20110609-截图 1.png

fyj0326

小大 5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：一尾狐帖子：416 积分：3789 威望：0 精华：0 注册：2009/12/12 17:04:00

代码

Post By：2011/6/9 8:47:00 [只看该作者]

Dim t As Table = Tables("例子二")
Dim g As Subtotalgroup
t.SubtotalGroups.Clear()
t.GroupAboveData = False
t.TreeVisible = False
t.SpillNode = True

g = New Subtotalgroup
g.Aggregate = AggregateEnum.Sum
g.GroupOn = "*"
g.TotalOn = "入库,出库,库存"
g.Caption = "总计"
t.SubtotalGroups.Add(g)

t.Subtotal()
With CurrentTable
.Rows(.Rows.count,True)("库存") = .Rows(.Rows.count,True)("入库")-.Rows(.Rows.count,True)("出库")
End With

狐狸爸爸

小大 6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：管理员帖子：47511 积分：251479 威望：0 精华：91 注册：2008/6/17 17:14:00

Post By：2011/6/9 8:47:00 [只看该作者]

参考：

http://help.foxtable.com/topics/1911.htm

fyj0326

小大 7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：一尾狐帖子：416 积分：3789 威望：0 精华：0 注册：2009/12/12 17:04:00

在下面代码中如何使库存的累计也为36，而不是累计为222呢? 发帖心情

Post By：2011/6/9 10:04:00 [只看该作者]

在下面代码中如何使库存的累计也为36，而不是软件生成的库存累计为222呢?

Dim t As Table = Tables("例子二")
Dim g As Subtotalgroup
t.SubtotalGroups.Clear()
t.GroupAboveData = False
t.TreeVisible = False
t.SpillNode = True

g = New Subtotalgroup
g.Aggregate = AggregateEnum.Sum
g.GroupOn = "日期"
g.TotalOn = "入库,出库,库存"
g.Caption = "{0}月小计"
g.DateGroup = DateGroupEnum.Month
t.SubtotalGroups.Add(g)

g = New Subtotalgroup
g.Aggregate = AggregateEnum.Sum
g.GroupOn = "日期"
g.TotalOn = "入库,出库,库存"
g.Caption = "{0}月累计"
g.DateGroup = DateGroupEnum.Month
t.SubtotalGroups.Add(g)

With CurrentTable
.Rows(.Rows.count,True)("库存") = .Rows(.Rows.count,True)("入库")-.Rows(.Rows.count,True)("出库")
End With

此主题相关图片如下：20110609-截图 2.png

狐狸爸爸

小大 8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：管理员帖子：47511 积分：251479 威望：0 精华：91 注册：2008/6/17 17:14:00

Post By：2011/6/9 10:15:00 [只看该作者]

Dim t As Table = Tables("例子二")
Dim g As Subtotalgroup
t.SubtotalGroups.Clear()
t.GroupAboveData = False
t.TreeVisible = False
t.SpillNode = True

g = New Subtotalgroup
g.Aggregate = AggregateEnum.Sum
g.GroupOn = "日期"
g.TotalOn = "入库,出库,库存"
g.Caption = "{0}月小计"
g.DateGroup = DateGroupEnum.Month
t.SubtotalGroups.Add(g)

g = New Subtotalgroup
g.Aggregate = AggregateEnum.Sum
g.GroupOn = "日期"
g.TotalOn = "入库,出库,库存"
g.Caption = "{0}月累计"
g.DateGroup = DateGroupEnum.Month
t.SubtotalGroups.Add(g)
t.Subtotal

For i As Integer = 0 To CurrentTable.Rows.Count(True) - 1
    Dim r As Row = CurrentTable.Rows(i,True)
    If r.IsGroup
        r("库存") = r("入库")- r("出库")
    End If
Next

hhbb

小大 9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：等待验证帖子：386 积分：2482 威望：0 精华：1 注册：2011/5/10 11:13:00

Post By：2011/6/9 12:26:00 [只看该作者]

以下是引用狐狸爸爸在2011-6-9 8:47:00的发言：

参考：

http://help.foxtable.com/topics/1911.htm

目前判断是否汇总行只有不管3721，For i As Integer = 0 To Tables("XXX").Rows.Count(True) - 1，判断是否汇总行，这样效率是否太低！是否Rows应该有个Groups属性，返回汇总行集合！

狐狸爸爸

小大 10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：管理员帖子：47511 积分：251479 威望：0 精华：91 注册：2008/6/17 17:14:00

Post By：2011/6/9 12:27:00 [只看该作者]

也不算低的。

下一主题 >> << 上一主题

主题：如何在小计列中计算出库存的累计数是31呢?