我在窗口有一张表,为副本表,我利用Tables("窗口1_Table1").DataSource = DataTables("订单明细")切换表.我想问的是如果我切换到订单明细时,我想利用
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 = "尺码1,尺码2,尺码3,尺码4,尺码5,尺码6,尺码7,尺码8,TOTAL"
g.Caption = "总计"
t.SubtotalGroups.Add(g)
g = New Subtotalgroup
g.Aggregate = AggregateEnum.Sum
g.GroupOn = "色号"
g.TotalOn = "尺码1,尺码2,尺码3,尺码4,尺码5,尺码6,尺码7,尺码8,TOTAL"
g.Caption = "{0} 小计"
t.SubtotalGroups.Add(g)
t.Subtotal()
做订单明细的合计.
切换到装箱单:
Dim t1 As Table = Tables("装箱单")
Dim g1 As Subtotalgroup
t1.SubtotalGroups.Clear()
t1.GroupAboveData = False
t1.TreeVisible = False
t1.SpillNode = True
g1 = New Subtotalgroup
g1.Aggregate = AggregateEnum.Sum
g1.GroupOn = "*"
g1.TotalOn = "箱数,尺码1,尺码2,尺码3,尺码4,尺码5,尺码6,尺码7,尺码8,总件数"
g1.Caption = "总计"
t1.SubtotalGroups.Add(g1)
g1 = New Subtotalgroup
g1.Aggregate = AggregateEnum.Sum
g1.GroupOn = "色号"
g1.TotalOn = "箱数,总件数,尺码1,尺码2,尺码3,尺码4,尺码5,尺码6,尺码7,尺码8"
g1.Caption = "{0} 小计"
t1.SubtotalGroups.Add(g1)
t1.Subtotal()
做装箱单的合计.
代码怎么合成?
加好友 
发短信
Post By：2011/7/14 16:18:00 [只看该作者]
