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

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 求助这种表怎么设计

共有6814人关注过本帖树形打印复制链接主题：求助这种表怎么设计

有点甜

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

加好友

发短信

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

Post By：2014/6/18 22:40:00 [只看该作者]

Dim sql As String = "Select a.姓名 as 置业顾问, b.佣金, b.结佣日, b.类型, b.套数, a.门店, a.上岗日期, a.离职日期 from {员工管理} a left join {佣金明细} b on (a.姓名 = b.置业顾问) where 上岗日期 <= #" & d2 & "# and (离职日期 <= #" & d2 & "# and 离职日期 >= #" & d1 & "# or 离职日期 is null) and (结佣日 >= #" & d1 & "# and 结佣日 <= #" & d2 & "# or 结佣日 is null)"

188802386

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

加好友

发短信

等级：三尾狐帖子：629 积分：4915 威望：0 精华：0 注册：2014/2/25 15:50:00

Post By：2014/6/18 22:40:00 [只看该作者]

把15楼的代码加在前面应该没有问题吧

有点甜

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

加好友

发短信

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

Post By：2014/6/18 22:41:00 [只看该作者]

没有问题。

188802386

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

加好友

发短信

等级：三尾狐帖子：629 积分：4915 威望：0 精华：0 注册：2014/2/25 15:50:00

Post By：2014/6/18 22:49:00 [只看该作者]

刚刚测试了下红色是自己加了这样杜绝了查询以前的数据后面来的员工显示在上面，谢谢甜老师这么晚了还在帮我解决问题，太感谢了

Dim d1 As Date = new Date(2014,5,29)

Dim d2 As Date = new Date(2014,6,28)

Dim sql As String = "Select a.姓名 as 置业顾问, b.佣金, b.结佣日, b.类型, b.套数, a.门店, a.上岗日期, a.离职日期 from {员工管理} a left join {佣金明细} b on (a.姓名 = b.置业顾问) where (离职日期 >= #" & d1 & "# and 上岗日期 <= #" & d2 & "# or 上岗日期 <= #" & d2 & "# and 离职日期 is null) and (结佣日 >= #" & d1 & "# and 结佣日 <= #" & d2 & "# or 结佣日 is null)"

Dim g As New CrossTableBuilder("佣金业绩表",sql)

g.HGroups.AddDef("门店")

g.HGroups.AddDef("置业顾问")

g.VGroups.AddDef("类型")

g.Totals.AddDef("佣金", "佣金")

g.Totals.AddDef("套数", "套数")

g.OrderByTotal = True

g.HorizontalTotal = True

g.VerticalTotal = True

g.Decimals = 2

g.Subtotal = True

g.Build()

188802386

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

加好友

发短信

等级：三尾狐帖子：629 积分：4915 威望：0 精华：0 注册：2014/2/25 15:50:00

Post By：2014/6/18 22:50:00 [只看该作者]

呵呵刷新后看到我的想法永远都比你慢一拍

188802386

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

加好友

发短信

等级：三尾狐帖子：629 积分：4915 威望：0 精华：0 注册：2014/2/25 15:50:00

Post By：2014/6/19 9:00:00 [只看该作者]

Dim d1 As Date = e.Form.Control("StartDate").Value

Dim d2 As Date = e.Form.Control("EndDate").Value

此主题相关图片如下：qq截图20140619085824.png

怎么个情况老师

有点甜

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

加好友

发短信

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

Post By：2014/6/19 9:03:00 [只看该作者]

Dim d1 As Date = e.Form.Controls("StartDate").Value

Dim d2 As Date = e.Form.Controls("EndDate").Value

188802386

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

加好友

发短信

等级：三尾狐帖子：629 积分：4915 威望：0 精华：0 注册：2014/2/25 15:50:00

Post By：2014/6/19 10:54:00 [只看该作者]

甜老师这段代码还要改改你看改成这样可以吗

Dim sql As String = "Select a.姓名 as 置业顾问, b.佣金, b.结佣日, b.类型, b.套数, a.门店, a.上岗日期, a.离职日期 from {员工管理} a left join {佣金明细} b on (a.姓名 = b.置业顾问) where 上岗日期 <= '" & d2 & "' and (离职日期 <= '" & d2 & "' and 离职日期 >= '" & d1 & "' or 离职日期 is null) and 结佣日 is null and (结佣日 >= '" & d1 & "' or 结佣日 <= '" & d2 & "' )"

188802386

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

加好友

发短信

等级：三尾狐帖子：629 积分：4915 威望：0 精华：0 注册：2014/2/25 15:50:00

Post By：2014/6/19 10:56:00 [只看该作者]

Dim sql As String = "Select a.姓名 as 置业顾问, b.佣金, b.结佣日, b.类型, b.套数, a.门店, a.上岗日期, a.离职日期 from {员工管理} a left join {佣金明细} b on (a.姓名 = b.置业顾问) where (离职日期 >= #" & d1 & "# and 上岗日期 <= #" & d2 & "# or 上岗日期 <= #" & d2 & "# and 离职日期 is null) and (结佣日 >= #" & d1 & "# or 结佣日 is null and 结佣日 <= #" & d2 & "# or 结佣日 is null)"

这种呢

有点甜

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

加好友

发短信

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

Post By：2014/6/19 11:41:00 [只看该作者]

Dim sql As String = "Select a.姓名 as 置业顾问, b.佣金, b.结佣日, b.类型, b.套数, a.门店, a.上岗日期, a.离职日期 from {员工管理} a left join {佣金明细} b on (a.姓名 = b.置业顾问) where (离职日期 >= #" & d1 & "# and 上岗日期 <= #" & d2 & "# or 上岗日期 <= #" & d2 & "# and 离职日期 is null) and (结佣日 >= #" & d1 & "# or 结佣日 is null and 结佣日 <= #" & d2 & "# or 结佣日 is null and 佣金 is null)"

下一主题 >> << 上一主题

总数 56 上一页 1 2 3 4 5 6 下一页

主题：求助这种表怎么设计