主题：求助：流水账与重置列

在帮助文件中“流水账与重置列”里例子存在这样个缺点，如果流水账采用动态加载技术只加载部份数据，而一旦按例子中程序代码运行，是从每个产品第一行开始计算，这样计算结果与实际正确值可能会有出入。而我的假设是也采用动态加载技术加载部份数据，假设第一行库存数据已经核对无误（无需再参与重置列计算），如果我们重置列程序代码能够作到从每个产品第二行（动态加载数据后）开始计算，就有可能保证后面数据计算与实际值相符（上传附件中数据假定是采用动态加载技术后的结果），这个程序代码怎么写？兄弟我调试三天还没结果，请各位大师赐教？

帮助中原程序代码：

Dim nms As New List(Of String)
Dim drs As New List(of DataRow)
With DataTables("例子二")
    nms = .GetValues("产品")
    For Each nm As String In nms '找出每个产品的第一行数据, 添加到集合drs中
        drs.Add(.Find("产品 = '" & nm & "'", "[_SortKey]"))
    Next
    For Each dr As DataRow In drs
        .DataCols("入库").RaiseDataColChanged(dr)
    Next
End With