以文本方式查看主题 - Foxtable(狐表) (http://foxtable.net/bbs/index.asp) -- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2) ---- 汇总内容到其他单元格问题 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=106906) |
||||
-- 作者:douglas738888 -- 发布时间:2017/9/18 9:04:00 -- 汇总内容到其他单元格问题 请教老师,下面代码,想把校对和审核单元格的内容汇总到指定质量评价人里面,请教请教
If e.DataCol.Name = "校对" AndAlso e.DataCol.Name = "审核" Then |
||||
-- 作者:有点甜 -- 发布时间:2017/9/18 9:42:00 -- 没看到你的需求。你现在代码出现什么问题?代码看着没错的。请截图或实例说明。 |
||||
-- 作者:douglas738888 -- 发布时间:2017/9/18 9:50:00 -- 老师,上面的代码,无法把工作策划副表 中的“校对”和“审核”单元格的内容汇总到质量评价表中的“指定质量评价人”里面 任务索引号是同一个
例如: 表A 校对 审核 任务索引 小张 老马 001
表B 指定质量评价人 任务索引也是001 小张 老马 (小张和老马都在同一行的单元格内) |
||||
-- 作者:有点甜 -- 发布时间:2017/9/18 10:09:00 -- 你想要的效果是怎样的?在表B如何存放?存放在多行里面?逻辑是什么?
请截图或上传项目说明。 |
||||
-- 作者:douglas738888 -- 发布时间:2017/9/18 10:20:00 --
表C 表D 测试 [此贴子已经被作者于2017/9/18 10:28:35编辑过]
|
||||
-- 作者:有点甜 -- 发布时间:2017/9/18 10:39:00 -- If e.DataCol.Name = "校对" OrElse e.DataCol.Name = "审核" Then \'对应编号"难度赋值_要素",汇总到"质量评价"的"难度赋值_要素" Dim pdr As DataRow = DataTables("表D").find("任务索引 = \'" & e.DataRow("任务索引") & "\'") If pdr IsNot Nothing Then Dim str As String = "" Dim str1 As String = "" For Each dr As DataRow In DataTables("表C").Select("任务索引 = \'" & e.DataRow("任务索引") & "\'") str & = dr("校对") & vbcrlf str1 & = dr("审核") & vbcrlf Next pdr("指定质量评价人") = (str & str1).trim(chr(10),chr(13)) End If End If |