主题：出错了

For Each ary() As String In DataTables("数据列表").GetValues("产品名称|规格型号","产品名称 is not null")

    Dim filter As String = ""

    If ary(1) = Nothing Then

        filter = "[产品名称] = '" & ary(0) & "' and [规格型号] is null"

    Else

        filter = "[产品名称] = '" & ary(0) & "' And [规格型号] = '" & ary(1) & "'"

    End If

    Dim dr As DataRow = DataTables("数据列表").Find(filter, "日期, [_SortKey]")

    Dim drs As List(of DataRow)

    dr("结余数量") = dr("主计量单位进仓数量") - dr("主计量单位出仓数量")

    

    drs = DataTables("数据列表").Select("[日期] >= '" & dr("日期") & "' And " & filter, "日期, [_SortKey]")

    For i As Integer = 1 To drs.Count - 1

        drs(i)("结余数量") = drs(i-1)("结余数量") + drs(i)("主计量单位进仓数量") - drs(i)("主计量单位出仓数量")

    Next

Next