以文本方式查看主题 -  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=80493)

--  作者：cjz7120641 --  发布时间：2016/1/24 16:09:00 --  [求助]数值最后一位变化 怎么让最后一位变成我想要的数字，比如 我前一列中有个数字是1121 然后我后面一列想自动取值为1128，如果最后一位在1-7之间  我想全部变8，0.8.9不动，这个怎么写代码

--  作者：大红袍 --  发布时间：2016/1/24 16:17:00 --   If e.DataCol.name = "第一列" Then     If e.NewValue = Nothing Then         e.DataRow("第二列") = Nothing     Else         Dim s As String = e.NewValue.substring(e.newValue.length-1, 1)         If val(s) <= 7 Then             s = e.NewValue.substring(0, e.newValue.length-1)             e.DataRow("第二列") = s & 8         Else             e.DataRow("第二列") = e.NewValue         End If     End If End If