vb.net - 通过循环 DataGridViewCheckBoxColumn 添加 DataColumns

Question

我的项目中有两种形式。它们被命名为“标准”和“屏幕”。标准表单包含DataGridViewCriteria. 屏幕表单包含DataGridViewScreen.

DataGridViewCriteria的第一列是CheckBoxColumn. DataGridViewCriteria 的第二列包含特定于每一行的描述。我需要遍历 CheckBoxColumn，并且对于每个CheckBox被检查的内容，我都需要DataColumn向 DataGridViewScreen 添加一个。我需要每个添加到 DataGridViewScreen 的标题DataColumn等于在CheckBoxDataGridViewCriteria 上与其各自相邻的描述。

到目前为止，我的代码是：

For Each row As DataGridViewRow In Criteria.DataGridViewCriteria.Rows
        If row.Cells(0).Value = True Then
            Dim col As New DataColumn(row.Cells(1).Value, Type.GetType("System.String"))
            dt.Columns.Add(row.Cells(1).Value)
        End If
    Next

有什么建议么？非常感谢！