主题：库存数量统计

Select Case e.DataCol.Name

    Case "入库数量", "出库数量"

        Dim dr As DataRow

        Dim drs As List(Of DataRow)

        dr = e.DataTable.Find("顺序号 < " & e.DataRow("顺序号"), "顺序号 Desc") '找出上一行

        msgBox(dr)

        If dr Is Nothing Then '如果没有找到上一行,说明本行就是第一行

            e.DataRow("库存数量") = e.DataRow("入库数量") - e.DataRow("出库数量")

            dr = e.DataRow

        End If

        drs = e.DataTable.Select("顺序号 >= " & dr("顺序号"), "顺序号")

        For i As Integer = 1 To drs.Count - 1 '重算余下行的余额

            drs(i)("库存数量") = drs(i - 1)("库存数量") + drs(i)("入库数量") - drs(i)("出库数量")

        Next 

End Select

提示运行错误