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("新旧款")
b.Totals.AddDef("销售数量")
b.Filter = Filter1
b.Build
Tables("销售货品结构分析_Table1").DataSource = b.BuildDataSource()
提示错误:别名‘月份’循环引用
当不用Tables("销售货品结构分析_Table1").DataSource = b.BuildDataSource()的时候是正常的