[ASP] Popolare e selezionare un item su ListBox()...

[race2]

Su ASP.NET:


Ho un ListBox() che popolo nel seguente modo:

Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        'popolo la ListBox Categorie
        Dim ID As Integer
        Dim Cat As String
        conn.Open()
        Dim sql As String = "SELECT * FROM Categorie"
        Dim comm As New OleDbCommand(sql, conn)
        Dim read As OleDbDataReader = comm.ExecuteReader
        While read.Read()
            ID = read("Id")
            lsbCat.Items.Add(read("Cat"))
        End While
        conn.Close()

End Sub

lsbCat.Items.Add(read("Cat")) questa e' la riga che uso per popolare, e fin qui mi funziona.

Poi voglio selezionare un Item e fare popolare un altra ListBox() con l'Item selezionato dalla prima, e faccio nel segiente modo:

    Private Sub lsbCat_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles lsbCat.SelectedIndexChanged

        'popolo la ListBox SubCategorie
        Dim ID As Integer = lsbCat.SelectedItem.Value
        Dim IDC As Integer
        Dim IDS As Integer
        Dim SubCat As String
        conn.Open()
        Dim sql As String = "SELECT * FROM SubCategorie WHERE IDC = " & ID & ""
        Dim comm As New OleDbCommand(sql, conn)
        Dim read As OleDbDataReader = comm.ExecuteReader
        While read.Read()
            IDS = read("Id")
            IDC = read("IDC")
            lsbSubCat.Items.Add(read("SubCat"))
        End While
        conn.Close()

    End Sub

E qui non mi funziona ......!!!!!
al momento che seleziono un Item dalla prima ListBox() non mi si popola la seconda, vorrei popolare la seconda dato l'ID della prima,

come devo fare ???

[tas]

In Page_Load non hai salvato Id, lo hai solo memorizzato temporaneamente nella variabile ID che poi verrà sovrascritta dal ciclo successivo.

Soluzione: scrivi una classe che derivi da ListViewItem e aggiungi una proprietà ItemData per memorizzare questo dato.

Public Class MyListViewItem
    Inherits ListViewItem

    Private m_itemdata As Long

    Public Property ItemData() As Long
        Get
            Return m_itemdata
        End Get
        Set(ByVal Value As Long)
            m_itemdata = Value
        End Set
    End Property
End Class

Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        'popolo la ListBox Categorie
        Dim Cat As String
        Dim mlvi As MyListViewItem

        conn.Open()
        Dim sql As String = "SELECT * FROM Categorie"
        Dim comm As New OleDbCommand(sql, conn)
        Dim read As OleDbDataReader = comm.ExecuteReader
        While read.Read()
            mlvi = New MyListViewItem
            mlvi.ItemData = read("Id")
            mlvi.Text = read("Cat")
            lsbCat.Items.Add(mlvi)
        End While
        conn.Close()
End Sub

[race2]

OK perfetto!!!

ti ringrazio per ora , ciao!!!

[race2]

Inherits ListViewItem

mi dice "Non definito".......

ma se lo tolgo???

[race2]

Ho ripreso questa classe:

    Private m_id As Long
    Private m_text As String
    Public Overrides Function ToString() As String
        Return m_text
    End Function
    Public Sub New(ByVal Text As String, ByVal Value As Long)
        m_text = Text
        m_id = Value
    End Sub
    Public Property Value() As Long
        Get
            Return m_id
        End Get
        Set(ByVal Value As Long)
            m_id = Value
        End Set
    End Property
    Public Property Text() As String
        Get
            Return m_text
        End Get
        Set(ByVal Value As String)
            m_text = Value
        End Set
    End Property

Ma se io ho tre campi???

ID - Categoria - IDC

con la classe che ho inserito qui sopra come posso raccogliere i tre valori e poi gestirmeli ???

[tas]

Non puoi usare questa classe come con un controllo ListBox.
Con la ListView, o usi la classe predefinita ListViewItem, oppure crei una classe ereditata da ListViewItem.