将映像添加到ListView-SQL Server数据库-Image不';不出现

将映像添加到ListView-SQL Server数据库-Image不';不出现,listview,sql-server-2000,imagelist,Listview,Sql Server 2000,Imagelist,我正在处理SQLServer2000数据库中的动态listview,需要在其上添加图像。我已经在表单中添加了ImageList控件,并将ListView属性设置为LargeIcon,SmallImageList作为ImageList 我不知道如何在listview上添加图像。这是我的代码,我不知道它有什么问题,虽然它显示了数据库中的数据,但只有图像没有出现: Public Sub PopulateListView_Images(ByVal lv As ListView, ByVal cmd As

我正在处理SQLServer2000数据库中的动态listview,需要在其上添加图像。我已经在表单中添加了
ImageList
控件,并将
ListView
属性设置为
LargeIcon
SmallImageList
作为
ImageList

我不知道如何在listview上添加图像。这是我的代码,我不知道它有什么问题,虽然它显示了数据库中的数据,但只有图像没有出现:

Public Sub PopulateListView_Images(ByVal lv As ListView, ByVal cmd As SqlCommand, ByVal myImageList As ImageList)
    Dim da As New SqlDataAdapter
    Dim ds As New DataSet

    ds.Reset()
    da = New SqlDataAdapter(cmd)
    da.Fill(ds)
    'Fill Method
    lv.Columns.Clear()
    lv.Items.Clear()

    lv.SmallImageList = myImageList

    'Fill Listview
    Dim c As DataColumn
    For Each c In ds.Tables(0).Columns
        'adding names of columns as Listview columns                
        Dim h As New ColumnHeader
        h.Text = c.ColumnName
        h.Width = 60
        lv.Columns.Add(h)
    Next
    Dim dt As DataTable = ds.Tables(0)
    Dim str(ds.Tables(0).Columns.Count) As String

    'adding Datarows as listview Grids
    Dim rr As DataRow
    For Each rr In dt.Rows
        For col As Integer = 0 To ds.Tables(0).Columns.Count - 1
            str(col) = rr(col).ToString()
        Next
        Dim ii As New ListViewItem(str)
        lv.Items.Add(ii)
        'showing the number of records still added
    Next
End Sub
在这段代码中,只显示数据,不显示图像。我试着加上:

lv.Items(0).ImageKey = 0