以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  汇总内容到其他单元格问题  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=106906)

--  作者:douglas738888
--  发布时间:2017/9/18 9:04:00
--  汇总内容到其他单元格问题

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

 

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


--  作者:有点甜
--  发布时间: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
--  

 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:测试11.zip

表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