谁有这个问题的解决方案吗？

Question

一个数据库中只有四条记录
现在用以下代码让它在窗体上滚动显示
Private Sub Timer1_Timer()
If rst1.EOF Then
   rst1.MoveFirst
End If
Lb2.Caption = rst1.Fields("编号")
rst1.MoveNext
If rst1.EOF Then
   rst1.MoveFirst
End If
Lb3.Caption = rst1.Fields("编号")
rst1.MoveNext
If rst1.EOF Then
   rst1.MoveFirst
End If
Lb4.Caption = rst1.Fields("编号")
rst1.MoveNext
If rst1.EOF Then
   rst1.MoveFirst
End If
Lb5.Caption = rst1.Fields("编号")
rst1.MoveNext
End Sub，如果label和数据库记录条数不为4就可以达到滚动的要求。但是由于记录数与Label控件数相同，即同为4　实事上没有滚动，因为循环时每个Label上的内容没有改变。
请问有什么方法以让Label上的内容改变显示，从而达到滚动的目的

Answer 1

实际上是有滚动,由于记录数与Label控件数相同,数据库记录读到最后一个
刚好就是Label控件的最后一个,数据库记录又从第一个读起,刚好又是Label控件的第一个,这样Label控件中的内容就相同了,所以像你这写的两者是不能够相同的,不过还有好多方法,比如用, RND随机数把数据值赋给Label控件数,或每次循环时用 rst1.Sort 语句 重新按 "升序" 或"降序"排列一次,等等

Answer 2

你是不是想让这四个数据在LABEL控件中循环滚动啊？？