共11 条记录, 每页显示 10 条, 页签: [1] [2]

标题：如何计算上一行中的两个数值和，计算结果在本行的单元格中

1楼

xinyin 发表于：2009/6/22 18:06:00

当前行的上一行的两个单元格的数值累加的代码

下载信息 [文件大小：下载次数： ]
点击浏览该文件:1.rar

[此贴子已经被作者于2009-6-23 12:37:26编辑过]

2楼

yangming 发表于：2009/6/22 18:36:00

参看系统文件夹中的流水帐的示例

3楼

xinyin 发表于：2009/6/22 20:46:00

不是流水式那种。只是单独取上一行中的两个单元格的数字

4楼

八婺发表于：2009/6/22 22:00:00

所有行的上一行两个单元格数值累加和当前行的上一行的两个单元格的数值累加的代码是不一样的，所以你得说明白问题才行。

5楼

xinyin 发表于：2009/6/23 12:19:00

是当前行的上一行的两个单元格的数值累加的代码,那位大哥帮帮忙

6楼

yangming 发表于：2009/6/23 12:20:00

上传你的文件看看吧

7楼

xinyin 发表于：2009/6/23 12:40:00

上传了.谢谢yangming

8楼

gdtgl 发表于：2009/6/23 13:17:00

Dim dr As Row = Tables("表A").Rows(CurrentTable.Position)
Dim dr1 As Row = Tables("表A").Rows(CurrentTable.Position+1)
dr1("第四列") = dr("第二列") + dr("第三列")

9楼

kylin 发表于：2009/6/23 13:22:00

以下是引用gdtgl在2009-6-23 13:17:00的发言：
Dim dr As Row = Tables("表A").Rows(CurrentTable.Position)
Dim dr1 As Row = Tables("表A").Rows(CurrentTable.Position+1)
dr1("第四列") = dr("第二列") + dr("第三列")

收藏，谢谢

10楼

yangming 发表于：2009/6/23 14:00:00

放在表的DataColChanged事件中

Dim drs As List(Of DataRow)
drs = DataTables("表A").Select("[编号] > 0 and [第二列] > 0 and [第三列] > 0 ")
For n As integer = 0 To drs.Count - 1 '遍历所有行
        If n > 0 Then '
drs(n)("第四列") = drs(n-1)("第二列")+ drs(n-1)("第三列")
    Else
drs(n)("第四列") = ""
    End If
Next

[此贴子已经被作者于2009-6-23 14:09:39编辑过]

共11 条记录, 每页显示 10 条, 页签: [1] [2]