以下是引用lxl在2010-8-17 23:40:00的发言:
C#支持匿名方法,所以写起来代码比较省事
VB 必须显示定义一个比较方法。
而在foxtable里面 自定义的方法只能放在全局变量,所以只能这样
全局变量加上如下代码:
Public Function StrCompare(ByVal x As String, ByVal y As String) As Integer
Dim a As Integer = x
Dim b As Integer = y
Return a.CompareTo(b)
End Function
然后命令窗口执行:
Dim s1() As String = "2,6,3,11,8,4,9,1,7,5,10".Split(",")
Array.Sort(s1, AddressOf StrCompare)
Output.show(String.Join(",", s1))
[此贴子已经被作者于2010-8-17 23:41:24编辑过]
建议加入帮助!
[此贴子已经被作者于2010-8-18 10:28:18编辑过]