如何使用listview控件作为数据源?

letian_now 2006-03-21 01:50:58

谢谢.

...全文

289 12 打赏收藏转发到动态举报

写回复

用AI写文章

12 条回复

切换为时间正序

请发表友善的回复…

发表回复

letian_now 2006-03-23

打赏
举报

呵,我已经实现了它作为数据源的功能.没有想象的复杂.
谢谢大家拉.

flyingZFX 2006-03-22

打赏
举报

ListView 没有数据源，只能你自己一点点的添加，不过，这样也非常方便，很有控件，灵活性强。

liang80318 2006-03-22

打赏
举报

它不能做为数据源使用,但是可以自行加上就是了
比方说,你查找出了记录集

with rsrecordset '循环记录集
while not.eof
inti=inti+1 '行数
listview.listitem.add,,,0 '增加新行
listview.listitem(inti).subitem(1)=rsrecordset.field(0) '写入记录
listview.listitem(inti).subitem(1)=rsrecordset.field(1)
listview.listitem(inti).subitem(1)=rsrecordset.field(2)
.movenext
wend
end with
这样就应该很详细了

caitian6 2006-03-21

打赏
举报

mark

vansoft 2006-03-21

打赏
举报

那就是一行行塞入数据库啊。

可以写个函数嘛。

letian_now 2006-03-21

打赏
举报

顶哈

letian_now 2006-03-21

打赏
举报

你说的是将 ListView1作为数据显示,我需要将 ListView1作为数据源啊

也就是说,将 ListView1中的每一列添加到数据库文件中
....

ZOU_SEAFARER 2006-03-21

打赏
举报

Private Sub Command1_Click()
Me.ProgressBar1.Max = Data1.Recordset.RecordCount
Totel = Data1.Recordset.RecordCount
Data1.Caption = Totel
Set Val = Data1.Recordset
Do While Val.EOF = False
Max = Max + 1
Me.ProgressBar1.Value = Max
With ListView1.ListItems.Add()
For intX = 0 To 4
If intX = 0 Then
.Text = Data1.Recordset.Fields(0).Value
Else
.SubItems(intX) = Data1.Recordset.Fields(intX).Value
End If
Next
Data1.Recordset.MoveNext
End With
Loop
End Sub

letian_now 2006-03-21

打赏
举报

我不太会使用listitem对象,不能将listview控件中的listitems对象作为数据源,你能解决吗?

jobs002 2006-03-21

打赏
举报

比如DataGrid,里面有个属性DataSource,可以作为数据源，当然了，这需要写各类来实现
=====================================
可以提示一下
dim lst as listitem
set lst=listview1.listitems.add()
具体参数我就不写了，实际上在数据库中里面的表的主键作index,内容作text
需要引用ADO.....

letian_now 2006-03-21