怎样刷新listview 中的显示内容？（在线等待）

Question

怎样刷新listview 中的显示内容？
我在listview 中显示表的内容，如果我在表中改变了内容，如何让listview 中显示的内容也发生改变！

Answer 1

这就太麻烦了！
在visual foxpro 中只要用object.refresh 就可以，但在vb中就不行。

Answer 2

这种不绑定的当然只有重新显示了，你要是用绑定的那就REFRESH下就可以了

Answer 3

用access建的数据库,然后和data控件发生关联,在程序运行过程中改变有些数据.如上面教师机程序已经运行,当有学生登陆是时,教师机中该学生的登陆状态由没有登陆变为登陆状态!
怎么绑定?

Answer 4

'这是我的程序里经常用到的用记录集填充ListView的函数,我花了不少时间熟悉ListView哟
Function FillListview(lvObj As ListView, rcd As ADODB.Recordset)
    
    Dim wid As Integer
    Dim i As Long
    Dim j As Integer
    With lvObj
        .ListItems.Clear
        .ColumnHeaders.Clear
        .View = lvwReport
        .LabelEdit = lvwManual
        .FullRowSelect = True
        .AllowColumnReorder = True
        For i = 0 To rcd.Fields.Count - 1
            wid = rcd.Fields(i).DefinedSize + 3
            If wid < Len(rcd.Fields(i).Name) + 3 Then wid = Len(rcd.Fields(i).Name) + 3
            If wid > 30 Then wid = 30
            wid = lvObj.Parent.TextWidth(String(wid, " "))
            .ColumnHeaders.Add i + 1, , rcd.Fields(i).Name, wid
        Next
        i = 0
        Do While Not rcd.EOF
            .ListItems.Add , "A" & Trim(i), IIf(IsNull(rcd.Fields(0).Value), "", rcd.Fields(0))
            For j = 1 To rcd.Fields.Count - 1
                .ListItems("A" & Trim(i)).SubItems(j) = IIf(IsNull(rcd.Fields(j).Value), "", rcd.Fields(j))
            Next
            rcd.MoveNext
            i = i + 1
        Loop
    End With
    
End Function