Foxtable(狐表) → 用户栏目 → 专家坐堂 → 我想做这样一个统计表，怎么写代码啊，各位高手？


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

主题：我想做这样一个统计表，怎么写代码啊，各位高手？
帅哥哟，离线，有人找我吗？
xhydxs
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：童狐 帖子：249 积分：2238 威望：0 精华：0 注册：2016/10/29 14:17:00 		我想做这样一个统计表，怎么写代码啊，各位高手？  发帖心情 Post By：2019/5/21 10:49:00 [只看该作者]


图片点击可在新窗口打开查看此主题相关图片如下：微信图片_20190521104540.png
图片点击可在新窗口打开查看
单位名称、核定编制数和上年实有在编数是固定的，我想从减少人员表和新增人员表中的减少类别和增加类别栏统计？
[此贴子已经被作者于2019/5/21 10:55:55编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
y2287958
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：狐神 帖子：4752 积分：34568 威望：0 精华：0 注册：2008/8/31 22:44:00 		  发帖心情 Post By：2019/5/21 11:04:00 [只看该作者]

上实例

 回到顶部
帅哥哟，离线，有人找我吗？
有点甜
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：版主 帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00 		  发帖心情 Post By：2019/5/21 13:40:00 [只看该作者]


 回到顶部
帅哥哟，离线，有人找我吗？
xhydxs
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：童狐 帖子：249 积分：2238 威望：0 精华：0 注册：2016/10/29 14:17:00 		  发帖心情 Post By：2019/5/21 15:08:00 [只看该作者]

以下是引用y2287958在2019/5/21 11:04:00的发言：
上实例

 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:人事管理系统0515.rar
 回到顶部
帅哥哟，离线，有人找我吗？
有点甜
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：版主 帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00 		  发帖心情 Post By：2019/5/21 15:12:00 [只看该作者]


 回到顶部
帅哥哟，离线，有人找我吗？
xhydxs
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：童狐 帖子：249 积分：2238 威望：0 精华：0 注册：2016/10/29 14:17:00 		  发帖心情 Post By：2019/5/22 14:55:00 [只看该作者]

以下是引用有点甜在2019/5/21 15:12:00的发言：

参考

 

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

 

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

 

有点甜老师，基础太差，没迁移过来
 回到顶部
帅哥哟，离线，有人找我吗？
有点甜
 小大  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：版主 帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00 		  发帖心情 Post By：2019/5/22 15:52:00 [只看该作者]

参考代码，看懂代码

 

Dim g As New GroupTableBuilder("统计表1", DataTables("单位名称"))
g.Groups.AddDef("单位全称")
g.Totals.Addexp("单位全称", AggregateEnum.count)
Dim dt = g.BuildDataSource()

Dim d1 As Date = new Date(Date.Today.year, 1, 1)
g = New GroupTableBuilder("统计表1", DataTables("新增人员记录"))
g.Groups.AddDef("单位全称")
g.Totals.AddDef("姓名", AggregateEnum.Count, "一月_增加_公招")
g.Filter = "[新增类别] = '公招' and 新增时间 >= #" & d1 & "# and 新增时间 < #" & d1.AddMonths(1) & "#"
Dim dt1 = g.BuildDataSource()

g = New GroupTableBuilder("统计表1", DataTables("新增人员记录"))
g.Groups.AddDef("单位全称")
g.Totals.AddDef("姓名", AggregateEnum.Count, "一月_增加_全科")
g.Filter = "[新增类别] = '全科' and 新增时间 >= #" & d1 & "# and 新增时间 < #" & d1.AddMonths(1) & "#"
Dim dt2 = g.BuildDataSource()

Dim d2 As Date = new Date(Date.Today.year, 8, 1)
g = New GroupTableBuilder("统计表1", DataTables("新增人员记录"))
g.Groups.AddDef("单位全称")
g.Totals.AddDef("姓名", AggregateEnum.Count, "八月_增加_公招")
g.Filter = "[新增类别] = '公招' and 新增时间 >= #" & d2 & "# and 新增时间 < #" & d2.AddMonths(1) & "#"
Dim dt3 = g.BuildDataSource()

dt.Combine("单位全称",dt1,"单位全称") '将销售统计数据组合到进货统计数据
dt.Combine("单位全称",dt2,"单位全称") '将销售统计数据组合到进货统计数据
dt.Combine("单位全称",dt3,"单位全称") '将销售统计数据组合到进货统计数据
dt.show("统计表1")
MainTable = Tables("统计表1")
 回到顶部
帅哥哟，离线，有人找我吗？
xhydxs
 小大  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：童狐 帖子：249 积分：2238 威望：0 精华：0 注册：2016/10/29 14:17:00 		  发帖心情 Post By：2019/5/23 16:58:00 [只看该作者]

以下是引用有点甜在2019/5/22 15:52:00的发言：

参考代码，看懂代码

 

Dim g As New GroupTableBuilder("统计表1", DataTables("单位名称"))
g.Groups.AddDef("单位全称")
g.Totals.Addexp("单位全称", AggregateEnum.count)
Dim dt = g.BuildDataSource()

Dim d1 As Date = new Date(Date.Today.year, 1, 1)
g = New GroupTableBuilder("统计表1", DataTables("新增人员记录"))
g.Groups.AddDef("单位全称")
g.Totals.AddDef("姓名", AggregateEnum.Count, "一月_增加_公招")
g.Filter = "[新增类别] = '公招' and 新增时间 >= #" & d1 & "# and 新增时间 < #" & d1.AddMonths(1) & "#"
Dim dt1 = g.BuildDataSource()

g = New GroupTableBuilder("统计表1", DataTables("新增人员记录"))
g.Groups.AddDef("单位全称")
g.Totals.AddDef("姓名", AggregateEnum.Count, "一月_增加_全科")
g.Filter = "[新增类别] = '全科' and 新增时间 >= #" & d1 & "# and 新增时间 < #" & d1.AddMonths(1) & "#"
Dim dt2 = g.BuildDataSource()

Dim d2 As Date = new Date(Date.Today.year, 8, 1)
g = New GroupTableBuilder("统计表1", DataTables("新增人员记录"))
g.Groups.AddDef("单位全称")
g.Totals.AddDef("姓名", AggregateEnum.Count, "八月_增加_公招")
g.Filter = "[新增类别] = '公招' and 新增时间 >= #" & d2 & "# and 新增时间 < #" & d2.AddMonths(1) & "#"
Dim dt3 = g.BuildDataSource()

dt.Combine("单位全称",dt1,"单位全称") '将销售统计数据组合到进货统计数据
dt.Combine("单位全称",dt2,"单位全称") '将销售统计数据组合到进货统计数据
dt.Combine("单位全称",dt3,"单位全称") '将销售统计数据组合到进货统计数据
dt.show("统计表1")
MainTable = Tables("统计表1")

 

Dim g As New GroupTableBuilder("人事台账", DataTables("单位名称"))  '定义一个临时表，名称为"人事台账"，对表单位名称进行统计
g.Groups.AddDef("单位简称")                                         '根据单位简称分组
g.Totals.Addexp("单位简称", AggregateEnum.count)                    '根据单位简称分组并统计个数
Dim dt = g.BuildDataSource()

Dim d1 As Date = new Date(Date.Today.year, 1, 1)                   '定义时间d1，时间为今年的1月1日
g = New GroupTableBuilder("人事台账", DataTables("新增人员记录"))   '临时表根据新增人员记录表进行分组
g.Groups.AddDef("单位简称")                                         '根据单位简称统计个数
g.Totals.AddDef("姓名", AggregateEnum.Count, "一月_增加_公招")       '一月_增加_公招根据新增人员记录表的姓名列统计个数
g.Filter = "[新增类别] = '公招' and 新增时间 >= #" & d1 & "# and 新增时间 < #" & d1.AddMonths(1) & "#"  '统计新增类别为公招而且时间大于等于今年1月1日且小于2月1日的个数
Dim dt1 = g.BuildDataSource()

有点甜老师，我大概能理解代码的意思，我还想实现两个功能：一个是临时表的“单位简称”怎么按单位名称表中的顺序排列；二是我还想从“单位名称”表中增加核定编制数和当前在编人数并引用到临时表，谢谢！！！
 回到顶部
帅哥哟，离线，有人找我吗？
有点甜
 小大  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：版主 帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00 		  发帖心情 Post By：2019/5/23 18:34:00 [只看该作者]

Dim g = New sqlGroupTableBuilder("统计表1", "单位名称")
g.Groups.AddDef("_Identify")
g.Groups.AddDef("单位全称")
'g.Totals.Addexp("单位全称", AggregateEnum.count)
Dim dt = g.BuildDataSource()

Dim d1 As Date = new Date(Date.Today.year, 1, 1)
g = New GroupTableBuilder("统计表1", DataTables("新增人员记录"))
g.Groups.AddDef("单位全称")
g.Totals.AddDef("姓名", AggregateEnum.Count, "一月_增加_公招")
g.Filter = "[新增类别] = '公招' and 新增时间 >= #" & d1 & "# and 新增时间 < #" & d1.AddMonths(1) & "#"
Dim dt1 = g.BuildDataSource()

g = New GroupTableBuilder("统计表1", DataTables("新增人员记录"))
g.Groups.AddDef("单位全称")
g.Totals.AddDef("姓名", AggregateEnum.Count, "一月_增加_全科")
g.Filter = "[新增类别] = '全科' and 新增时间 >= #" & d1 & "# and 新增时间 < #" & d1.AddMonths(1) & "#"
Dim dt2 = g.BuildDataSource()

Dim d2 As Date = new Date(Date.Today.year, 8, 1)
g = New GroupTableBuilder("统计表1", DataTables("新增人员记录"))
g.Groups.AddDef("单位全称")
g.Totals.AddDef("姓名", AggregateEnum.Count, "八月_增加_公招")
g.Filter = "[新增类别] = '公招' and 新增时间 >= #" & d2 & "# and 新增时间 < #" & d2.AddMonths(1) & "#"
Dim dt3 = g.BuildDataSource()

dt.Combine("单位全称",dt1,"单位全称") '将销售统计数据组合到进货统计数据
dt.Combine("单位全称",dt2,"单位全称") '将销售统计数据组合到进货统计数据
dt.Combine("单位全称",dt3,"单位全称") '将销售统计数据组合到进货统计数据
dt.show("统计表1")
MainTable = Tables("统计表1")
 回到顶部
帅哥哟，离线，有人找我吗？
xhydxs
 小大  10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：童狐 帖子：249 积分：2238 威望：0 精华：0 注册：2016/10/29 14:17:00 		  发帖心情 Post By：2019/5/23 22:55:00 [只看该作者]

以下是引用有点甜在2019/5/23 18:34:00的发言：

Dim g = New sqlGroupTableBuilder("统计表1", "单位名称")
g.Groups.AddDef("_Identify")
g.Groups.AddDef("单位全称")
'g.Totals.Addexp("单位全称", AggregateEnum.count)
Dim dt = g.BuildDataSource()

Dim d1 As Date = new Date(Date.Today.year, 1, 1)
g = New GroupTableBuilder("统计表1", DataTables("新增人员记录"))
g.Groups.AddDef("单位全称")
g.Totals.AddDef("姓名", AggregateEnum.Count, "一月_增加_公招")
g.Filter = "[新增类别] = '公招' and 新增时间 >= #" & d1 & "# and 新增时间 < #" & d1.AddMonths(1) & "#"
Dim dt1 = g.BuildDataSource()

g = New GroupTableBuilder("统计表1", DataTables("新增人员记录"))
g.Groups.AddDef("单位全称")
g.Totals.AddDef("姓名", AggregateEnum.Count, "一月_增加_全科")
g.Filter = "[新增类别] = '全科' and 新增时间 >= #" & d1 & "# and 新增时间 < #" & d1.AddMonths(1) & "#"
Dim dt2 = g.BuildDataSource()

Dim d2 As Date = new Date(Date.Today.year, 8, 1)
g = New GroupTableBuilder("统计表1", DataTables("新增人员记录"))
g.Groups.AddDef("单位全称")
g.Totals.AddDef("姓名", AggregateEnum.Count, "八月_增加_公招")
g.Filter = "[新增类别] = '公招' and 新增时间 >= #" & d2 & "# and 新增时间 < #" & d2.AddMonths(1) & "#"
Dim dt3 = g.BuildDataSource()

dt.Combine("单位全称",dt1,"单位全称") '将销售统计数据组合到进货统计数据
dt.Combine("单位全称",dt2,"单位全称") '将销售统计数据组合到进货统计数据
dt.Combine("单位全称",dt3,"单位全称") '将销售统计数据组合到进货统计数据
dt.show("统计表1")
MainTable = Tables("统计表1")

如果我想引用单位名称表中 的核定编制数和上年实有人数相关数据到临时表，可以吗，老师？？？
 回到顶部
总数 13 1 2 下一页
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.05078 秒, 5 次数据查询