主题：[求助]

采购表中对采购单价，商品数量，进货成本 进行排序 ，排序是组合按钮，包括升序和降序，请问代码该如何呢？

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

 

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

 

点一列当前列排序  其他列顺序不变 求教

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(",")