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

For Each nm As String In nms '找出每个产品的第一行数据, 添加到集合drs中
        drs.Add(.Find("客户简称 = '" & nm & "'", "[_SortKey]")) 
Next

改一下：

For Each nm As String In nms '找出每个产品的第一行数据, 添加到集合drs中
        Dim rr AS datarow  = .Find("客户简称 = '" & nm & "'", "[_SortKey]")

        if rr Isnot Nothing then

             drs.Add(rr)

        End If

Next

原因：不是任何时候，你都能找到符合条件的行的。