Dim drs As List(Of DataRow) = DataTables("事项进度").SQLSelect("主键编号= '" & dr("_Identify") & "'") For Each dr2 As DataRow In drs If Names2.Contains(dr2("录入人员")) = False Then '将现有行中需要删除的删除掉 dr2.delete() dr2.Remove() dr2.Save() Else Names.Add(dr2("录入人员")) End If Next