Foxtable(狐表)用户栏目专家坐堂 → 分组统计问题


  共有2313人关注过本帖树形打印复制链接

主题:分组统计问题

帅哥哟,离线,有人找我吗?
裴保民
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:八尾狐 帖子:1989 积分:12631 威望:0 精华:0 注册:2017/4/3 15:01:00
分组统计问题  发帖心情 Post By:2020/2/25 17:50:00 [只看该作者]

Dim flb As WinForm.RadioButton = e.Form.Controls("flRadioButton")
Dim fltab As WinForm.TabControl = e.Form.Controls("flymTabContro")
Dim aszlx As WinForm.RadioButton = e.Form.Controls("asjdcxRadioButton")
Dim g As New GroupTableBuilder("统计表1", DataTables("收支交易流水"))
If aszlx.Checked=True Then
    g.Groups.AddDef("所属账户","账户名称")
    g.Totals.AddDef("单号", AggregateEnum.Count,"笔数")
    g.Totals.AddDef("收入金额","金额")    
    g.Totals.AddDef("收入金额", AggregateEnum.Average, "每笔平均金额")
    g.Filter = "[交易类型] ='收入'"
    g.Build()
    MainTable = Tables("统计表1")
    Tables("收入明细窗体_srTable").DataSource = DataTables("统计表1")
    Tables("收入明细窗体_srTable").SetColVisibleWidth("账户名称|200|笔数|160|金额|300|每笔平均金额|300")
For Each c As Col In Tables("收入明细窗体_srTable").Cols
    c.TextAlign = TextAlignEnum.Center
Next
End If


这样是统计整个表的数据,这样统计某 一时间段内的数据呀?假如只统计本年内的数据怎么写呢?
[此贴子已经被作者于2020/2/25 17:51:16编辑过]

 回到顶部
帅哥哟,离线,有人找我吗?
sloyy
  2楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:九尾狐 帖子:2180 积分:13804 威望:0 精华:2 注册:2012/2/25 10:59:00
  发帖心情 Post By:2020/2/25 19:48:00 [只看该作者]

Dim g As New GroupTableBuilder("统计表1", DataTables("收支交易流水"))
g.filter="[日期] >='2020-01-01 And [日期]<= '2020-12-31'"

If aszlx.Checked=True Then
.....






 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:106207 积分:540158 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2020/2/25 20:19:00 [只看该作者]


Dim y As Integer = date.today.year '指定年份
Dim 
dt1 As New Date(y11)
g.Filter = "[交易类型] ='收入' and 
[日期] >='" & dt1 & "' And [日期]< '" & dt1.addyears(1) & "'"

 回到顶部