Dim t As Table = e.Form.Controls("Table1").Table
Dim g As Subtotalgroup
t.SubtotalGroups.Clear()
g = New Subtotalgroup '定义一个新的分组
g.Aggregate = AggregateEnum.Sum '统计类型为求和
g.GroupOn = "母卷号" '分组列为客户
g.TotalOn = "重量" '统计数量和金额列
g.Caption = "{0} 小计" '设置标题
t.SubtotalGroups.Add(g) '加到分组集合中
g = New Subtotalgroup
g.Aggregate = AggregateEnum.Sum
g.GroupOn = "牌号"
g.TotalOn = "重量"
g.Caption = "{0} 小计"
t.SubtotalGroups.Add(g)
'定义总计分组
g = New Subtotalgroup
g.Aggregate = AggregateEnum.Sum
g.GroupOn = "*" '注意总计分组用符号*表示.
g.TotalOn = "重量"
g.Caption = "总计"
t.SubtotalGroups.Add(g)
t.Subtotal() '生成汇总模式
Dim r As Row
For i As Integer = 0 To t.Rows.Count(True) - 1
r = t.Rows(i,True)
If r.IsGroup And r("牌号").Contains("304") And r("牌号").Contains("小计")
r.Remove
End If
Next
代码的目的是移除分组行是 "304 小计" 的这一行，上面代码无效，请问老师如何解决，谢谢！
[此贴子已经被作者于2019/4/15 11:50:52编辑过]
加好友 
发短信
Post By：2019/4/15 11:50:00 [只看该作者]
