以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  这段代码为什不执行呀,结果为空。  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=27989)

--  作者:jyg_hwz
--  发布时间:2013/1/15 21:19:00
--  这段代码为什不执行呀,结果为空。

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

 

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


--  作者:lin_hailun
--  发布时间:2013/1/16 8:40:00
--  
如楼上所说,这里用 or 才对。