Проблема при попытке получить данные из флажка

StackOverflow https://stackoverflow.com/questions/1206859

  •  05-07-2019
  •  | 
  •  

Вопрос

Я пытаюсь выполнить приведенный ниже код, чтобы перечислить выбранный элемент в флажке

к основной части письма

 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

Но я получаю следующую ошибку.

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 

Пожалуйста, помогите

Это было полезно?

Решение

Введите каждый элемент итерации в CheckBox , прежде чем проверять, проверен ли он:

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

<забастовка>

Чтобы включить выбор нескольких значений, установите для свойства SelectionMode элемента ListBox значение Multiple :

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

Затем, чтобы перебрать выбранные значения, используйте следующее:

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

PS Я немного разболтался о синтаксисе VB.Net, поэтому мой код может быть не идеален синтаксически

Лицензировано под: CC-BY-SA с атрибуция
Не связан с StackOverflow
scroll top