Foxtable(狐表)用户栏目专家坐堂 → SQL综合统计


  共有1890人关注过本帖平板打印复制链接

主题:SQL综合统计

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


加好友 发短信
等级:狐精 帖子:3082 积分:20596 威望:0 精华:0 注册:2016/3/28 16:57:00
SQL综合统计  发帖心情 Post By:2018/12/17 14:24:00 [只看该作者]

SQL综合统计,我需要列出分支机构里面所有分支机构,但这样出来,没有中标的还是没统计出来,怎么先添加所属机构,在统计呢?

 

Dim cmd As New SQLCommand
Dim dt As DataTable
cmd.C
cmd.CommandText = "S  elect {分支机构管理}.所属机构,经营状态,中标金额,中标日期,项目名称 From {分支机构管理} Left JOIN {中标统计} ON {中标统计}.[所属机构] = {分支机构管理}.[所属机构]"
dt = cmd.ExecuteReader()
Dim d1 As  Date = Date.today.year & "-" & 1 & "-" & 1
Dim g As New CrossTableBuilder("统计表1",dt,"[中标日期]>'"& d1 &"'")
g.Caption = "当年分月统计"
g.HGroups.AddDef("所属机构")  '纵向添加分组
g.VGroups.AddDef("中标日期",DateGroupEnum.Year,"{0}年")  '添加日期列用于垂直分组,按年分组
g.VGroups.AddDef("中标日期", "{0}月") '横向添加分组
g.Totals.AddDef("项目名称", AggregateEnum.Count, "中标个数")
g.Totals.AddDef("中标金额", "中标金额")  '添加统计列
g.HorizontalTotal = True '水平方向是否自动汇总
g.VerticalTotal = True  '垂直方向是否自动汇总
g.Decimals = 2  '小数位数
g.Filter = "[中标日期]>'"& d1 &"'"
g.Subtotal = True   '生成汇总模式
g.FromServer = True   '统计后台数据
g.Build()  '生成统计表
Tables("当年分月统计_Table1").DataSource = g.BuildDataSource  '动态绑定到表

[此贴子已经被作者于2018/12/17 14:39:01编辑过]

 回到顶部