我在窗口有一张表,为副本表,我利用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()
做装箱单的合计.
代码怎么合成?
if Tables("窗口1_Table").DataTable.Name = "订单明细" Then
'订单明细统计
elseif Tables("窗口1_Table").DataTable.Name = "装箱单" Then
'装箱单统计
end if
还想问一下,副本表的下拉窗口怎样才能使用?我已经在项目事件里设置了:
Tables("订箱单").Cols("纸制品编号").DropForm = "纸箱价目表"
窗口表里我用这个代码切换:
Tables("窗口1_Table1").DataSource = DataTables("辅料明细")
但是切换后我不能使用,几个方法我都试了.
以下是引用狐狸爸爸在2011-7-15 9:23:00的发言：
切换后，重新设置dropform属性。
怎么设置?在哪儿设置