- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- [解决]如何实现这种归类排序？大红袍版主再进来下 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=89344)
-- 发布时间：2016/8/19 14:09:00
-- [解决]如何实现这种归类排序？大红袍版主再进来下
按照单号的录入顺序 排列，将相同客户的归类在一起。（单号是连续递增的)
此主题相关图片如下：1.png
此主题相关图片如下：2.png
此主题相关图片如下：4.png
[此贴子已经被作者于2016/8/19 16:09:11编辑过]
-- 发布时间：2016/8/19 14:37:00
--
Tables("表A").Sort = "客户名, 单号, _Sortkey"
-- 发布时间：2016/8/19 15:36:00
--
没有实现要的效果，按 大红袍版主的写法，首先是按 “客户名” 先排序了。我要的效果是：按照第一个单号001，把客户张三 的 单都排上来；接着按顺序往下 005，把李四的单再排上来。以此类推。还有人有办法吗，版主的效果如下图：
此主题相关图片如下：3.png
-- 发布时间：2016/8/19 15:53:00
--
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 = "第三列"