以文本方式查看主题 - Foxtable(狐表) (http://foxtable.net/bbs/index.asp) -- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2) ---- 求助如何汇总去重 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=79398) |
||||
-- 作者:20131111 -- 发布时间:2015/12/30 15:09:00 -- 求助如何汇总去重 求助如何汇总去重? 此主题相关图片如下:1.jpg
|
||||
-- 作者:大红袍 -- 发布时间:2015/12/30 15:40:00 -- DataTables("客户信息").DataRows.clear For Each kh As String In DataTables("客户订单").GetValues("客户") Dim str As String = DataTables("客户订单").GetComboListString("订单号", "客户 = \'" & kh & "\'") If str > "" Then Dim ndr As DataRow = DataTables("客户信息").AddNew ndr("订单号") = str.Split("|")(0) ndr("客户") = kh ndr("备注") = str.replace("|", "/") End If Next |
||||
-- 作者:20131111 -- 发布时间:2015/12/30 15:59:00 -- |