以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  根据上下限产生随机数  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=106152)
--  作者：djylsf
--  发布时间：2017/9/3 15:38:00
--  根据上下限产生随机数
各位老师！
第1列为检验项目（例如20.78），第2列为各检验项目的上限值（例如20.88），第3列为各检验项目的下限值（例如20.68），第4列随机生成生成第2列、第3列之间的数值。
如何实现？谢谢
--  作者：有点甜
--  发布时间：2017/9/3 16:02:00
--  

DataColChanged事件

 

Select Case e.DataCol.Name
    Case "第二列", "第三列"
        Dim d As Double = Rand.Next(e.DataRow("第三列") * 100, e.DataRow("第二列") * 100)/ 100
        e.DataRow("第四列") = d
End Select
--  作者：djylsf
--  发布时间：2017/9/3 16:43:00
--  
谢谢！