- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- [求助]加减 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=99283)
-- 发布时间：2017/4/16 15:41:00
-- [求助]加减
老师，Al列=B列（整数和负数）计算的结果。在A列最后一行显示
-- 发布时间：2017/4/16 17:15:00
--
传个截图看看
-- 发布时间：2017/4/16 18:21:00
--
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:行计算.table |
-- 发布时间：2017/4/16 23:01:00
--
If e.DataCol.Name = "金额_交易" Then
Dim sr As Integer = e.DataTable.Compute("Sum(金额_交易)","金额_交易 > 0")
Dim zc As Integer = e.DataTable.Compute("Sum(金额_交易)","金额_交易 < 0")
Dim r As Row = Tables("银行交易记录").Rows(Tables("银行交易记录").Rows.Count - 1)
r("金额_支出") = zc
r("金额_收入") = sr
r("余额") = sr+zc
End If
-- 发布时间：2017/4/17 8:00:00
--
老师，当新增行交易金额列单元格输入数据时希望清除上一行的数据：("金额_支出") ("金额_收入") ("余额")
-- 发布时间：2017/4/17 8:34:00
--
If e.DataCol.Name = "金额_交易" Then
Dim r As DataRow = e.DataTable.Find("_sortkey < " & e.DataRow("_sortkey"), "_sortkey desc")
r("金额_支出") = Nothing
r("金额_收入") = Nothing
r("余额") = Nothing
End If
-- 发布时间：2017/4/17 10:39:00
--
以下是引用有点色在2017/4/17 8:34:00的发言：
If e.DataCol.Name = "金额_交易" Then
Dim r As DataRow = e.DataTable.Find("_sortkey < " & e.DataRow("_sortkey"), "_sortkey desc")
r("金额_支出") = Nothing
r("金额_收入") = Nothing
r("余额") = Nothing
End If
If e.DataCol.Name = "金额_交易" Then
Dim r As DataRow = e.DataTable.Find("_sortkey < " & e.DataRow("_sortkey"), "_sortkey desc")
r("金额_支出") = Nothing
r("金额_收入") = Nothing
r("余额") = Nothing
End If
老师，代码报错
-- 发布时间：2017/4/17 10:44:00
--
If e.DataCol.Name = "金额_交易" Then
Dim r As DataRow = e.DataTable.Find("_sortkey < " & e.DataRow("_sortkey"), "_sortkey desc")
If r IsNot Nothing Then
r("金额_支出") = Nothing
r("金额_收入") = Nothing
r("余额") = Nothing
End If
End If
-- 发布时间：2017/4/17 11:07:00
--
老师，还是报错。
此主题相关图片如下：图像 1.png
-- 发布时间：2017/4/17 11:09:00
--
写到datacolchanged事件。