主题：面对24万条数据,自动复制行的时候,死机了

If e.DataCol.Name = "启用" Then  'AndAlso e.DataRow("启用") = True 

    Dim nma() As String = {"条形码","防伪码"} '数据来源列

    Dim nmb() As String = {"code","Security"} '数据接收列

    Dim dr As DataRow = DataTables("对应码").find("code='" & MD5Encrypt(e.DataRow("条形码")) & "'")

    If dr Is Nothing Then

        dr = DataTables("对应码").AddNew

        For i As Integer = 0 To nma.Length - 1

            Dim Val As String

            Val = MD5Encrypt(e.DataRow(nma(i)))

            dr(nmb(i)) = Val

        Next

    End If

End If

请前辈们帮忙修改一下代码,看看能否改观一下执行效率.