主题：[求助]流水账代码有时不计算

这段代码，用来计算流水账的，现在有点问题：有些时候，有些行不计算，也没有规律，必须手动重置列，尤其是网络环境时

请帮忙看看什么问题

Dim dr As DataRow '定义一个其它行(没发生变化的行;这里用来表示被查找的上一行)
        Dim mr As DataRow = e.DataRow '定义一个发生变化的行
        dr = e.DataTable.Find("[_Identify] < " & mr("_Identify") & " and [物料编码] = '" & mr("物料编码") & "' And [移动单元] = '" & mr("移动单元") & "'","[_Identify] desc")
        If dr Is Nothing Then '主动单元行向上没找到,那本行就是第一行
            mr("结存") = mr("移动数量") ''当前变化的行的值=当前变化行的值
        Else '主动单元向上找到了
            mr("结存") = dr("结存") + mr("移动数量") '当前变化行的值=找到的行的结存值+当前变化行的数量值
        End If