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

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

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:1.rar

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

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

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

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

上传你的文件看看吧

上传了.谢谢yangming

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

收藏，谢谢

放在表的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