Problema durante il tentativo di recuperare i dati da casella di controllo

voti
1

Sto cercando di eseguire il codice qui sotto per elencare l'oggetto di selezione in una casella di controllo

al corpo del messaggio

 Dim CheckedValues As String
                For Each item In txt_panview0_ddinput1.Items
                    If item.checked Then
                        checkedValues = checkedValues & item.selectedValue

                    End If
                Next
                If Not String.IsNullOrEmpty(checkedValues) Then
                    checkedValues = checkedValues.Substring(1)
                End If


                tempCollector = tempCollector + <br> + Area Name + :  + checkedValues

Ma sto ottenendo il seguente errore ..

System.MissingMemberException: Public member 'checked' on type 'ListItem' not found. 
at Microsoft.VisualBasic.CompilerServices.Symbols.Container.GetMembers(String& MemberName, 
Boolean ReportErrors) at Microsoft.VisualBasic.CompilerServices.NewLateBinding.
LateGet(Object Instance, Type Type, String MemberName, Object[] Arguments, String[] ArgumentNames, Type[] 
TypeArguments, Boolean[] CopyBack) at WebApplication1._Default.collectEmailBodyText() 
in C:\UseFormCode\UseFormEnhWorking\Default.aspx.vb:line 271 

Per favore aiuto

È pubblicato 30/07/2009 alle 15:13
fonte dall'utente
In altre lingue...                            


1 risposte

voti
1

Typecast ogni elemento nell'iterazione ad una CheckBoxprima di verificare se è controllato:

For Each item In txt_panview0_ddinput1.Items
     dim c as CheckBox = Ctype(item.Value, CheckBox)
     If c.checked Then
         checkedValues = checkedValues & item.selectedValue
    End If
Next

Per attivare la selezione di più valori, impostare la SelectionModeproprietà del ListBoxa Multiple:

<asp:ListBox ID="ListBox1" runat="server" SelectionMode="Multiple"></asp:ListBox>

Poi per scorrere i valori selezionati, utilizzare il seguente:

For Each item as ListItem In txt_panview0_ddinput1.Items
         If item.Selected Then
             CheckedValues = CheckedValues & item.Value
        End If
Next

PS io sono un po 'arrugginito su sintassi VB.Net quindi il mio codice non può essere sintatticamente perfetto

Risposto il 30/07/2009 a 15:17
fonte dall'utente

Cookies help us deliver our services. By using our services, you agree to our use of cookies. Learn more