Select Case e.DataCol.name
   Case "A角","B角","属性"
     If e.DataRow.Isnull("A角") OrElse e.DataRow.Isnull("B角") OrElse e.DataRow.Isnull("属性")  Then
        e.DataRow("第三列")=Nothing
     Else
        If e.DataRow("属性")="房地产"
           e.DataRow("第三列")= Rand.Next(20,21)
           e.DataRow("日期") = Date.Today
           e.DataRow.Locked=True
           DataTables("开平").Save()
        Else
           e.DataRow("第三列")= Rand.Next(46,49)
           e.DataRow("日期") = Date.Today
           e.DataRow.Locked=True
           DataTables("开平").Save()
        End If
     End If
End Select

我弄了个抽签程序，这里我设置当A角，B角，和属性都不为空的时候，第三列随机生成一个数字，但是我发现，这个代码第三列总是不能随机到21 和49  是我对rand函数的理解有错嘛？

 你要设置成22或50才行的，随机数小于你的最大值的。

好的，谢谢