Dim Filter1 As String = "1=1" \'设置筛选条件
With e.Form.Controls("DQ")
    If .Value IsNot Nothing Then
        If Filter1 > "" Then
            Filter1  = Filter1 & " And "
        End If
        Filter1  = Filter1 & "大区 In ( \'" & .Value.replace(",","\',\'") & "\')"
    End If
End With
With e.Form.Controls("YF1") \'在前一筛选条件控制下设置第二项筛选条件,其内容根据第一列的变化而变化
    If .Value IsNot Nothing Then
        If Filter1 > "" Then
            Filter1 = Filter1 & " And "
        End If
        Filter1 = Filter1 & "月份 = \'" & .value & "\'"
    End If
End With

Dim b As New SQLCrossTableBuilder("统计表1","销售统计")
Dim Cols1() As String = {"年度","月份","年份季节"}
Dim Cols2() As String = {"年度","月份","年份季节"}
b.AddTable("销售统计",Cols1,"新旧款进度",Cols2)
b.AddTable("销售统计","店铺名称","责任中心档案","部门名称")
b.HGroups.AddDef("大区") \'添加客户列用于水平分组
b.HGroups.AddDef("{销售统计}.月份") \'添加客户列用于水平分组
b.VGroups.AddDef("新旧款")  \'添加产品列用于垂直分组,并设置了Pattern参数
b.Totals.AddDef("销售数量") \'添加数量列用于统计
b.Totals.AddDef("销售金额") \'添加数量列用于统计
b.Totals.AddDef("吊牌金额") \'添加数量列用于统计
b.Filter = Filter1
b.Build \'生成统计表
MainTable =  Tables("统计表1") \'打开生成的统计表

选择月份筛选查询的时候出现以下错误，不知什么原因：

该特定字段“月份”可以参考SQL语句中FROM字句列表中的多个表