主题：求第二大的数值

 用find函数，参考

Dim dt As DataTable = DataTables("客户信息管理")
Dim fdr As DataRow = dt.Find("", "客户代码 desc", 1)
If fdr Is Nothing Then
    msgbox("没找到")
Else
    msgbox(fdr("客户代码"))
End If

 http://www.foxtable.com/help/topics/0396.htm