主题：[求助]重复值查找并导到另一同结构表时太缓慢

Dim i As Integer
For i  = 0 To DataTables("零件工艺").DataRows.Count-1 Step 1
    Dim dr As DataRow = DataTables("零件工艺").DataRows(i)
    Dim dr2 As DataRow = DataTables("零件工艺").Find("图号='" & dr("图号") & "' and 计件工序='" & dr("计件工序") & "' and _Identify <> " & dr("_Identify"))
    If dr2 IsNot Nothing Then
        Dim dr3 As DataRow = DataTables("重复工序零件工艺").AddNew
        For Each dr4 As DataCol In DataTables("重复工序零件工艺").DataCols
            dr3(dr4.Name) = dr(dr4.Name)
        Next
    End If
Next

上述代码执行卡死，数据只2万行多一点，是哪儿有问题呢？

谢谢，帮助内容太多，有时找都要好半天，有时还想不透，所有就提问了。