依次显示的问题

Question

数据库有一组数据，要依次显示，按一下下一个显示后一个数据，但我的按钮好像按多少下只显示下一个，我要按一下显示后一个在按一下显示在后面的一个，到最后提示无数据，该怎么做

Answer 1

你是用什么显示数据的？是text或label或其他类似的控件吧，那么：
1。相信你已经将控件正确的绑定到了数据源；
2。那么当按扭按下后你要做下面的事情--
   假设你是用ado连的数据库，那么
   if 记录未到尾 then
      ado1.recordset.movenext
   else
      记录已达到尾部
   end if
3.说明，当记录移动后，显示数据的控件会自动刷新内容为当前记录的内容，如果你的控件绑定的没问题。

Answer 2

if not rs.eof then
      rs.movenext
   else
      msgbox "已經到最后一筆"
   end if

Answer 3

问问题都不会.我们怎么知道你使用的什么方法,是dao,ado,rdo?

Answer 4

按多次只才显示下一条，如果不是按钮下代码的原因，你可以在sql语句的select后面加一个关键字distinct：
如：select distinct id,name....
可能的原因是提取出了重复记录，导致要按多次才能到下一条记录。

Answer 5

Private Sub Cmd3_Click()
txtsql = "select ...... "
Set rs = exesql(txtsql)
If Not rs.EOF Then
  rs.MoveNext
  Txt2.Text = rs("...")
Else
  MsgBox "....", vbOKOnly + vbExclamation, "提示"
End If
End Sub
这是我按钮的代码
应该是按钮代码的问题

Answer 6

用rs.movenext
把游标向下移动一位

Answer 7

按钮代码中的移动部分没什么问题，那就是select语句提取出了重复记录。放到查询分析器（sql server）或者access里面去执行一下看看结果集是怎样的

Answer 8

用一个static变量进行控制。private sub Command1_Click()
static n as integer
n=n+1if n>ubound(n) then
    msgbox "太多了，别点了！"
    exit sub
end ifMsgbox a(n)end sub

Answer 9

他说的应该是数据库中某一列的数据。
    While Not Rs.EOF
         MsgBox Rs("point") ‘point是数据库中某一列的列名
        Rs.MoveNext
    Wend
    Rs.Close
    Set Rs = Nothing