老师，您好。我需要一个列表循环的功能，参考前人的项目，做出来的结果就是会跳1位，请老师帮忙。
计时器代码如下：
Dim max As Integer = Vars("num") '获得最大行数....这个值每次的循环开始后就不会变
Dim idx As Integer = Vars("seat") '获得传过来的随机数 or 每次循环自增1后的值
Dim lst As New List(of Integer)
For i As Integer = 1 To 5
If idx < max Then
lst.add(idx)
Else
lst.add(idx - max)
End If
idx = idx + 1
Next
If idx = 0 Then
Vars("seat") = max - 3
ElseIf idx = 1 Then
Vars("seat") = max - 2
ElseIf idx = 2 Then
Vars("seat") = max - 1
Else 'idx >= 3
If idx < max + 3 Then
Vars("seat") = idx - 3
Else
Vars("seat") = 0
End If
End If
e.Form.Controls("Label1").text = Tables("表A").Rows(lst(0))("第一列")
e.Form.Controls("Label2").text = Tables("表A").Rows(lst(1))("第一列")
e.Form.Controls("Label3").text = Tables("表A").Rows(lst(2))("第一列")
e.Form.Controls("Label4").text = Tables("表A").Rows(lst(3))("第一列")
e.Form.Controls("Label5").text = Tables("表A").Rows(lst(4))("第一列")
需要的是：1 2 3 4 5 >> 2 3 4 5 6 >> 3 4 5 6 7...
现在的效果是：1 2 3 4 5 >> 3 4 5 6 7 >> 5 6 7 8 9 ...
[此贴子已经被作者于2018/11/2 12:05:16编辑过]
加好友 
发短信
Post By：2018/11/2 12:04:00 [只看该作者]
