主题：列表达式

老师:

     请您看一下.我7楼上传的表格中,明细账的后三列 .要求计算从年初.到年末的每个人累计时时的结存张数.金额和废piao.在明细账的表属性里有一个是在您写的代码基础上改过的代码！可是执行起来不对啊！请问这个代码要怎么写啊?

以下是有问题的代码

 Select Case e.DataCol.Name
   
    Case "站结存废piao","站结存张数","站领入_张数","站_上年结转张数","站售出_张数","站售出_金额","站售出_废piao","站结存金额"
       
        Dim dr As DataRow
       
        Dim mr As DataRow = e.DataRow
       
        Dim drs As List(of DataRow)
       
        dr = e.DataTable.Find("[_SortKey] < " & mr("_SortKey") & " And [站_日期] = '" & mr("站_日期") & "'", "[_SortKey] Desc")
       
        If dr Is Nothing Then '如果没有上一行,说明本行就是同产品的第一行
           
            mr("站结存张数") = mr("站_上年结转张数") + mr("站领入_张数") - mr("站售出_张数")- mr("站售出_废piao")
           
            mr("站结存金额") = mr("站售出_金额")
           
            mr("站结存废piao") = mr("站售出_废piao")
            dr = mr
           
        End If
       
        drs = e.DataTable.Select("[_SortKey] >= " & dr("_SortKey") & " And [站_日期] = '" & dr("站_日期") & "'")
       
        For i As Integer = 1 To drs.Count - 1 '重算余下行的余额
           
            drs(i)("站结存张数") = drs(i-1)("站结存张数") + drs(i)("站_上年结转张数") + drs(i)("站领入_张数") - drs(i)("站售出_张数")- drs(i)("站售出_废piao")
           
            drs(i)("站结存金额") = drs(i-1)("站结存金额") + drs(i)("站售出_金额")
            drs(i)("站结存废piao") = drs(i-1)("站结存废piao") + drs(i)("站售出_废piao")
        Next
       
End Select

此主题相关图片如下：yxj41q27{oj48zy7{@6)@~v.png

老师:

      上图是明细账的页面,同一姓名的人每天发生的张数,金额,废piao不一样,需要手工录入当天的发生额,后面三列要自动算出,每人的从年初至当天的累计张数,金额,废piao的数量.但现在只算出的是个人当天发生的一行的累计 ,请老师给改一下代码.