data1.Refresh
data1.Recordset.Index="field"
for i=1 to 50 
label1(i).datafield="field"
data1.Recordset.MoveNext
do until data1.Recordset.EOF
exit sub
loop
next i

解决方案 »

  1.   

    绑定只能对一个记录,不能对全部记录,用zyykunan(酷男)的方法吧
      

  2.   

    这一句调试不能通过:data1.Recordset.Index="field"
    我的库很简单,只有两个字段,bookidx,bookname
    看起来bookidx也用不上了,用for循环,用bookname把label填满,思路不应该有错
    可我一试,每个label都显示最后一条记录,label的显示怎么也分不开,总是一致的。
      

  3.   

    小弟对两位老大的仰慕之情有如滔滔江水,连绵不绝,又有如黄河泛滥一发不可收拾。
    zyykunan(酷男)帅哥清楚地指出了方向!
    enterzhuang(老庄)帅哥更是一针见血!小弟略略一变,搞定!代码如下:
    Data1.DatabaseName = App.Path & "\booke.mdb"
    Data1.Refresh
    Data1.Recordset.MoveFirst
    For i = 0 To 49
    Data1.Recordset.MoveNext
    Label2(i).Caption = Data1.Recordset.Fields("bookname").Value
    Next i至此,我已略有感悟!谨以小分送上,小分小矣,不成敬意,望笑纳。