下载信息  [文件大小：   下载次数： ]

点击浏览该文件:测试.xls

If  "(收款账户)"="{微信}"
Select Case e.DataCol.Name 

    Case "应收","应付"
        Dim dr As DataRow
        Dim drs As List(of DataRow)
        dr = e.DataTable.Find("[_SortKey] < " & e.DataRow("_SortKey"), "[_SortKey] Desc") \'找出上一行
        If dr Is Nothing  Then  
            e.DataRow("微信余额") = e.DataRow("应收") - e.DataRow("应付")
            dr = e.DataRow
        End If
        drs = e.DataTable.Select("[_SortKey] >= " & dr("_SortKey"), "[_SortKey]")
        For i As Integer = 1 To drs.Count - 1 \'重算余下行的余额
            drs(i)("微信余额") = drs(i-1)("微信余额") + drs(i)("应收") - drs(i)("应付")
        Next    
End Select
End If
人  14:02:03
如果收款账户=微信。微信余额就相加