窗口表动态加载之后,怎么样实现合并和汇总的效果 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

dvubb 此主题相关图片如下：2012-04-29_115020.jpg

dvubb 此主题相关图片如下：2012-04-29_115644.jpg

第一图是我想要的效果,我在窗口上放了一个TABEL表框,我点一个按钮时,这个表里自动加载另一个表的数据.

加载完以后,我想再实现合并并汇总的结果,但我这样写代码不行,不知哪里了问题.

Tables("窗口1_table1").DataSource=DataTables("vw_zl" )
Tables("窗口1_table1").DataTable.Load
With Tables("窗口1_Table1")
    .MergeMode = MergeModeEnum.Standard
    .MergeCols.Clear()
    .MergeCols.Add("fnumber")
    .MergeCols.Add("fname")
    .MergeSort = "fnumber,fname"
    .AllowMerge = True
End With

Dim t As Table = Tables("窗口1_Table1")
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 = "fnumber"
g.TotalOn = "famount"
g.Caption = "{0} 小计"
t.SubtotalGroups.Add(g)

t.Subtotal()

主题：窗口表动态加载之后,怎么样实现合并和汇总的效果