以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  这个问题能不能帮我解决  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=10820)
--  作者：dd-zdh
--  发布时间：2011/6/25 10:06:00
--  这个问题能不能帮我解决

多看看帮助了：：：：：：

Dim Sum As Double
Sum = Tables("订单").Compute("Sum(数量)", "产品 = \'PD01\'")



帮助我看了，但就是实现不了！分别统计出来各个产品现有的库存，并最后累加到一个变量里，做为所有产品的现在库存
求助
--  作者：狐狸爸爸
--  发布时间：2011/6/25 10:29:00
--  

不用累加，直接：

 

Dim Sum As Double
Sum = Tables("订单").Compute("Sum(数量)")
--  作者：dd-zdh
--  发布时间：2011/6/25 11:16:00
--  

你没明白我的意思，就这个例子，我想分别统计出来各个产品现有的库存，并最后累加到一个变量里，做为所有产品的现在库存

 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:进销存2.rar
--  作者：狐狸爸爸
--  发布时间：2011/6/25 11:25:00
--  

你既然各产品都算出来了，算完之后，进销存表生成汇总模式就行了，做个按钮，代码为：

 

DataTables("进销存").DataCols("代码").RaiseDataColChanged()

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()

 
--  作者：dd-zdh
--  发布时间：2011/6/25 11:31:00
--  
狐爸！你看一下，这个结存数量是多少，是期初+入库-出库的吗？这是不对的
--  作者：狐狸爸爸
--  发布时间：2011/6/25 11:39:00
--  

DataTables("进销存").DataCols("代码").RaiseDataColChanged()

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()

Dim r As Row = t.Rows(t.Rows.Count(True) - 1, True)
r("结存数量") = r("期初数量") + r("入库数量") - r("出库数量")
r("结存金额") = r("期初金额") + r("入库金额") - r("出库金额")

 

参考：

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

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

 

[此贴子已经被作者于2011-6-25 11:40:34编辑过]
--  作者：dd-zdh
--  发布时间：2011/6/25 11:53:00
--  

好，谢谢！