为什么要这样循环?直接find不就行了?
Dim fdr As DataRow = DataTables("非插卡收货扫描").Find("SN = '" & e.DataRow("SN") & "' And _Identify <> " & e.DataRow("_Identify"))
If fdr IsNot Nothing Then
End If