以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  怎么在用户模式下进行数据统计呢  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=97408)

--  作者:k931931
--  发布时间:2017/3/11 19:27:00
--  怎么在用户模式下进行数据统计呢
老师你好,用户模式下,提取明细数据我知道,但是在怎么用户模式下进行数据分组统计呢(不是在系统模式下进行)

图片点击可在新窗口打开查看此主题相关图片如下:qq截图20170311192102.jpg
图片点击可在新窗口打开查看


--  作者:有点色
--  发布时间:2017/3/12 20:49:00
--  

写代码不行?

 

http://www.foxtable.com/webhelp/scr/0677.htm

 

http://www.foxtable.com/webhelp/scr/1909.htm

 


--  作者:k931931
--  发布时间:2017/3/13 17:26:00
--  
写代码不行的,比如我想按照厂商和产品进行汇总数量,代码应该怎么写呢

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.Caption = "{0} 小计"
t.SubtotalGroups.Add(g)

g = New Subtotalgroup
g.Aggregate = AggregateEnum.Sum
g.GroupOn = "商品名称"
g.Caption = "{0} 小计"
t.SubtotalGroups.Add(g)

t.Subtotal()


--  作者:有点色
--  发布时间:2017/3/13 19:08:00
--  

改一下表名

 

Dim t As Table = Tables("入库单明细列表")

 

改成

 

Dim t As Table = e.Form.Controls("Table1").Table


--  作者:k931931
--  发布时间:2017/3/13 22:13:00
--  
嗯,谢谢,解决了,但是每能控制每页显示多少行吗?如果超过了指定行数,显示换页标签。
--  作者:有点蓝
--  发布时间:2017/3/13 22:24:00
--  
分页参考:http://www.foxtable.com/webhelp/scr/2269.htm


--  作者:k931931
--  发布时间:2017/3/16 20:08:00
--  
老师你好,我使用的是access数据库,这个表是查询表,参考帮助在AfterOpenProject事件中增加了
With DataTables("入库单明细列表")
    .LoadFilter = "" 
\'一定要清除加载条件
    .LoadTop = 
20
    .LoadPage = 
0
    .Load()

End
 With

以及第一页,下一页,上一页,最末页都参考帮助文件代码,但是并不能实现效果,请老师指导。

图片点击可在新窗口打开查看此主题相关图片如下:23.jpg
图片点击可在新窗口打开查看


--  作者:有点色
--  发布时间:2017/3/16 20:15:00
--  

 查询表的上一页和下一页,就比较麻烦了

 

http://www.ljf.cn/archives/2281

 

http://www.foxtable.com/webhelp/scr/1777.htm

 


--  作者:有点色
--  发布时间:2017/3/16 20:18:00
--  

 

http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=28059&authorid=0&page=0&star=1

 


--  作者:k931931
--  发布时间:2017/3/18 17:09:00
--  
 谢谢