Foxtable(狐表)用户栏目专家坐堂 → 汇总内容到其他单元格问题


  共有1486人关注过本帖树形打印复制链接

主题:汇总内容到其他单元格问题

帅哥哟,离线,有人找我吗?
douglas738888
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:五尾狐 帖子:1172 积分:8772 威望:0 精华:0 注册:2012/4/18 16:28:00
汇总内容到其他单元格问题  发帖心情 Post By: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


 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2017/9/18 9:42:00 [只看该作者]

 没看到你的需求。你现在代码出现什么问题?代码看着没错的。请截图或实例说明。


 回到顶部
帅哥哟,离线,有人找我吗?
douglas738888
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:五尾狐 帖子:1172 积分:8772 威望:0 精华:0 注册:2012/4/18 16:28:00
  发帖心情 Post By:2017/9/18 9:50:00 [只看该作者]

老师,上面的代码,无法把工作策划副表 中的“校对”和“审核”单元格的内容汇总到质量评价表中的“指定质量评价人”里面  任务索引号是同一个

 

例如: 表A     校对    审核     任务索引

                   小张     老马    001

 

         表B      指定质量评价人                任务索引也是001

                   小张                

                   老马

                                                        (小张和老马都在同一行的单元格内)


 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2017/9/18 10:09:00 [只看该作者]

 你想要的效果是怎样的?在表B如何存放?存放在多行里面?逻辑是什么?

 

 请截图或上传项目说明。


 回到顶部
帅哥哟,离线,有人找我吗?
douglas738888
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:五尾狐 帖子:1172 积分:8772 威望:0 精华:0 注册:2012/4/18 16:28:00
  发帖心情 Post By:2017/9/18 10:20:00 [只看该作者]

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

表C 表D 测试

[此贴子已经被作者于2017/9/18 10:28:35编辑过]

 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By: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

 回到顶部