此主题相关图片如下：4.jpg

 奇怪，不加条件加载速度还好，加上搜索条件，就直接卡死不动。不知道什么原因。。。

Dim Filter As String
With e.Form.Controls("ComboBox1")
    If .Value IsNot Nothing Then
        If Filter >"" Then
            Filter = Filter & " And "
        End If
        Filter = Filter & "门店 in ( \'" & .text.replace(",","\',\'") & " \') "
    End If
End With

With e.Form.Controls("checkedComboBox1")
    If .Value IsNot Nothing Then
        If Filter >"" Then
            Filter = Filter & " And "
        End If
        Filter = Filter & "库位 in ( \'" & .text.replace(",","\',\'") & " \') "
    End If
End With

With e.Form.Controls("checkedComboBox2")
    If .Value IsNot Nothing Then
        If Filter >"" Then
            Filter = Filter & " And "
        End If
        Filter = Filter & "调整期间 in ( \'" & .text.replace(",","\',\'") & " \') "
    End If
End With

Dim bd1 As New SQLcrossTableBuilder("统计表1","库位销售分析")
Dim dt1 As fxDataSource
bd1.C
bd1.HGroups.AddDef("门店") \'添加客户列用于水平分组
bd1.HGroups.AddDef("库位") \'添加客户列用于水平分组
bd1.HGroups.AddDef("销售日期",DateGroupEnum.year,"区间") \'添加客户列用于水平分组
If e.Form.Controls("CheckBox6").checked = False Then
    bd1.vGroups.AddDef("调整期间","调整期间_{0}_销售量") \'添加客户列用于水平分组
Else
    bd1.vGroups.AddDef("调整期间","调整期间_{0}") \'添加客户列用于水平分组
End If

Dim bd2 As New SQLcrossTableBuilder("统计表2","动销量")
Dim dt2 As fxDataSource
bd2.C
bd2.HGroups.AddDef("门店") \'添加客户列用于水平分组
bd2.HGroups.AddDef("库位") \'添加客户列用于水平分组
bd2.vGroups.AddDef("调整期间","调整期间_{0}_动销量") \'添加客户列用于水平分组
bd2.Totals.AddDef("动销量") \'添加数量列用于统计
bd2.filter = filter
bd2.CommandTimeOut = 600
dt2 = bd2.BuildDataSource()

Dim bd3 As New SQLcrossTableBuilder("统计表3","陈列量")
Dim dt3 As fxDataSource
bd3.C
bd3.HGroups.AddDef("门店") \'添加客户列用于水平分组
bd3.HGroups.AddDef("库位") \'添加客户列用于水平分组
bd3.vGroups.AddDef("调整期间","调整期间_{0}_陈列量") \'添加客户列用于水平分组
bd3.Totals.AddDef("陈列量") \'添加数量列用于统计
bd3.filter = filter
bd3.CommandTimeOut = 600
dt3 = bd3.BuildDataSource()

Dim nms As String() = {"门店","库位"} \'指定连接列
dt1.Combine(nms,dt2,nms) \'将销售统计数据组合到进货统计数据
dt1.Combine(nms,dt3,nms) \'将销售统计数据组合到进货统计数据

Tables(e.Form.Name & "_table1").DataSource = dt1

If Tables(e.Form.Name & "_table1").Cols.Contains("区间") Then
    Tables(e.Form.Name & "_table1").Cols("区间").Visible = False
End If

都是同样的数据量啊：

 加个门店的索引看看。

 你没有选中太多的门店吧？filter的值没有太长吧？

没有，目前总共就一个门店。数据量 行数 和其他两个是一样的。

怎么加索引呢。。

1、添加索引

http://www.baidu.com/baidu?wd=sqlserver+%CC%ED%BC%D3%CB%F7%D2%FD&tn=monline_4_dg

2、如果你数据量大，而门店重复数据多，那查询自然就慢，in的匹配，是一行一行匹配的。

好，谢谢两位老师。我一会试一下！！