看不懂,帮我解析!!!

kuangyulai 2003-04-01 02:17:31
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 '????
...全文
11 点赞 收藏 5
写回复
5 条回复
切换为时间正序
当前发帖距今超过3年,不再开放新的回复
发表回复
zhangbob 2003-04-01
gz一次!呵呵,大家说的很详细了。。。
回复
zuing 2003-04-01
up
回复
lxcc 2003-04-01
up
回复
noahman 2003-04-01
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相关属性的方式。如果是做文件列表,则这里应该是添加每个文件的具体信息,如大小、修改日期等等。
回复
Cooly 2003-04-01
Dim Xitem As ListItem '定义ListView的Item对象
.
.
.
回复
相关推荐
发帖

1187

社区成员

VB 数据库(包含打印,安装,报表)
申请成为版主
帖子事件
创建了帖子
2003-04-01 02:17
社区公告
暂无公告