主题：备注列汇总问题

请教老师，以下代码的设置，单元格不是备注型的可以汇总，两个表的列都是备注型的汇总不过去，

 报错，还是什么意思？

合同审核明细表中多行的“审核意见”列内容，无法汇总到合同评审表中的“审核意见”列中

加入msgbox，弹出str的值看看，看看是否进入了if判断和for each循环里。

老师我上次例子请看看，谢谢！

代码应该写在 合同审核 表的DataColChanged事件

 

If e.DataCol.Name = "审核意见" OrElse e.DataCol.Name = "审核完成" Then
    Dim pdr As DataRow = DataTables("合同审批表").find("合同编号 = '" & e.DataRow("合同编号") & "'")
    If pdr IsNot Nothing Then
        Dim str As String = ""
        For Each dr As DataRow In DataTables("合同审核").Select("合同编号 = '" & e.DataRow("合同编号") & "' and 审核完成 = true")
            str & = dr("审核意见") & vbcrlf
        Next
        pdr("审核意见") = str.trim(chr(10), chr(13))
    End If
End If