经检查，是这个代码按钮出问题
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
g.upto = True
t.SubtotalGroups.Add(g)
t.Subtotal()
Dim Sum1 As Double
Dim Sum2 As Double
For i As Double= 0 To CurrentTable.Rows.Count(True) - 1
Dim r As Row = CurrentTable.Rows(i,True)
If r.IsGroup
If r("出入库日期").EndsWith("小计") Then
sum1 = sum1 +r("期初_数量")+ r("入库_数量")- r("出库_数量")
sum2 = sum2 +r("期初_金额")+ r("入库_金额")- r("出库_金额")
End If
r("库存_数量") = sum1
r("库存_金额") = sum2
End If
Next
加好友 
发短信
Post By：2011/6/29 20:55:00 [只看该作者]
此主题相关图片如下：20110629-截图 1.png
