以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  [求助]  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=62571)

--  作者:yjd
--  发布时间:2015/1/4 20:38:00
--  [求助]
多值列有多项数据,如何筛选出大于四项数据的行。
--  作者:有点甜
--  发布时间:2015/1/4 20:43:00
--  
 做不到的,必须循环每一行,然后循环每一个值,比较才知道的。
--  作者:yjd
--  发布时间:2015/1/4 20:49:00
--  
能不能通过代码,设置大于四项的语句。
--  作者:有点甜
--  发布时间:2015/1/4 20:55:00
--  
Dim idxs As String = ""
For Each dr As DataRow In DataTables("表A").Select("第四列 is not null")
    If dr("第四列").split(",").length >= 4 Then
        idxs &= dr("_Identify") & ","
    End If
Next
Tables("表A").Filter = "_Identify in (" & idxs.Trim(",") & ")"

--  作者:yjd
--  发布时间:2015/1/4 20:58:00
--  
非常感谢。
--  作者:yjd
--  发布时间:2015/1/5 10:14:00
--  
Post By:2015-1-4 20:55:00 [只看该作者] Dim idxs As String = "" For Each dr As DataRow In DataTables("表A").Select("第四列 is not null And [等三列]>=50000”) If dr("第四列").split(",").length >= 4 Then idxs &= dr("_Identify") & "," End If Next Tables("表A").Filter = "_Identify in (" & idxs.Trim(",") & ")" 老师您看我用And加条件可以吗?谢谢
--  作者:有点甜
--  发布时间:2015/1/5 10:16:00
--  
 可以。条件可以随便写。