请教老师，下面代码，想实现，表C的逻辑列“选择”为TRUE时，表D新增一行，汇总表C为TRUE的行的一列内容到表D，每一次不同的TRUE都汇总到新增的行里

现在的问题是，表D增加的不是一行是多行，但是又无其他编号条件设置进行对应，这样应该怎样写代码

If e.DataCol.Name = "选择" Then
    If e.DataRow("选择") = True Then
        Dim cr As Row = Tables("表D").AddNew
        Dim str As String = ""
        For Each dr As DataRow In DataTables("表C").Select("选择 = True")
            str & = dr("第四列")
        Next
        cr("测试列") = str.trim
    End If
End If

你固定在第一行填写数据就好了嘛

If e.DataCol.Name = "选择" Then
    If e.DataRow("选择") = True Then
        Dim cr As Row = Tables("表D").Rows(0)
        Dim str As String = ""
        For Each dr As DataRow In DataTables("表C").Select("选择 = True")
            str & = dr("第四列")
        Next
        cr("测试列") = str.trim
    End If
End If