主题：这段代码为什不执行呀，结果为空。

帮忙看看这段代码为什么不执行，执行结果为空。

Dim Customers As List(Of String)
Customers = DataTables("部门机构").GetUniqueValues("[车间名称] = '"& bmmc &"'", "班组名称")

For i As Integer = 1 To Customers.Count - 1 .
    pds =  Customers(i)
    If pds IsNot Nothing  Then
        If flt IsNot Nothing  Then
            flt = flt & " And "
        End If
    End If
    flt = flt &  "配电所名称 = '" & pds & "'"   
Next
StatusBar.Message2 = flt
Tables("设备管理").Filter =flt