- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 流水账计算结果不让显示0或负数 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=115861)
-- 发布时间：2018/3/15 17:48:00
-- 流水账计算结果不让显示0或负数
流水账计算结果不让显示0或负数
-- 发布时间：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
-- 发布时间：2018/3/15 18:05:00
--
我不懂代码，能不能帮助写一下代码谢谢
-- 发布时间：2018/3/15 18:13:00
--
参考
http://www.foxtable.com/webhelp/scr/1572.htm
http://www.foxtable.com/webhelp/scr/2136.htm
-- 发布时间：2018/3/15 18:31:00
--
谢谢楼主我想要的是不让0显示，就是值是0为空。不懂代码，帮我写个代码吧，要流水账的全代码，谢谢谢谢谢谢
-- 发布时间：2018/3/15 19:15:00
-- 谢谢楼主我想要的是不让0显示，就是值是0为空。不懂代码，帮我写个代码吧，要流水账的全代码，谢谢谢谢谢谢
谢谢楼主我想要的是不让0显示，就是值是0为空。不懂代码，帮我写个代码吧，要流水账的全代码，谢谢谢谢谢谢 |
-- 发布时间：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
-- 发布时间：2018/3/15 20:48:00
--
完美解决，谢谢
