Foxtable(狐表)用户栏目专家坐堂 → [求助]非等于比较


  共有2066人关注过本帖树形打印复制链接

主题:[求助]非等于比较

帅哥,在线噢!
lgj716330
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:六尾狐 帖子:1394 积分:10728 威望:0 精华:0 注册:2013/11/8 15:27:00
[求助]非等于比较  发帖心情 Post By:2017/8/17 14:29:00 [只看该作者]

Dim drs As List(of DataRow) = DataTables("表A").Select("""项目,日期"'注意排序参数
drs(0)("累计支出") = drs(0)("支出"
'设置第一行的累计支出
For 
i As Integer = 1 To drs.Count -  '从第二行开始逐行计算累计支出
    If 
drs(i)("项目") = drs(i - 1)("项目") Then
        drs(i)("累计支出") = drs(i-1)("累计支出") + drs(i)("支出"
)
    Else

        drs(i)("累计支出") = drs(i)("支出"
)
    
End If
Next

帮助中的这段代码,如果下一年度从新开始累计,要如何修改

 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2017/8/17 14:38:00 [只看该作者]

Dim drs As List(of DataRow) = DataTables("表A").Select("", "项目,日期") '注意排序参数
drs(0)("累计支出") = drs(0)("支出") '设置第一行的累计支出
For i As Integer = 1 To drs.Count - 1  '从第二行开始逐行计算累计支出
    If drs(i)("日期").year <> drs(i - 1)("日期").year Then
        drs(i)("累计支出") = drs(i)("支出")
    Else
        If drs(i)("项目") = drs(i - 1)("项目") Then
            drs(i)("累计支出") = drs(i-1)("累计支出") + drs(i)("支出")
        Else
            drs(i)("累计支出") = drs(i)("支出")
        End If
    End If
Next

 回到顶部