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


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

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

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


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

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


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


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

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

 

 请截图或上传项目说明。


 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | 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

 回到顶部