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
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
我的库很简单,只有两个字段,bookidx,bookname
看起来bookidx也用不上了,用for循环,用bookname把label填满,思路不应该有错
可我一试,每个label都显示最后一条记录,label的显示怎么也分不开,总是一致的。
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至此,我已略有感悟!谨以小分送上,小分小矣,不成敬意,望笑纳。