主题：关于集合remove移除失败的问题

Dim drs As List(Of DataRow) = DataTables("可出货船").SQLSelect("已扣除标配附件<>'true' and 是否在库='true'")

Dim lst As List(Of DataRow) = DataTables("可出货船").SQLSelect("已扣除标配附件<>'true' and 是否在库='true'")

Dim dr不扣 As DataRow = DataTables("系统重要参数").SQLFind("数值名称='在库船不扣除标配附件的仓库名称'")

Dim str不扣仓库 As String

If dr不扣 IsNot Nothing Then

    str不扣仓库 = dr不扣("当前值")

End If

'MessageBox.Show(2)

Dim 不扣仓库() As String = str不扣仓库.Split(",")

'将已经登记为不扣的仓库中的船排除

MessageBox.Show("移除前drs.count=" & drs.count)

For Each s As String In 不扣仓库

    '    MessageBox.Show(s)

    

    For Each dr As DataRow In lst

        Dim drKC As DataRow = DataTables("vw_库存查询表").SQLFind("库存号='" & dr("库存号") & "'")

        If drKC IsNot Nothing Then

            If drKC("仓库名称") = s Then

                Dim drRM As DataRow = DataTables("可出货船").SQLFind("唯一码='" & dr("唯一码") & "'")

                If drRM IsNot Nothing Then

                    '                    MessageBox.Show("移除" & dr("唯一码"))

                    drs.remove(drRM)

                End If 

                

            End If

        Else

            drs.remove(dr) '库存不存在

        End If 

    Next 

Next

MessageBox.Show("移除后drs.count=" & drs.count)

想从drs集合中移除指定仓库名称的记录，但试了多次，移除前后记录的总数没有变化，唯一码是肯定存在的