Foxtable(狐表)用户栏目专家坐堂 → 流水账计算结果不让显示0或负数


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

主题:流水账计算结果不让显示0或负数

帅哥哟,离线,有人找我吗?
sxcgtq
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:婴狐 帖子:11 积分:162 威望:0 精华:0 注册:2018/3/13 16:54:00
流水账计算结果不让显示0或负数  发帖心情 Post By:2018/3/15 17:48:00 [只看该作者]

流水账计算结果不让显示0或负数 

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


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

e.datarow("abc") = xxx 赋值的时候,先对xxx进行判断,如果是 <= 0 的数据,就设置成nothing

 

If xxx <= 0 Then

    e.datarow("abc") = nothing

else

    e.datarow("abc") = xxx

End If


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


加好友 发短信
等级:婴狐 帖子:11 积分:162 威望:0 精华:0 注册:2018/3/13 16:54:00
  发帖心情 Post By:2018/3/15 18:05:00 [只看该作者]

我不懂代码,能不能帮助写一下代码谢谢

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


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


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


加好友 发短信
等级:婴狐 帖子:11 积分:162 威望:0 精华:0 注册:2018/3/13 16:54:00
  发帖心情 Post By:2018/3/15 18:31:00 [只看该作者]

谢谢楼主我想要的是不让0显示,就是值是0为空。不懂代码,帮我写个代码吧,要流水账的全代码,谢谢谢谢谢谢

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


加好友 发短信
等级:婴狐 帖子:11 积分:162 威望:0 精华:0 注册:2018/3/13 16:54:00
谢谢楼主我想要的是不让0显示,就是值是0为空。不懂代码,帮我写个代码吧,要流水账的全代码,谢谢谢谢谢谢  发帖心情 Post By:2018/3/15 19:15:00 [只看该作者]


谢谢楼主我想要的是不让0显示,就是值是0为空。不懂代码,帮我写个代码吧,要流水账的全代码,谢谢谢谢谢谢

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


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

比如代码

 

Select Case e.DataCol.Name
    Case "收入","支出"
        For Each dr As DataRow In e.DataTable.Select("[_SortKey] >= " & e.DataRow("_SortKey"))
            Dim Val1 As Double = e.DataTable.Compute("Sum(收入)","[_SortKey] <= " & dr("_SortKey"))
            Dim Val2 As Double = e.DataTable.Compute("Sum(支出)","[_SortKey] <= " & dr("_SortKey"))
            Dim v = Val1 - Val2
            If v <= 0 Then
                dr("余额") = Nothing
            Else
                dr("余额") = v
            End If
        Next
End Select


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


加好友 发短信
等级:婴狐 帖子:11 积分:162 威望:0 精华:0 注册:2018/3/13 16:54:00
  发帖心情 Post By:2018/3/15 20:48:00 [只看该作者]

完美解决,谢谢图片点击可在新窗口打开查看

 回到顶部