Foxtable(狐表)用户栏目专家坐堂 → 统计相关行的内容汇总到其它表对应单元格


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

主题:统计相关行的内容汇总到其它表对应单元格

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


加好友 发短信
等级:幼狐 帖子:108 积分:1179 威望:0 精华:0 注册:2015/1/19 15:16:00
统计相关行的内容汇总到其它表对应单元格  发帖心情 Post By:2018/4/18 12:08:00 [只看该作者]

表A:项目编号、责任人
表B:项目编号、任务安排、责任人
怎样实现表B责任人发生变化后,系统汇总B表里某一项目编号所有任务安排的责任人信息,按a,b,c,d格式写入表A对应项目编号的责任人栏中?

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


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


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


加好友 发短信
等级:幼狐 帖子:108 积分:1179 威望:0 精华:0 注册:2015/1/19 15:16:00
  发帖心情 Post By:2018/4/18 13:04:00 [只看该作者]

例子好像有问题的,实现不了


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


加好友 发短信
等级:幼狐 帖子:108 积分:1179 威望:0 精华:0 注册:2015/1/19 15:16:00
  发帖心情 Post By:2018/4/18 14:11:00 [只看该作者]

DataColChanged事件中

If e.DataCol.Name = "责任人" Then
    Dim dr As DataRow
    dr = DataTables("项目信息").Find("[项目编号] = '" &e.DataRow("项目编号") & "'")
    If dr IsNot Nothing
            dr("成员查看") = DataTables("项目进度").GetComboListString("责任人","项目编号 = '" & e.DataRow("项目编号") & "'", "_Identify").Replace("|",",")
    End If
End If
代码如何修正下,能使赋值的时候,与“项目信息”表里“成员查看”列的旧数据进行合并、删重

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


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

表B(项目进度),DataColChanged事件,然后,记得重置列

 

If e.DataCol.Name = "责任人" OrElse e.DataCol.Name = "项目编号" Then
    Dim dr As DataRow
    dr = DataTables("项目信息").Find("[项目编号] = '" & e.DataRow("项目编号") & "'")
    If dr IsNot Nothing
            dr("成员查看") = DataTables("项目进度").GetComboListString("责任人","项目编号 = '" & e.DataRow("项目编号") & "'", "_Identify").Replace("|",",")
    End If
End If

 

图片点击可在新窗口打开查看

[此贴子已经被作者于2018/4/18 14:20:00编辑过]

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


加好友 发短信
等级:幼狐 帖子:108 积分:1179 威望:0 精华:0 注册:2015/1/19 15:16:00
  发帖心情 Post By:2018/4/18 14:31:00 [只看该作者]

甜老师,我没讲清楚。
图片点击可在新窗口打开查看此主题相关图片如下:11111.png
图片点击可在新窗口打开查看
成员查看列中一部分成员名单是研发任务安排中新增任务后,责任人自动汇总过去,另一部分成员是手动输入。图中AAA、BBB是自动生成,CCC是手动生成。假如我继续新增责任人是DDD的任务后,成员代码会被覆盖成AAA,BBB,DDD,如何能修改成AAA,BBB,CCC,DDD

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


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

If e.DataCol.Name = "责任人" OrElse e.DataCol.Name = "项目编号" Then
    Dim dr As DataRow
    dr = DataTables("项目信息").Find("[项目编号] = '" & e.DataRow("项目编号") & "'")
    If dr IsNot Nothing
        Dim str As String = dr("成员查看")
        For Each s As String In DataTables("项目进度").getvalues("责任人","项目编号 = '" & e.DataRow("项目编号") & "'", "_Identify")
            If str.contains(s) = False Then
                str &= "," & s
            End If
        Next

        dr("成员查看") = str.Trim(",")
    End If
End If

[此贴子已经被作者于2018/4/18 15:24:01编辑过]

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


加好友 发短信
等级:四尾狐 帖子:812 积分:6676 威望:0 精华:0 注册:2014/11/26 12:32:00
回复:(czquickly)甜老师,我没讲清楚。[upload=png...  发帖心情 Post By:2018/4/18 15:35:00 [只看该作者]

你这个项目原文件能发上来学习吗?

 回到顶部