主题：汇总内容到其他单元格问题

请教老师，下面代码，想把校对和审核单元格的内容汇总到指定质量评价人里面，请教请教

If e.DataCol.Name = "校对" AndAlso e.DataCol.Name = "审核" Then 
   Dim pdr As DataRow = DataTables("质量评价").find("任务索引 = '" & e.DataRow("任务索引") & "'")
        If pdr IsNot Nothing Then
            Dim str As String = ""
            Dim str1 As String = ""
            For Each dr As DataRow In DataTables("工作策划副表").Select("任务索引 = '" & e.DataRow("任务索引") & "'")
                str & = dr("校对")  & vbcrlf & vbcrlf
                str1 & = dr("审核")  & vbcrlf & vbcrlf
            Next
            pdr("指定质量评价人") = str.trim(chr(10), chr(13)) & str1.trim(chr(10), chr(13))
    End If
End If