- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 窗口表动态加载之后,怎么样实现合并和汇总的效果 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=19160)
-- 发布时间：2012/4/29 13:26:00
-- 窗口表动态加载之后,怎么样实现合并和汇总的效果
此主题相关图片如下：2012-04-29_115020.jpg
此主题相关图片如下：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()
-- 发布时间：2012/4/29 17:01:00
--
你在原表DataTables("vw_zl" )上先试试看，要不发项目上来，没看出代码有何问题。