Asp.net 在VB.NET中获取复选框列表的所有选定值

我使用了ASP的

复选框列表

控件。现在我想要的是在VB代码中获得所有选定的值

HTML 在此“保存”按钮上单击“我想获取数据集中所有选定项的值和文本”。

尝试此操作

 For Each li As ListItem In chkbxlst_Users.Items

            If li.Selected Then
               // add item data into your dataset
            Else
                // do whatever you need
            End If
        End If
    Next

---

您可以尝试以下代码：

  Protected Sub btnSaveSetProject_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnSaveSetProject.Click

    Dim ds_selectedProjects As New DataSet

    Dim dt = New DataTable()
    Dim dcName = New DataColumn("Name", GetType(String))
    dt.Columns.Add(dcName)

    Dim eStr As String = String.Empty
    Try
        For Each checkBox As CheckBox In chkbxlst_Users.Items
            If (checkBox.Checked = True) Then
                Dim dr As DataRow = dt.NewRow()
                dr("ID") = checkBox.Text
                dt.Rows.Add(dr)
            End If
        Next
        ds_selectedProjects.Tables.Add(dt)
    Catch ex As Exception
        'Me.ShowErrorMessage(ex.Message, "...btnSaveSetProject")
    End Try
End Sub

试试这个

   Dim str As [String] = ""
    For i As Integer = 0 To CheckBoxList1.Items.Count - 1

        If CheckBoxList1.Items(i).Selected Then

            If str = "" Then
                str = "'" + CheckBoxList1.Items(i).Value + "'"
            Else

                str += "," + "'" + CheckBoxList1.Items(i).Value + "'"

            End If
        End If
    Next
    'display in a textbox or lable with ID txtmsg
    txtmsg.Text = str

---

你有什么问题？您知道如何获取所选项目吗？“我想获取数据集中所有选定项的值和文本”，那么您想从

数据集

还是从

复选框列表

中获取它们？如果您想从复选框列表中获取所有选中值：它实际上是一个列表项。

  Protected Sub btnSaveSetProject_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnSaveSetProject.Click

    Dim ds_selectedProjects As New DataSet

    Dim dt = New DataTable()
    Dim dcName = New DataColumn("Name", GetType(String))
    dt.Columns.Add(dcName)

    Dim eStr As String = String.Empty
    Try
        For Each checkBox As CheckBox In chkbxlst_Users.Items
            If (checkBox.Checked = True) Then
                Dim dr As DataRow = dt.NewRow()
                dr("ID") = checkBox.Text
                dt.Rows.Add(dr)
            End If
        Next
        ds_selectedProjects.Tables.Add(dt)
    Catch ex As Exception
        'Me.ShowErrorMessage(ex.Message, "...btnSaveSetProject")
    End Try
End Sub

Try this code        
    Dim ds_selectedProjects As New DataSet
    Dim dt_selectedProjects As New DataTable
    dt_selectedProjects.Columns.Add("Value")
    dt_selectedProjects.Columns.Add("Text")
    Dim dr As DataRow
    For i = 0 To chkbxlst_Users.Items.Count - 1
        If chkbxlst_Users.Items(i).Selected Then
            dr = dt_selectedProjects.NewRow()
            dr("Value") = Val(chkbxlst_Users.Items(i).Value)
            dr("Text") = chkbxlst_Users.Items(i).Text
            dt_selectedProjects.Rows.Add(dr)
        End If
    Next

    ds_selectedProjects.Tables.Add(dt_selectedProjects)

   Dim str As [String] = ""
    For i As Integer = 0 To CheckBoxList1.Items.Count - 1

        If CheckBoxList1.Items(i).Selected Then

            If str = "" Then
                str = "'" + CheckBoxList1.Items(i).Value + "'"
            Else

                str += "," + "'" + CheckBoxList1.Items(i).Value + "'"

            End If
        End If
    Next
    'display in a textbox or lable with ID txtmsg
    txtmsg.Text = str