一个关于Listview的问题

[yoyo9250]

Private Sub Data1_Validate(Action As Integer, Save As Integer)
　Set itmx = ListView1.ListItems.Add(, , Data1.Recordset.Fields("Au_ID"))
　itmx.SubItems(1) = Data1.Recordset.Fields("Au_ID")
　itmx.SubItems(1) = Data1.Recordset.Fields("Author")
End Sub
我用DATA控件连接了一个数据库　但是运行后只能显示第一条数据　请问这是为什么？

[makepeace]

这样当然不行，你要一条一条加到listview里面。
do until data1.recordset.eof=true

listview1.listitem.add ......

loop

[zou19820704]

Private Sub Form_Load()
Do Until Data1.Recordset.BOF = True

itmx.SubItems(1) = Data1.Recordset.Fields("Author")
Me.Data1.Recordset.MoveNext
Loop
End Sub

[bbhere]

要循环
数据集要movenext

[flyingZFX]

疯了。

[yoyo9250]

谢谢各位的回答
我按照上面的做　运行后又出现错误（“no current record”）　请问这是为什么？　
是数据库有问题吗？还是程序的问题？

[yoyo9250]

疯了。//

什么意思？？