主题：根据上下限产生随机数

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