主题：求助：是否发生了死循环

If e.DataCol.name = "材料编号" OrElse e.DataCol.name = "定额用量" OrElse e.DataCol.name = "配合量" OrElse e.DataCol.name = "市场价" Then

    If dr1("材料编号") IsNot Nothing Then

        Dim dr2 As DataRow = DataTables("材料库").Find("[材料编号] = '" & dr1("材料编号") & "'")

        If dr2("材料编号") IsNot Nothing Then

            dr1("材料名称") = dr2("材料名称")

            dr1("单位") = dr2("单位")

            dr1("单价") = dr2("单价")

            dr1("主材") = dr2("主材")

            dr1("RCJ") = dr2("RCJ")

            dr1("砼") = dr2("砼")

            If pr("人工") > 0 And dr1("单位") = "工日" Then ''计算工日市场价

                dr1("市场价") =  dr1("单价") * pr("人工")

            End If

            ''If dr2("市场价") IsNot Nothing Then

           End If

     End If

End If

加入红色代码，执行完   dr1("砼") = dr2("砼")  程序没有错误提示，自动关闭。

1、有市场价的填入材料库中的市场价

2、没有市场价的 为空值

但太慢了

请教，应该怎样修改？

加入红色代码 ，计算完1项 用时 24秒，

请教，Bin 版主，这个代码应该怎样修改呢？

谢谢！

一条 If dr2("市场价") IsNot Nothing Then