看不懂,帮我解析!!!

[kuangyulai]

Sub subGetAllData()
Dim StrSql As String
Dim RstTblUnit As New ADODB.Recordset
Dim Xitem As ListItem
StrSql = ""
StrSql = "select * from TblUnit"

Set RstTblUnit = conn.Execute(StrSql)
LvwUnitName.ListItems.Clear

If Not RstTblUnit.EOF Then
RstTblUnit.MoveFirst
While Not RstTblUnit.EOF
DoEvents
Set Xitem = LvwUnitName.ListItems.Add(Text:=RstTblUnit!ID)
Xitem.SubItems(1) = RstTblUnit!UnitName
RstTblUnit.MoveNext
Wend
End If
End Sub
上面的代码请大虾给我详细的解说一下,我是刚学的:

Dim Xitem As ListItem '这个定义什么类型
DoEvents '这个又是什么呀
Set Xitem = LvwUnitName.ListItems.Add(Text:=RstTblUnit!ID) '????
Xitem.SubItems(1) = RstTblUnit!UnitName '????

[Cooly]

Dim Xitem As ListItem '定义ListView的Item对象
.
.
.

[noahman]

Well，Let me try!

1。Dim Xitem As ListItem
ListItem是一个对象，而ListView.ListItems则返回的是一个ListItem对象的集合。ListItem的属性主要有Name,Index,Key和SubItems(当ListView类型为Report的时候)。如果说你的Listview是用来显示某个目录下的文件列表的，则你可以将每个文件对应一个ListItem对象，那么文件名=ListItem.Name,文件的其他属性则有ListItem.SubItems()来一一对应。

2。DoEvents
DoEvents函数的功能转让控制权给OS，以便让操作系统处理其它的事件,多用于程序需要长时间处理的过程中。

3。Set Xitem = LvwUnitName.ListItems.Add(Text:=RstTblUnit!ID)
这是Listview中添加一个ListItem所使用的方法。如果是做文件列表，则这里应该是添加每个文件的文件名。

4。Xitem.SubItems(1) = RstTblUnit!UnitName
这就是Listview中添加ListItem相关属性的方式。如果是做文件列表，则这里应该是添加每个文件的具体信息，如大小、修改日期等等。

[lxcc]

up

[zuing]

up

[zhangbob]

gz一次！呵呵，大家说的很详细了。。。