DataTable：根据复选框List中选中的复选框数动态创建行

Question

我正在尝试创建一个数据表，其中的行数需要根据我的复选框列表中选中的复选框数自动创建：

    Private Function GetRoomTypeIds() As DataTable

Dim dt As New DataTable()
    dt.Columns.AddRange(New DataColumn(1) {New DataColumn("Id", GetType(Integer)), New DataColumn("RoomTypeId", GetType(Integer))})
    dt.Rows.Add(txtId1.Text, chkRoomTypes.SelectedValue)
    Return dt

    End Function

我需要添加如下内容：

"For Each Checkbox checked in my checkbox list generate the corresponding number of rows."

谢谢

Answer 1

我按照下面的代码解决了：

Private Function GetRoomTypeIds() As DataTable
        Dim selectedItems = From s In chkRoomTypes.Items.Cast(Of ListItem)
                            Where s.Selected
                            Select s
        Dim itemTable As DataTable
        itemTable = New DataTable("SelectedItems")
        Dim column1 As DataColumn = New DataColumn("RateTypeId")
        column1.DataType = System.Type.GetType("System.Int32")
        Dim column2 As DataColumn = New DataColumn("RoomTypeId")
        column2.DataType = System.Type.GetType("System.Int32")
        itemTable.Columns.Add(column1)
        itemTable.Columns.Add(column2)
        Dim Row As DataRow
        For Each item In selectedItems
            Row = itemTable.NewRow()
            Row("RateTypeId") = Convert.ToInt32(txtId1.Text)
            Row("RoomTypeId") = item.Value
            itemTable.Rows.Add(Row)
        Next

        Return itemTable
    End Function

谢谢

DataTable：根据复选框List中选中的复选框数动态创建行

DataTable: create rows dynamically according to the number of checkboxes selected in the checkbox List

datatable

checkboxlist