主题：排除集合内重复值

如下代码

 

Vals = DataTables("air_shipment").GetValues("FOB_1_Currency|CIF_1_Currency|DDU_1_Currency", "[OriginCountry] is not null")
val.AddRange(vals)
Vals = DataTables("int_LCL").GetValues("FOB_1_Currency|CIF_1_Currency|DDU_1_Currency", "[Origin_Country] is not null")
val.AddRange(vals)
Vals = DataTables("international_FCL").GetValues("FOB_1_Currency|CIF_1_Currency|DDU_1_Currency", "[Origin_Country] is not null")
val.AddRange(vals)

以上为从各个表里面的数个列抓取不同的货币。
Dim Vals2 As new List(of String)
For i As Integer = 0 To Vals.Count - 1
    For u As Integer =0 To 2
        vals2.add(val(i)(u))
    Next
Next

以上为将字符数组的合并到一个集合里面，变成1维。

 

问题：如何排除掉vals2这个1维集合里面的重复的值？

 

 Contains   判断集合中是否包含某个值

Dim Vals2 As new List(of String)
For i As Integer = 0 To Vals.Count - 1
    For u As Integer =0 To 2
        If  vals2.Contains(vals(i)(u)) = False Then
            vals2.add(vals(i)(u))
        End If
    Next
Next

厉害，先判断，有不一样的再保存。谢了

我在使用这个代码的时候遇到了另外一个问题，就是有一些元素虽然没有重复但是，也被排除掉了。红色为原先的旧代码，虽有重复，但是一共有5个元素出现。
'For i As Integer = 0 To Vals.Count - 1
    'For u As Integer =0 To 2
        'vals2.add(val(i)(u))
    'Next
'Next

红色部分代码可以提取5个元素

 

For i As Integer = 0 To Vals.Count - 1
    For u As Integer =0 To 2
        If  vals2.Contains(vals(i)(u)) = False Then
            vals2.add(vals(i)(u))
        End If
    Next
Next

排除相同值得代码只显示了3个元素，有两个消失了。

 

DataTables("currency_maintain").DataRows.Clear
For i As Integer = 0 To Vals2.Count - 1
    Dim dr As DataRow = DataTables("currency_maintain").AddNew()
    dr("currency") = Vals2(i)
Next

此主题相关图片如下：捕获.png


此主题相关图片如下：捕获2.png

知道错在哪里了，

 

For i As Integer = 0 To Vals.Count - 1
    For u As Integer =0 To 2
        If  vals2.Contains(vals(i)(u)) = False Then
            vals2.add(vals(i)(u))
        End If
    Next
Next
这里的S是多余的，我没有检查狐表爸爸的代码，直接用了。