以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  副本表统计  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=11243)
--  作者：blackzhu
--  发布时间：2011/7/14 16:18:00
--  副本表统计
  我在窗口有一张表,为副本表,我利用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()
做装箱单的合计.

代码怎么合成?
--  作者：狐狸爸爸
--  发布时间：2011/7/14 16:29:00
--  

if Tables("窗口1_Table").DataTable.Name = "订单明细" Then

    \'订单明细统计

elseif Tables("窗口1_Table").DataTable.Name = "装箱单" Then

   \'装箱单统计

end if
--  作者：blackzhu
--  发布时间：2011/7/14 16:32:00
--  
是这样的.没想到.
--  作者：blackzhu
--  发布时间：2011/7/14 17:04:00
--  
为什么是这样的呢,帮助里面没有看见.
--  作者：狐狸爸爸
--  发布时间：2011/7/14 17:06:00
--  

http://www.foxtable.net/help/topics/0442.htm

 
--  作者：blackzhu
--  发布时间：2011/7/14 17:15:00
--  
唉,还是灵活应用有很大问题,语文没有学好.
--  作者：blackzhu
--  发布时间：2011/7/15 9:22:00
--  
还想问一下,副本表的下拉窗口怎样才能使用?我已经在项目事件里设置了:

Tables("订箱单").Cols("纸制品编号").DropForm = "纸箱价目表"

窗口表里我用这个代码切换:

Tables("窗口1_Table1").DataSource = DataTables("辅料明细")

但是切换后我不能使用,几个方法我都试了.
--  作者：狐狸爸爸
--  发布时间：2011/7/15 9:23:00
--  
切换后，重新设置dropform属性。
--  作者：blackzhu
--  发布时间：2011/7/15 10:10:00
--  
以下是引用狐狸爸爸在2011-7-15 9:23:00的发言：
切换后，重新设置dropform属性。

 怎么设置?在哪儿设置
--  作者：狐狸爸爸
--  发布时间：2011/7/15 10:15:00
--  
Tables("窗口1_Table1").DataSource = DataTables("辅料明细")
Tables("窗口1_Table1").Cols("xxx").DropForm = "ttttt"