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

 代码如下

 

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 & "# 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.filter = "结佣日 >= #" & d1 & "# and 结佣日 <= #" & d2 & "#"
g.Build()

还是不得行呀 甜老师 赵六虽然没有佣金 但是他没有离职  应该在佣金业绩表里面呀 

如何让置业顾问列显示在职员工而不仅仅是有佣金的员工

 抱歉，写错了，这次对了。

 

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 & "# or 离职日期 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()

 

就是要这样的结果，另外甜老师 我设置了筛选功能（筛选代码在15楼）及分页加载，请问是直接把下面代码加在前面就可以了吗 34楼的日期如何改成日期输入框"startDate" "EndDate"的值呢 另外使用的外部数据源 代码也是这样吗

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

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

结佣日我只要"StartDate"和"EndDate"范围了 那么结佣日 is null 应该不要吧  另外 怎么上岗日期没有了呢 我想要  上岗日期<=  #" & d2 & "#   离职日期在"StartDate"和"EndDate"范围内或离职日期为空值   结佣日当然也是在这两个时间范围内的 下面这段应该怎么改呢
Dim sql As String = "Select a.姓名 as 置业顾问, b.佣金, b.结佣日, b.类型, b.套数, a.门店, a.上岗日期, a.离职日期 from {员工管理} a left join {佣金明细} b on (a.姓名 = b.置业顾问) where (离职日期 >= #" & d1 & "# or 离职日期 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 (离职日期 >= #" & d1 & "# and 上岗日期 <= #" & d2 & "# or 离职日期 is null) and (结佣日 >= #" & d1 & "# and 结佣日 <= #" & d2 & "# or 结佣日 is null)"

逻辑1  上岗日期 <="EndDate" 离职日期 is null   

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