Foxtable(狐表)用户栏目专家坐堂 → [求助]如何将两个集合合并成一个集合,并排除相同的元素


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

主题:[求助]如何将两个集合合并成一个集合,并排除相同的元素

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


加好友 发短信
等级:超级版主 帖子:107861 积分:548662 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2019/6/11 20:55:00 [显示全部帖子]

代码没有问题。上传实例看看

 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:107861 积分:548662 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2019/6/11 23:04:00 [显示全部帖子]

数组集合是无法使用Contains进行判断的,试试下面代码就明白了

Dim str() As String = {"1","2"}
Dim str2() As String = {"1","2"}
Dim sb1s As new List(of String())
sb1s.Add(str)
Output.Show(sb1s.Contains(str2))

这样就可以

Dim sb1s As List(of String)
sb1s = DataTables("职卫明细").SQLGetValues("仪器编号1 + ',' + 仪器型号1 + ',' + 仪器名称1","仪器编号1 > ''")
Dim sb2s As List(of String)
sb2s = DataTables("职卫明细").SQLGetValues("仪器编号2 + ',' + 仪器型号2 + ',' + 仪器名称2","仪器编号2 > ''")

If sb2s.Count > 0 Then
    For i As Integer = 0 To sb2s.count - 1
        If sb1s.Contains(sb2s(i)) = False Then
            sb1s.Add(sb2s(i))
        End If
    Next
End If
For i As Integer = 0 To sb1s.Count - 1
    Output.Show(sb1s(i))
Next


 回到顶部