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


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

主题：如何实现这种计算
帅哥哟，离线，有人找我吗？
hbhb
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：狐神 帖子：5056 积分：13057 威望：0 精华：0 注册：2014/5/15 21:34:00 		如何实现这种计算  发帖心情 Post By：2016/9/22 18:39:00 [只看该作者]

如果第一行第一列原来的值为2，如果第一行第二列输入4 则第一行第一列等于2+4 = 6，如果第一行第三列输入10 则第一行第一列等于2+4 + 10 = 16。
如果第一行第一列原来的值为5，如果第一行第二列输入4 则第一行第一列等于5+4 = 9，如果第一行第三列输入10 则第一行第一列等于5+4+ 10 =  19。
 回到顶部
帅哥哟，离线，有人找我吗？
hbhb
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：狐神 帖子：5056 积分：13057 威望：0 精华：0 注册：2014/5/15 21:34:00 		  发帖心情 Post By：2016/9/22 19:32:00 [只看该作者]

afteredit事件中为何不能实现以上功能？原来的值如何保存不变？

Select Case e.Col.Name
    Case "第二列"
   Dim a1 As Double
  a1 = e.Row("第二列")
   Case "第三列"
 
 Dim a2 As Double
  a2 = e.Row("第二列")

e.Row(第一列) = e.Row(第一列) + a2 + a3
 End Select
 回到顶部
帅哥哟，离线，有人找我吗？
188802386
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：三尾狐 帖子：629 积分：4921 威望：0 精华：0 注册：2014/2/25 15:50:00 		  发帖心情 Post By：2016/9/22 20:08:00 [只看该作者]

建议第一列，第二列，第三列，合计列

 回到顶部
帅哥哟，离线，有人找我吗？
188802386
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：三尾狐 帖子：629 积分：4921 威望：0 精华：0 注册：2014/2/25 15:50:00 		  发帖心情 Post By：2016/9/22 20:09:00 [只看该作者]

合计列采用表达式列，只要1 2 3列一变化，合计列就自动变化

 回到顶部
帅哥哟，离线，有人找我吗？
hbhb
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：狐神 帖子：5056 积分：13057 威望：0 精华：0 注册：2014/5/15 21:34:00 		  发帖心情 Post By：2016/9/22 21:05:00 [只看该作者]

蓝蓝的天大师！！！！！！

 回到顶部
帅哥，在线噢！
有点蓝
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：109447 积分：556891 威望：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
 回到顶部
帅哥哟，离线，有人找我吗？
188802386
 小大  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：三尾狐 帖子：629 积分：4921 威望：0 精华：0 注册：2014/2/25 15:50:00 		  发帖心情 Post By：2016/9/22 21:53:00 [只看该作者]

这种会不会存在再次修改第二列或第三列时，第一列的数字累加呢

 回到顶部
帅哥，在线噢！
有点蓝
 小大  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：109447 积分：556891 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2016/9/22 22:06:00 [只看该作者]

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

 回到顶部
帅哥哟，离线，有人找我吗？
hbhb
 小大  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：狐神 帖子：5056 积分：13057 威望：0 精华：0 注册：2014/5/15 21:34:00 		  发帖心情 Post By：2016/9/23 0:08:00 [只看该作者]

还是累计呀，有无办法不累计？

 回到顶部
帅哥，在线噢！
有点蓝
 小大  10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：109447 积分：556891 威望：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
 回到顶部
总数 14 1 2 下一页
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.04297 秒, 4 次数据查询