Foxtable(狐表)用户栏目专家坐堂 → 如何实现这种计算


  共有2782人关注过本帖树形打印复制链接

主题:如何实现这种计算

帅哥哟,离线,有人找我吗?
有点蓝
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:110574 积分:562760 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2016/9/22 21:42:00 [显示全部帖子]

DataColChanged


Select Case e.DataCol.Name
    Case "第二列","第三列"
        e.DataRow("第一列") = e.DataRow("第一列") + e.DataRow(""第二列"") + e.DataRow(""第三列"")
End Select

 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:110574 积分:562760 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2016/9/22 22:06:00 [显示全部帖子]

除非初始值是固定的,后面几列又是按顺序录入的,否则没有办法避免

 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:110574 积分:562760 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2016/9/23 8:39:00 [显示全部帖子]

试试这个

DataColChanged

Select Case e.DataCol.Name
    Case "第二列","第三列"
        Dim v As Double = e.DataRow("第一列")
        If e.OldValue <> Nothing Then v = v - e.OldValue
        e.DataRow("第一列") = e.DataRow(e.DataCol.Name) + v
End Select

 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:110574 积分:562760 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2016/9/23 10:02:00 [显示全部帖子]

谁说是e.DataRow("第一列")的值。是编辑的单元格的旧值

 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:110574 积分:562760 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2016/9/23 11:32:00 [显示全部帖子]

什么叫感觉。数据说话,截图,说明操作步骤

 回到顶部