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


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

主题：求助这种表怎么设计
帅哥哟，离线，有人找我吗？
188802386
 小大  21楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：三尾狐 帖子：629 积分：4927 威望：0 精华：0 注册：2014/2/25 15:50:00 		  发帖心情 Post By：2014/6/18 22:37:00 [显示全部帖子]

上面代码应该要包含这两个逻辑进去 否则查询中途的时间段就会出现对于的员工
逻辑1  上岗日期 <="EndDate" 离职日期 is null   
逻辑2    上岗日期 <="EndDate"    "StartDate"<= 离职日期 <= "EndDate"   
 回到顶部
帅哥哟，离线，有人找我吗？
188802386
 小大  22楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：三尾狐 帖子：629 积分：4927 威望：0 精华：0 注册：2014/2/25 15:50:00 		  发帖心情 Post By：2014/6/18 22:39:00 [显示全部帖子]

谢谢有点甜老师 刚刚没有刷新页面 太感谢了 

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


加好友 发短信
等级：三尾狐 帖子：629 积分：4927 威望：0 精华：0 注册：2014/2/25 15:50:00 		  发帖心情 Post By：2014/6/18 22:40:00 [显示全部帖子]

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

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


加好友 发短信
等级：三尾狐 帖子：629 积分：4927 威望：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
 小大  25楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：三尾狐 帖子：629 积分：4927 威望：0 精华：0 注册：2014/2/25 15:50:00 		  发帖心情 Post By：2014/6/18 22:50:00 [显示全部帖子]

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

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


加好友 发短信
等级：三尾狐 帖子：629 积分：4927 威望：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
图片点击可在新窗口打开查看
怎么个情况 老师
 回到顶部
帅哥哟，离线，有人找我吗？
188802386
 小大  27楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：三尾狐 帖子：629 积分：4927 威望：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 (离职日期 >= #" & d1 & "# and 上岗日期 <= #" & d2 & "# or 上岗日期 <= #" & d2 & "# and 离职日期 is null) and (结佣日 >= #" & d1 & "# and 结佣日 <= #" & d2 & "# or 结佣日 is null)" 

甜老师 这段代码还要改改 你看改成这样可以吗
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
 小大  28楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：三尾狐 帖子：629 积分：4927 威望：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)" 

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


加好友 发短信
等级：三尾狐 帖子：629 积分：4927 威望：0 精华：0 注册：2014/2/25 15:50:00 		  发帖心情 Post By：2014/6/20 15:08:00 [显示全部帖子]

老师 结佣日那点怎么改呢  
Dim sql As String = "Select a.姓名 as 置业顾问, b.佣金, b.结佣日 <= '" & d2 & "' and 结佣日 >= '" & d1 & "' and, b.状态, b.类型, b.套数, a.门店, a.上岗日期, a.离职日期 from {员工管理} a left join {佣金明细} b on (a.姓名 = b.置业顾问) where 上岗日期 <= '" & d2 & "' and (离职日期 <= '" & d2 & "' and 离职日期 >= '" & d1 & "' or 离职日期 is null)" 
 回到顶部
帅哥哟，离线，有人找我吗？
188802386
 小大  30楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：三尾狐 帖子：629 积分：4927 威望：0 精华：0 注册：2014/2/25 15:50:00 		  发帖心情 Post By：2014/6/20 15:13:00 [显示全部帖子]

Dim d1 As Date = e.Form.Controls("StartDate").Value
Dim d2 As Date = e.Form.Controls("EndDate").Value
Dim sql As String = "Select a.姓名 as 置业顾问, b.佣金, b.结佣日 <= '" & d2 & "' and 结佣日 >= '" & d1 & "' and, b.状态, b.类型, b.套数, a.门店, a.上岗日期, a.离职日期 from {员工管理} a left join {佣金明细} b on (a.姓名 = b.置业顾问) where 上岗日期 <= '" & d2 & "' and (离职日期 <= '" & d2 & "' and 离职日期 >= '" & d1 & "' 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

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

g.HorizontalTotal = True
g.VerticalTotal = True
g.Decimals = 2
g.Subtotal = True
g.Filter = Filter
g.Build()
 回到顶部
总数 33 上一页 1 2 3 4 下一页
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.06836 秒, 5 次数据查询