主题：多列汇总问题

If e.DataCol.Name = "汇总完成"  Then '勾选汇总完成列,对应日志编号的内容汇总到"工作日志月报副表"的"工作内容"
    Dim pdr As DataRow = DataTables("工作日志月报表").find("日志编号 = '" & e.DataRow("日志编号") & "'")
   
    If pdr Is Nothing Then
        pdr = DataTables("工作日志月报表").AddNew
        pdr("日志编号") = e.DataRow("日志编号")
    End If
    Dim str As String = ""
    For Each dr As DataRow In DataTables("工作日志表").Select("日志编号 = '" & e.DataRow("日志编号") & "'")
        str & = dr("图纸设计说明") & vbcrlf & dr("方案说明") & vbcrlf & dr("技术表述") & vbcrlf
    Next
    pdr("工作内容") = str.trim(chr(10), chr(13))
End If