Foxtable(狐表)用户栏目专家坐堂 → [求助]


  共有2257人关注过本帖树形打印复制链接

主题:[求助]

帅哥哟,离线,有人找我吗?
有点甜
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By: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

 回到顶部