以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  [求助]  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=101152)
--  作者：这个狐表不简单
--  发布时间：2017/5/25 19:54:00
--  [求助]
采购表中对采购单价，商品数量，进货成本 进行排序 ，排序是组合按钮，包括升序和降序，请问代码该如何呢？
--  作者：有点色
--  发布时间：2017/5/25 20:49:00
--  

 Tables("采购表").Sort = "采购单价 desc, 商品数量, 进货成本"

 

http://www.foxtable.com/webhelp/scr/0451.htm

 
--  作者：这个狐表不简单
--  发布时间：2017/5/25 21:21:00
--  
点一列当前列排序  其他列顺序不变 求教
--  作者：有点色
--  发布时间：2017/5/25 22:02:00
--  

beforesort事件

 

Dim nsort As String = e.sort
For Each s As String In e.Table.sort.split(",")
    s = s.Split(" ")(0)
    If e.sort.Contains(s) = False Then
        nsort &= "," & s
    End If
Next
e.sort = nsort.trim(",")