主题：[求助]逻辑列打勾，相关内容自动汇总到另一表代码

表A表B都有客户列，根据相同客户，表B中逻辑列完成打勾后，标记列的内容自动输入到表A记录列中，请前辈老师写个代码，谢谢！（效果如下面项目中，项目中是自己填上去的）

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:汇总标记.table

     

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:汇总标记.table

谢谢老师！再请帮忙，如果在此项目中还有表C，同样表C逻辑完成打勾后，标记列的相关内容同样汇总到表A记录列中，而且表B表C互不影响，请帮忙再写个代码，谢谢！（项目效果如下）

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:汇总标记.table

   

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:汇总标记.table

谢谢老师，但是刚才是我没有说完整，麻烦帮我再修改一下，我希望表B、表C 同一客户有重复的，汇总到表A时，就不要再重复，效果如下面项目，谢谢！

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:不重复汇总标记.table

If e.DataCol.Name = "客户" Then
    Dim jls As String = ","
    For Each dr As DataRow In DataTables("表B").Select("客户 = '" & e.DataRow("客户") & "' and 完成 = true")
        jls &= iif(dr.IsNull("标记"), "", iif(jls.Contains("," & dr("标记") & ","), "", dr("标记")& ","))
    Next
    For Each dr As DataRow In DataTables("表C").Select("客户 = '" & e.DataRow("客户") & "' and 完成 = true")
        jls &= iif(dr.IsNull("标记"), "", iif(jls.Contains("," & dr("标记") & ","), "", dr("标记")& ","))
    Next
    e.DataRow("记录") = jls.Trim(",")
End If

十分感谢老师！