以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  [求助]合计模式 里面的总计数据怎么提取?  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=107911)

--  作者:jjun2002cn
--  发布时间:2017/10/12 13:30:00
--  [求助]合计模式 里面的总计数据怎么提取?
Dim t As Table = Tables("Sale")
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 = "SaleTotal"
g.Caption = "总计"
t.SubtotalGroups.Add(g)

t.Subtotal()
我用这个代码生成了合计,我怎提取这个总计数据呢?
图片点击可在新窗口打开查看此主题相关图片如下:捕获.png
图片点击可在新窗口打开查看

--  作者:jjun2002cn
--  发布时间:2017/10/12 13:49:00
--  

图片点击可在新窗口打开查看此主题相关图片如下:捕获2.png
图片点击可在新窗口打开查看
下这个表我是用菜单设置的合计,这个合计数 又是怎么提取?
图片点击可在新窗口打开查看此主题相关图片如下:捕获1.png
图片点击可在新窗口打开查看

--  作者:jjun2002cn
--  发布时间:2017/10/12 13:51:00
--  
我希望的是提取这两个表的合计总数进行对比处理!在线等 谢谢!图片点击可在新窗口打开查看
--  作者:有点甜
--  发布时间:2017/10/12 14:13:00
--  

参考代码

 

Dim r As Row = Tables("表A").Rows(Tables("表A").count(True)-1, True)
msgbox(r("第一列"))


--  作者:jjun2002cn
--  发布时间:2017/10/12 16:27:00
--  
搞定了 谢谢!