以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  想引用系统自带的分组统计功能  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=66118)
--  作者：jhq1989
--  发布时间：2015/3/30 16:27:00
--  想引用系统自带的分组统计功能

用Syscmd.Table.NewGroupTable()这个命令，但是所引用的表格始终不是自己想要的该怎么办呢
--  作者：Bin
--  发布时间：2015/3/30 16:29:00
--  
先点击一下你想要引用的表,激活为当前表
--  作者：有点甜
--  发布时间：2015/3/30 16:31:00
--  
Forms("窗口1").Controls("Table1").Select
Syscmd.Table.NewGroupTable()
--  作者：jhq1989
--  发布时间：2015/3/30 16:35:00
--  我的想法是，把外部数据源的表名，我都获取到了

然后通过选择表名，来进行分组统计。外部数据源的表可以用以上你说的方法吗

 
--  作者：有点甜
--  发布时间：2015/3/30 16:39:00
--  
 呃，只要加载进来的表都可以。
--  作者：jhq1989
--  发布时间：2015/3/30 16:39:00
--  我用的这个方法

Dim cb As WinForm.ComboBox = e.Form.Controls("ComboBox1")
Dim bm As String
bm=cb.Text
DataTables(bm).LoadFilter="[_Identify] is null"
DataTables(bm).Load
Tables(bm).Select
Syscmd.Table.NewGroupTable()

好像不行
--  作者：有点甜
--  发布时间：2015/3/30 16:41:00
--  
Dim cb As WinForm.ComboBox = e.Form.Controls("ComboBox1")
Dim bm As String
bm=cb.Text
DataTables(bm).LoadFilter="[_Identify] is null"
DataTables(bm).Load
MainTable = Tables(bm)
Syscmd.Table.NewGroupTable()
--  作者：有点甜
--  发布时间：2015/3/30 21:53:00
--  

 改一下

 

Dim cb As WinForm.ComboBox = e.Form.Controls("ComboBox1")
Dim bm As String
bm=cb.Text
DataTables(bm).LoadFilter="[_Identify] is null"
DataTables(bm).Load
Tables(bm).GroupSubtotal()

 

http://www.foxtable.com/help/topics/1782.htm

 
--  作者：花开的声音
--  发布时间：2015/3/30 22:12:00
--  
通过交叉统计，查找到分组统计应该是这样：Tables("表A").GroupSubtotal()