- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- [求助]逻辑列打勾，相关内容自动汇总到另一表代码 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=71015)
-- 发布时间：2015/7/3 10:49:00
-- [求助]逻辑列打勾，相关内容自动汇总到另一表代码
表A表B都有客户列，根据相同客户，表B中逻辑列完成打勾后，标记列的内容自动输入到表A记录列中，请前辈老师写个代码，谢谢！（效果如下面项目中，项目中是自己填上去的）
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:汇总标记.table |
-- 发布时间：2015/7/3 11:04:00
--
| 下载信息 [文件大小： 下载次数： ] | |
| 点击浏览该文件:汇总标记.table |
-- 发布时间：2015/7/3 11:25:00
--
谢谢老师！再请帮忙，如果在此项目中还有表C，同样表C逻辑完成打勾后，标记列的相关内容同样汇总到表A记录列中，而且表B表C互不影响，请帮忙再写个代码，谢谢！（项目效果如下）
| 下载信息 [文件大小： 下载次数： ] | |
| 点击浏览该文件:汇总标记.table |
-- 发布时间：2015/7/3 11:31:00
--
| 下载信息 [文件大小： 下载次数： ] | |
| 点击浏览该文件:汇总标记.table |
-- 发布时间：2015/7/3 12:06:00
--
谢谢老师，但是刚才是我没有说完整，麻烦帮我再修改一下，我希望表B、表C 同一客户有重复的，汇总到表A时，就不要再重复，效果如下面项目，谢谢！
| 下载信息 [文件大小： 下载次数： ] | |
| 点击浏览该文件:不重复汇总标记.table |
-- 发布时间：2015/7/3 12:11:00
--
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
-- 发布时间：2015/7/3 12:22:00
--
十分感谢老师！