[ASP] raccogliere tre valori con una ListBox()

[race2]

con ASP.NET:


per raccogliere 2 valori quali l'ID e il testo, con una ListBox() ho usato la classe "MyListItem"

Public Class MyListItem

    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

End Class

in questo modo:

        'popolo la ListBox Categorie
        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()
            lsbCat.Items.Add(New ListItem(read("Cat"), read("Id").ToString))
        End While
        conn.Close()

e raccolgo i dato in questo modo:

        Dim Item As MyListItem = lsbCat.SelectedItem
        Dim ID As Integer = Item.Value
        Dim Categoria As String = Item.Text

ma se voglio gestire tre valori invece che due come posso fare???

i tre campi da gestire

ID = integer
Cat = string
IDC = integer

la mia tabella:
ID -- Cat -- IDC

[tas]

Basta aggiungere alla classe:

    Private m_idc As Integer
    ...
    Public Property IDC() As Integer
        Get
            Return m_idc
        End Get
        Set(ByVal Value As Integer)
            m_idc = Value
        End Set
    End Property

[race2]

Ma mi da errore:

lsbSubCat.Items.Add(New MyClass1(read("SubCat"), read("Id").ToString, read("IDC").ToString))

non bisogna aggiungere qualcosaltro???

tipo:

ByVal value2 As Integer..........???

Public Sub New(ByVal Text As String, ByVal Value As Long, ByVal value2 As Integer)

altrimenti mi dice di passargli solo 2 parametri.....

ma come ho fatto io non funziona!!!!!!

In ALLEGATO.. c'e' l'errore.....!!!!!!


la classe :

Public Class MyClass1

Private m_idc As Long
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, ByVal IDC As Long)
m_text = Text
m_id = Value
m_idc = IDC
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

Public Property IDC() As Long
Get
Return m_idc
End Get
Set(ByVal Value As Long)
m_idc = Value
End Set
End Property

End Class

[tas]

Il problema è tutto qui:

lsbSubCat.Items.Add(New MyClass1(read("SubCat"), read("Id").ToString, read("IDC").ToString))

VB si aspetta di trovare, come parametri, (string, long, long), mentre tu gli dai (string, string, string).

Ecco la soluzione:

lsbSubCat.Items.Add(New MyClass1(read("SubCat"), read("Id"), read("IDC")))

[race2]

OK provo e poi ti faccio sapere, grazie mille per ora, ciao!!

[race2]

Mi da errore!!!!!!!!!

guarda l'allegato......... --->