抽奖部分，TimerClick事件：
Dim lst As New List(of Integer)
For i As Integer = 1 To 5
Do
Dim idx As Integer = rand.Next(0,DataTables("表A").DataRows.count)
If lst.Contains(idx)= False Then
lst.add(idx)
Exit Do
End If
Loop
Next
e.Form.Controls("Label1").text = DataTables("表A").DataRows(lst(0))("第一列")
e.Form.Controls("Label2").text = DataTables("表A").DataRows(lst(1))("第一列")
e.Form.Controls("Label3").text = DataTables("表A").DataRows(lst(2))("第一列")
e.Form.Controls("Label4").text = DataTables("表A").DataRows(lst(3))("第一列")
e.Form.Controls("Label5").text = DataTables("表A").DataRows(lst(4))("第一列")
[此贴子已经被作者于2016/12/23 12:39:28编辑过]
加好友 
发短信
Post By：2016/12/22 17:53:00 [显示全部帖子]
