汗 是说把字段里的数据排序吗?
看看这个
function Sort(a0)
KeepChecking = TRUE
Do Until KeepChecking = FALSE
KeepChecking = FALSE
For i = 0 to UBound(a0)
If i = UBound(a0) Then Exit For
If ary(i) < ary(i+1) Then
t = a0(i)
a0(i) = a0(i+1)
a0(i+1) = t
KeepChecking = TRUE
End If
Next
Loop
Sort=a0
End function