以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  [求助]计算求助  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=143136)

--  作者:miaoqingqing
--  发布时间:2019/11/14 15:07:00
--  [求助]计算求助
 第一列值,小于等于10时,第三列等于第二列值
第一列值,超过20,小于30时,第三列等于第二列值+0.2
第一列值,超过30,小于40时,第三列等于第二列值+0.4
也就是,第一列每增加10,都增加0.2

计算,求助

--  作者:有点蓝
--  发布时间:2019/11/14 15:22:00
--  
datacolchanged事件,大概这样

If e.DataCol.name = "第一列"
    If e.newvalue <= 10 Then
        e.DataRow("第三列") = e.DataRow("第二列")
    Else
        Dim i As Integer = math.Ceiling((e.newvalue-20) / 10)
        e.DataRow("第三列") = e.DataRow("第二列") + 0.2 * i
    End If
End If