以文本方式查看主题

-  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
图片点击可在新窗口打开查看
 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:管理项目1.rar


--  作者:大红袍
--  发布时间: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
--  

图片点击可在新窗口打开查看