求助！客户资料去重及编辑新订单怎么引用客户资料的问题？ - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

客户资料如附件，包含客户编号，客户网名，客户QQ号，客户电话，客户微信等列，

1、对客户QQ号、客户电话，客户微信列去重复，只保留一个，然后对客户资料进行编号。

2、其中客户QQ号、客户电话及客户微信列的单元格内容都存在多个QQ号、电话、微信号码，中间用“/"进行分割的。希望实现以下需求：

（1）、客服下单时进行编辑订单时，出现跟客户资料一致的QQ号或电话或微信号码时，能实现自动引用客户资料输入到订单中，提高输入效率和准确率。

（2)、客服下单编辑订单完毕，提交前如果是新客户，客户资料表没有相关QQ、电话、微信号等相关信息，视为一个新客户，实现在客户资料表中新增一个客户资料。

（3）、如果订单编辑中，其中QQ、电话、微信中有一项相同，其它一项或两项出现新的信息，如何把新的信息自动添加进去并整合以前信息。

此主题相关图片如下：客户资料.png

1 可以看这里任意列数重复值筛选删除通用代码

2 (1)就是一个简单的查询请看自动输入的实现

2(2) 这个和(1)是一样的,不自动输入就是新客户

客户资料新增加一条记录就完了

2(3) 按照现在的客户资料保存就行了.这个逻辑你想一想就明白了.

求助，尝试了多次，根据姓名列进行筛选，去除姓名重复的行，代码还是不对，麻烦指教一下哪里不对啊？谢谢

For Each r As DataRow In DataTables("表A").DataRows

Dim drs As new List(of DataRow)

drs = DataTables("表A").Select("[姓名] = 'r("姓名")'")

Dim m As Integer = drs.count

If m >= 2

For n As Integer = 1 To m-1

drs(n).delete()

Output.show(m)

End If

Tables("表A").RepeatFilter("姓名", 2)

For n As Integer = Tables("表A").rows.count - 1 To 0 step -1

Tables("表A").rows(n).delete()

Tables("表A").Filter = ""

[此贴子已经被作者于2020/2/27 15:41:32编辑过]

主题：求助！客户资料去重及编辑新订单怎么引用客户资料的问题？