VB.net中的列表视图错误

Question

Private Sub lvUnavailableProducts_SelectedIndexChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles lvUnavailableProducts.SelectedIndexChanged

    Dim cmd As SqlCommand = New SqlCommand("SELECT * FROM Product_Suppliers WHERE ProductCode = '" & lvUnavailableProducts.SelectedItems(0).SubItems(0).Text & "'", conn)
    conn.Open()
    Dim sdr As SqlDataReader = cmd.ExecuteReader()

    If sdr.Read = True Then
        Fill("SELECT DISTINCT SupplierCode, SupplierName FROM Product_Suppliers  WHERE ProductCode ='" & lvUnavailableProducts.SelectedItems(0).SubItems(0).Text & "'", lvProductSupplier)
        conn.Close()
    Else
        MsgBox("No added Supplier Yet, Please add a supplier")
        lvProductSupplier.Items.Clear()
        conn.Close()
    End If


End Sub

LvUnavailableProducts上的选定数据已更改时，我遇到错误

请帮忙谢谢：D

Answer 1

尝试将.SelectedItems(0)更改为.FocusedItem

lvUnavailableProducts.FocusedItem.SubItems(0).Text