关于listview，将数据库中的数据读取并显示在listview1中

[chenyingzhong]

.在Command1的Click事件中，对ListView1编程，将英语、高数、C语言三门课程名及各科成绩78，81，86罗列在ListView1中，（关于listview，将数据库中的数据读取并显示在listview1中）

[_l_]

完整的代码给你了 怎么用就看你自己了

Sub Explistv(ll As ListView, rr As ADODB.Recordset, bt As Boolean)
'将ADO记录集直接输出到LISTVIEW
Dim r As New ADODB.Recordset
Dim i As Integer
Dim itmx As ListItem
Set r = rr
ll.ListItems.Clear

'添加标题
If bt = True Then
ll.ColumnHeaders.Clear
For i = 0 To r.Fields.Count - 1
    ll.ColumnHeaders.Add , , Trim(r.Fields(i).Name)
Next
End If
'添加内容
Do While Not r.EOF
    Set itmx = ll.ListItems.Add(, , Trim(r.Fields(0).Value))
    For i = 1 To r.Fields.Count - 1
      '字符型
      If r.Fields(i).Type = adChar Or adLongVarChar Or adVarChar Then
        itmx.SubItems(i) = IIf(IsNull(r.Fields(i).Value), " ", r.Fields(i).Value)
      End If
      '数字型
      If r.Fields(i).Type = adDouble Or adNumeric Then
        itmx.SubItems(i) = IIf(IsNull(r.Fields(i).Value), 0, r.Fields(i).Value)
      End If
      '日期型
      If r.Fields(i).Type = adDate Then
        itmx.SubItems(i) = Format(r.Fields(i).Value, "yyyy-MM-dd")
      End If
    Next
r.MoveNext
Loop
'r.Close
End Sub

[现在还是人类]

建议不要用ListView来这么弄，效率很低的。

[aavv22]

"人类"哥

如何说不要用ListView来这么弄，效率很低的

"人类"哥的意思是否是语句的效率很还是用这种控件来加载数据效率很低呢?

[zuoxingyu]

直接查数据库，然后绑定得了

[现在还是人类]

控件本身，建议用 Microsoft Hierarchical FlexGrid Control 6.0
这个控件来做显示数据库内容，比ListView的效率高很多。

[aavv22]

[Quote=引用 5 楼 SupermanKing 的回复:]
控件本身，建议用 Microsoft Hierarchical FlexGrid Control 6.0
这个控件来做显示数据库内容，比ListView的效率高很多。
[/Quote]

如果数据量在500条以下用ListView还算可用

数据量多的话就不可以了,不过现在的机器配置都蛮高的,1G的内存下来加载数据还不算慢,

总体还是要看数据量,

Microsoft Hierarchical FlexGrid Control 6.0用来加载数据是蛮快的