以文本方式查看主题

-  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=135663)
--  作者：Rex1Chen
--  发布时间：2019/5/31 12:01:00
--  [求助]
 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:管理项目1.table

有点甜老师：
       你好！

    我要在表A从第一列第二行开始向下提取不同的4个不重复的字符，以 , 分开放入第二列第二行。并用这四个值跟第一列的第一行比较，如果有一个相同则显示中，如不相同则显示未开出。

如何实现? 谢谢！
--  作者：有点甜
--  发布时间：2019/5/31 12:15:00
--  
Dim t As Table = Tables("表A")
Dim r1 As Row = t.Rows(0)
Dim r2 As Row = t.Rows(1)
Dim ls As new List(Of String)
For i As Integer = r2.Index To t.Rows.count-1
    If ls.Contains(t.Rows(i)("第一列")) = False Then
        ls.add(t.Rows(i)("第一列"))
    End If
    If ls.count >= 4 Then
        Exit For
    End If
Next
r2("第二列") = String.Join(",", ls.ToArray)
If ls.Contains(r1("第一列")) Then
    r2("第三列") = "中"
Else
    r2("第三列") = "未开出"
   
End If
--  作者：Rex1Chen
--  发布时间：2019/5/31 12:50:00
--  
非常感谢！高手！！