- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 备注列汇总问题 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=85671)
-- 发布时间：2016/5/31 15:04:00
-- 备注列汇总问题
请教老师，以下代码的设置，单元格不是备注型的可以汇总，两个表的列都是备注型的汇总不过去，
If e.DataCol.Name = "审核意见"
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("索引号") & "\'")
str & = dr("审核意见") & vbcrlf
Next
pdr("审核意见") = str.trim(",")
End If
End If
-- 发布时间：2016/5/31 15:06:00
--
报错，还是什么意思？
-- 发布时间：2016/5/31 15:16:00
--
合同审核明细表中多行的“审核意见”列内容，无法汇总到合同评审表中的“审核意见”列中
-- 发布时间：2016/5/31 15:25:00
--
加入msgbox，弹出str的值看看，看看是否进入了if判断和for each循环里。
-- 发布时间：2016/5/31 16:08:00
--
老师我上次例子请看看，谢谢！
-- 发布时间：2016/5/31 16:58:00
--
代码应该写在 合同审核 表的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