控件和access的问题

Question

从数据库调用数据（一个10条） from 有text 和一个控件数组（10个） 点1 text可以出现第一条信息 点2 text可以出现第二条信息....（控件数组已经实现）  
还有二个 按钮（分别是上一条和下一条） 现在是比如 我点控件数组里的5  他可以显示 还是在点上一条他不会在text里显示第4条信息  点下一条的时候也不会在text里显示第6条信息 

Answer 1

你的代码都不要了，下面给你介绍个做法，你自己琢磨一下dim rs as adodb.recordset '定位为模块变量假设command1 加载数据
sub Command1_click
rs.open .....set text1.datasource=rs
text1.datafield="字段名" '你数据库的要在text1中显示的字段名
end sub假设你的控件数组为option控件
sub option1_click(index...)
  rs.move index,vbbookfirst
end sub不需要别的代码了

Answer 2

在加上上一条下一条 控制sub cmdprev_click
  rs.moveprevious
  if rs.bof then
   rs.movefirst
  endif
  
 '此处可加入调整option1选择代码，你自己实现
end subsub cmdNext
rs.movenext
if rs.eof then
 rs.movalest
end if
 '此处可加入调整option1选择代码，你自己实现end sub

Answer 3

本帖最后由 bcrun 于 2013-05-10 08:45:19 编辑

  

Answer 4

按为说的做，将查询改成：
 zjm = "select * from t_ccs 按照你的代码，记录一次取一条，moveXXX，应该是错误的，要使用moveXXX则必须将所有的数据一次加载

Answer 5

 '此处可加入调整option1选择代码，你自己实现 这句话什么意思啊  想不通