DataColChanged事件
Select Case e.DataCol.Name Case "第二列", "第三列" Dim d As Double = Rand.Next(e.DataRow("第三列") * 100, e.DataRow("第二列") * 100)/ 100 e.DataRow("第四列") = dEnd Select