主题：[求助]

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