- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 如何做到将正数、负数分别相加 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=132128)
-- 发布时间：2019/3/14 14:41:00
-- 如何做到将正数、负数分别相加
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:正负值分别相加.rar |
如附页所示的数据表，我希望在 datacolchanged 里面实现正数、负数分别相加，请教怎样写代码？谢谢。（备注，0就当正数来算或者不予计算也可以）
-- 发布时间：2019/3/14 15:56:00
--
循环每一列，然后判断是否小于0，然后累加，如
Dim ary() As String = {"第二列", "第三列", "第四列"}
If array.Indexof(ary, e.DataCol.name) >= 0 Then
Dim sum1 As Double = 0
Dim sum2 As Double = 0
For Each c As String In ary
If e.DataRow(c) < 0 Then
sum1 += e.DataRow(c)
Else
sum2 += e.DataRow(c)
End If
Next
e.DataRow("第九列") = sum1
e.DataRow("第十列") = sum2
End If