以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  GetValues与多值字段  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=78859)
--  作者：一笑
--  发布时间：2015/12/18 16:24:00
--  GetValues与多值字段
周工作表中的责任人列是多值字段列（比如:张三，李四），如何用GetValues取值后，会出现字符“张三，李四”，不会得到单独的人名字字符（“张三”和“李四”），如何取得不重复的人名？谢谢

Dim ps As List(Of String)
    ps = DataTables("周工作").GetValues("责任人","进度 < 100")
--  作者：大红袍
--  发布时间：2015/12/18 16:37:00
--  

Dim ls As new List(Of String)
For Each dr As DataRow In DataTables("周工作").Select("进度 < 100")
    For Each a As String In dr("负责人").split(",")
        If ls.Contains(a) = False Then
            ls.add(a)
        End If
    Next
Next
msgbox(String.Join("|", ls.ToArray))
[此贴子已经被作者于2015/12/18 16:37:35编辑过]