各位大侠，帮帮忙啊！在线等，listView的简单问题
我想我真的是太笨了，怎么也不会用那个listView
我需要的功能很简单，显示一个表格而已，列头我会加
可是怎么加下面的字段内容呢
我琢磨着这样写了两行代码
ListView1.ListItems.Add
ListView1.ListItems.Item(1).text = "王伟"
可是只能加在第一列，其他的怎么也弄不出来
麻烦大家帮帮忙
问题点数：50、回复次数：4Top
1 楼violetlfy（阳光下的鱼）回复于 2005-08-03 22:27:52 得分 0
怎么没人理我？自己顶一下
Top
2 楼microtry（米醋）回复于 2005-08-03 23:33:36 得分 50
把我的一段代码实例粘给你，希望对你有帮助
'*******************************************************************
'PURPOSE: 将记录集数据重新填充到listview中
'SUPPOSE: frmlog，其中含有控件lvwLog
'EFFECT: 将记录集重新填充到lvwLog中
'INPUTS:
'RETURNS: String(a Empty String Or aSafe Err Message String)
'*******************************************************************
Public Function Display() As String
On Error GoTo ErrTrap
Display = ""
Dim mclmX As ColumnHeader
Dim mitmX As ListItem
Dim mismX As ListSubItem
Dim m_lngArry(0, 5) As Long
With m_frmLog
'设置listView的样式---------------------
If .lvwLog.ColumnHeaders.Count <> 6 Then
.lvwLog.View = lvwReport
.lvwLog.SortOrder = lvwAscending
.lvwLog.Sorted = True
'.lvwLog.GridLines = True
.lvwLog.BackColor = MyApp.dfChangeColor(.lvwLog.BackColor)
Set mclmX = .lvwLog.ColumnHeaders.Add(Key:="Log_OperateType", Text:="操作类型", Width:=980)
Set mclmX = .lvwLog.ColumnHeaders.Add(Key:="Log_OperateTime", Text:="操作时间", Width:=2100)
Set mclmX = .lvwLog.ColumnHeaders.Add(Key:="Log_Aim", Text:="操作对象")
Set mclmX = .lvwLog.ColumnHeaders.Add(Key:="Log_Description", Text:="描述", Width:=3600)
Set mclmX = .lvwLog.ColumnHeaders.Add(Key:="Log_Operator", Text:="用户", Width:=900)
Set mclmX = .lvwLog.ColumnHeaders.Add(Key:="Log_OperateComputer", Text:="计算机", Width:=1630)
Else
.lvwLog.ListItems.Clear
End If
'----------------------------------------
If m_rsLog.State = adStateClosed Then
Exit Function
End If
If MyApp.dfVntToLng(m_rsLog.RecordCount) <= 0 Then
Exit Function
End If
'装填数据
m_rsLog.MoveFirst
Do While Not m_rsLog.EOF
Set mitmX = .lvwLog.ListItems.Add(Text:=MyApp.dfVntToTrimStr(m_rsLog!Log_OperateType))
Set mismX = mitmX.ListSubItems.Add(Text:=MyApp.dfVntToTrimStr(m_rsLog!Log_OperateTime))
Set mismX = mitmX.ListSubItems.Add(Text:=MyApp.dfVntToTrimStr(m_rsLog!Log_Aim))
Set mismX = mitmX.ListSubItems.Add(Text:=MyApp.dfVntToTrimStr(m_rsLog!Log_Description))
Set mismX = mitmX.ListSubItems.Add(Text:=MyApp.dfVntToTrimStr(m_rsLog!Log_Operator))
Set mismX = mitmX.ListSubItems.Add(Text:=MyApp.dfVntToTrimStr(m_rsLog!Log_OperateComputer))
m_rsLog.MoveNext
Loop
m_rsLog.MoveFirst
'置位首行
Set .lvwLog.SelectedItem = .lvwLog.ListItems(1)
End With
Exit Function
ErrTrap:
Display = MyApp.dfSemCreate("cLog.Display", Err.Number, Err.Description)
On Error GoTo 0
End Function
Top
3 楼microtry（米醋）回复于 2005-08-03 23:41:52 得分 0
因为是我的实际代码，我使用自己的底层库Myapp,所以有关MyApp的方法你都不用理会
解释一下：
MyApp.dfChangeColor:一个设置控件背景颜色的函数
MyApp.dfVntToLng： 一个强制转换为长整型的数据类型转换函数
MyApp.dfVntToTrimStr：一个强制转换为两端无空格string型的数据类型转换函数
MyApp.dfSemCreate：一个错误信息的格式化字符串函数Top
4 楼violetlfy（阳光下的鱼）回复于 2005-08-04 00:17:55 得分 0
真是太感谢你了，可以了
还那么详细的讲解:)
以前体的问题都没有人给出满意的回答的，这次真应该给100分的，可惜当时写少了，你要是到我的其他问题里随便说两句，我就把分都给你。嘻嘻！
再次感谢!Top
相关问题
关键词
得分解答快速导航
相关链接
广告也精彩
反馈
