主题：[求助如何计算上月的结存数量

Select Case e.DataCol.Name
    Case "月份"
        For Each dr As DataRow In DataTables("仓库存在统计表").DataRows
            Dim dt As DataTable = DataTables("仓库入货明细")
            Dim Filter As String = "类别 = '" & dr("类别") & "' And "
            Filter = Filter & "品名 = '" & dr("品名") & "' And "
            Filter = Filter & "规格与色号 = '" & dr("规格与色号") & "' And "
            Filter = Filter  & "单位 = '" & dr("单位") & "' And "
            Filter = Filter & "单价 = " & dr("单价")
            dr("本月_入库_数量") = dt.Compute("Sum(入库数量)",Filter & "And [入库月份] ='" & e.DataRow("月份") & "'")
            dr("本月_出库_数量") = dt.Compute("Sum(出库数量)",Filter & "And [出库月份] ='" & e.DataRow("月份") & "'")

            ’这个代码是计算本月的出入库情况

            dr（"上月结存_数量")=?   这个不会,举例我本月计算为5月份,我要计算4月份的结存数量,怎么写?
      Next
End Select

C版，你给的代码，这个代码我试过,我转牛角尖了，本来是如果是选择上月不是截止的话举例,我选择七月的话,我本来六月的结存应该有36个,但是代码会将六月的结存减去了5月的结存，应该是25个。其实就应该是25个，因为是算的6月一个月的结存。我给搞糊涂了。气死我了，一下午。如果是截止就应该按上面的。

我也不知道是怎样,帮人家弄.