查询 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

共有2862人关注过本帖树形打印复制链接主题：查询

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：幼狐帖子：176 积分：1353 威望：0 精华：0 注册：2014/3/27 14:28:00

查询

Post By：2014/5/5 21:06:00 [只看该作者]

图片点击可在新窗口打开查看此主题相关图片如下：qq截图20140505195033.png

按请假人分组,查询:请假人,病假天数,事假天数。求代码
Select 请假人,Sum(请假天数,请假类型 = '病假') As 请假天数，Sum(请假天数,请假类型 = '事假') As 请假天数 from {请假天数} Group By 请假人

有点甜

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2014/5/5 21:16:00 [只看该作者]

试试

Select 请假人, (Select sum(请假天数) from {请假天数} As b where a.请假人=b.请假人 And b.请假类型='事假') As 事假, (Select sum(请假天数) from {请假天数} As b where a.请假人=b.请假人 And b.请假类型='病假') As 病假 from (Select 请假人 from {请假天数} Group By 请假人) As a

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：幼狐帖子：176 积分：1353 威望：0 精华：0 注册：2014/3/27 14:28:00

Post By：2014/5/5 21:56:00 [只看该作者]

谢谢

小大 4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：幼狐帖子：176 积分：1353 威望：0 精华：0 注册：2014/3/27 14:28:00

Post By：2014/5/6 15:29:00 [只看该作者]

Dim cbx1 As WinForm.ComboBox = e.Form.Controls("学期")
e.Form.Controls("Table1").Table.Fill("Select 学期,请假人,(Select sum(请假天数) from {教工请假} As b where a.学期 = '" & cbx1.Text & "' And a.请假人=b.请假人 And b.请假类型='病假') As 病假天数,(Select sum(请假天数) from {教工请假} As b where a.学期 = '" & cbx1.Text & "' And a.请假人=b.请假人 And b.请假类型='事假') As 事假天数, 旷工天数,(病假天数+事假天数+旷工天数) As 缺勤天数 from (Select 学期,请假人,sum(旷工天数) As 旷工天数 from {教工请假} Group By 学期,请假人) As a", "数据库", True)

病假天数为空不能合计