以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  问下这个如何排序  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=57669)

--  作者:jianjingmaoyi
--  发布时间:2014/9/28 22:59:00
--  问下这个如何排序
请问这个方法生成的统计表如何排序

按照生成的销售统计的订单尺码来排序:(交叉统计)

销售统计的订单尺寸 是 从 XS  S  M  L  XL  XXL XXXL  往下排的

所以我想在想窗口显示的时候也是从 xs s 这样的排序  现在是按照英文字母排的  L 在第一位.

 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:尺码排序.foxdb



--  作者:有点甜
--  发布时间:2014/9/28 23:11:00
--  
Dim ary() As String = {"XS", "S", "M", "L", "XL", "XXL", "XXXL"}
Dim idx As Integer = 6
For Each a As String In ary
    For Each c As Col In Tables(e.form.name & "_Table1").Cols
        If c.Caption Like a & "_*" Then
            c.Move(idx)
            idx+=1
        End If
    Next
Next

--  作者:blackzhu
--  发布时间:2014/9/29 7:57:00
--  
那个尺码是动态生成的,只能按照尺码列的顺序.写死了不好吧.
--  作者:blackzhu
--  发布时间:2014/9/29 8:10:00
--  
我找到方法了