以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  如何计算上一行中的两个数值和，计算结果在本行的单元格中  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=3242)
--  作者：xinyin
--  发布时间：2009/6/22 18:06:00
--  如何计算上一行中的两个数值和，计算结果在本行的单元格中
当前行的上一行的两个单元格的数值累加的代码
 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:1.rar

[此贴子已经被作者于2009-6-23 12:37:26编辑过]
--  作者：yangming
--  发布时间：2009/6/22 18:36:00
--  

参看系统文件夹中的流水帐的示例
--  作者：xinyin
--  发布时间：2009/6/22 20:46:00
--  

不是流水式那种。只是单独取上一行中的两个单元格的数字
--  作者：八婺
--  发布时间：2009/6/22 22:00:00
--  
所有行的上一行两个单元格数值累加和当前行的上一行的两个单元格的数值累加的代码是不一样的，所以你得说明白问题才行。
--  作者：xinyin
--  发布时间：2009/6/23 12:19:00
--  
是当前行的上一行的两个单元格的数值累加的代码,那位大哥帮帮忙
--  作者：yangming
--  发布时间：2009/6/23 12:20:00
--  
上传你的文件看看吧
--  作者：xinyin
--  发布时间：2009/6/23 12:40:00
--  

上传了.谢谢yangming
--  作者：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("第三列")
--  作者：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("第三列")

收藏，谢谢
--  作者：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编辑过]