通过循环DataGridViewCheckBoxColumn添加DataColumns

Question

我的项目中有两个表单。它们被命名为“Criteria”和“Screen”。标准表格包含DataGridViewCriteria。屏幕表单包含DataGridViewScreen。

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

到目前为止我的代码是：

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

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