- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 求助！客户资料去重及编辑新订单怎么引用客户资料的问题？ (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=146551)
-- 发布时间：2020/2/26 12:08:00
-- 求助！客户资料去重及编辑新订单怎么引用客户资料的问题？
客户资料如附件，包含客户编号，客户网名，客户QQ号，客户电话，客户微信等列，
1、对客户QQ号、客户电话，客户微信列去重复，只保留一个，然后对客户资料进行编号。
2、其中客户QQ号、客户电话及客户微信列的单元格内容都存在多个QQ号、电话、微信号码，中间用“/"进行分割的。希望实现以下需求：
（1）、客服下单时进行编辑订单时，出现跟客户资料一致的QQ号或电话或微信号码时，能实现自动引用客户资料输入到订单中，提高输入效率和准确率。
（2)、客服下单编辑订单完毕，提交前如果是新客户，客户资料表没有相关QQ、电话、微信号等相关信息，视为一个新客户，实现在客户资料表中新增一个客户资料。
（3）、如果订单编辑中，其中QQ、电话、微信中有一项相同，其它一项或两项出现新的信息，如何把新的信息自动添加进去并整合以前信息。
-- 发布时间：2020/2/26 12:11:00
--
此主题相关图片如下：客户资料.png
-- 发布时间：2020/2/26 12:57:00
--
1 可以看这里 任意列数重复值筛选删除通用代码
2 (1)就是一个简单的查询 请看 自动输入的实现
2(2) 这个和(1)是一样的,不自动输入就是新客户
客户资料 新增加一条记录就完了
2(3) 按照现在的客户资料保存就行了.这个逻辑你想一想就明白了.
-- 发布时间：2020/2/27 14:54:00
--
求助，尝试了多次，根据姓名列进行筛选，去除姓名重复的行，代码还是不对，麻烦指教一下哪里不对啊？谢谢
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)
Next
End If
Next
Next
-- 发布时间：2020/2/27 15:41:00
--
Tables("表A").RepeatFilter("姓名", 2)
For n As Integer = Tables("表A").rows.count - 1 To 0 step -1
Tables("表A").rows(n).delete()
Next
Tables("表A").Filter = ""
[此贴子已经被作者于2020/2/27 15:41:32编辑过]