主题：单一条件特殊汇总的问题

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

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