主题：统计代码中的日期过滤条件如何写代码？

各位老师，

在窗口中进行统计如下图：

此主题相关图片如下：360截图20120913-001.jpg

代码如下：

Dim b As New SQLCrossTableBuilder("产品出货统计表","出库明细")
b.C
'b.Filter = "[出库日期] = e.Form.Controls("Year").Value

b.AddTable("出库明细","出库单号","出库单","出库单号")
b.AddTable("出库明细","产品编码","产品编码","产品编码")
b.HGroups.AddDef("{出库明细}.产品编码")
b.HGroups.AddDef("{产品编码}.产品系列")
b.HGroups.AddDef("{出库明细}.名称")
b.VGroups.AddDef("出库日期",DateGroupEnum.Year,"{0}年")
b.VGroups.AddDef("出库日期","{0}月")
b.Totals.AddDef("数量") '添加数量列用于统产计
b.HorizontalTotal = True '增加水平自动汇总
b.VerticalTotal = True  '增加垂直自动汇总
'b.Subtotal = True
Tables(e.form.Name & "_Table1").DataSource = b.BuildDataSource()

两个问题请教：

1、红色的那句代码是想筛选出“出库日期”的年度等于统计年度的数据，这句代码要怎么写？

2、上面那个“统计年度”本想提取“出库日期”的年来形成列表项，但不会写，现在是手工输入2012|2013这样来得到的。

谢谢！