以文本方式查看主题 -  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp) --  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2) ----  表B的统计功能实现  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=83640)

--  作者：daxis0225 --  发布时间：2016/4/13 19:05:00 --  表B的统计功能实现 如下表,如何实现表A录入姓名,表B统计重复的值  表A 　 　 表B(同步统计同名人员信息) 　 　 　 　 　 　 姓名 部门 同名列 姓名 部门 　 王明 企管 王明 王明 企管 　 徐无有 销售 　 王明 技术 　 孙少 技术 　 王明 技术 王明

--  作者：大红袍 --  发布时间：2016/4/13 19:33:00 --   For Each dr As DataRow In DataTables("表A").Select("")     If DataTables("表a").compute("count(姓名)", "姓名 = \'" & dr("姓名") & "\'") > 1 Then         Dim ndr As DataRow = DataTables("表B").addnew         ndr("姓名") = dr("姓名")         ndr("部门") = dr("部门")     End If next