主题：[解决]如何实现这种归类排序？大红袍版主再进来下

按照单号的录入顺序 排列，将相同客户的归类在一起。（单号是连续递增的)

此主题相关图片如下：1.png

此主题相关图片如下：2.png


此主题相关图片如下：4.png

Tables("表A").Sort = "客户名, 单号, _Sortkey"

没有实现要的效果，按 大红袍版主的写法，首先是按 “客户名” 先排序了。我要的效果是：按照第一个单号001，把客户张三 的 单都排上来；接着按顺序往下 005，把李四的单再排上来。以此类推。还有人有办法吗，版主的效果如下图：

 

此主题相关图片如下：3.png

Dim t As Table = Tables("表A")
For Each xm As String In t.DataTable.GetValues("第二列")
    Dim min As String = t.Compute("min(第一列)", "第二列 = '" & xm & "'")
    t.DataTable.ReplaceFor("第三列", min, "第二列 = '" & xm & "'")
Next
t.Sort = "第三列"