主题：如何随机取数？

 因为随机数会有重复的，你对第二列再加一下查找判断吧。

 代码。

For Each r As Row In Tables("表A").Rows
    r("第二列")=Nothing
    r.save()
Next

Dim count As Integer = 0
Dim ls As New List(Of Integer)
Do While count < 4
    Dim Val3 As Integer = Rand.Next(1,10)
    If ls.Contains(val3) = False Then
        Dim dr As DataRow=DataTables("表A").FINd("第一列=" & val3)
        ls.Add(val3)
        If dr IsNot Nothing
            dr("第二列")=val3
            dr.save()
            count += 1
        End If
    End If
Loop

Dim t As Table=e.Form.controls("table1").Table
Dim cmd As New SQLCommand
cmd.commandtext="select 第二列 from {表A} where 第二列 Is not null"
t.DataSource=cmd.ExecuteReader()

不过如果是 10个取9个，又不重复的话，最好倒过来思考。剔除某一个值。

或者你自己打乱这10个值，然后按顺序获取。