这个排序功能自己做吧,beforeSort写代码
If e.sort > "" AndAlso e.sort.split(",").length = 1 Then
Dim nsort As String = ""
Dim flag As Boolean = False
For Each s As String In e.Table.sort.split(",")
Dim ary() As String = s.Split(" ")
If e.sort.contains(ary(0)) = False Then
nsort &= "," & ary(0)
Else
flag = True
nsort &= "," & e.sort
End If
Next
If flag = False Then
nsort &= "," & e.sort
End If
e.sort = nsort.trim(",")
End If