呵呵，别用find，用select，一次全部找出来了，你要第几个都行。
Select
以集合的形式，返回所有符合指定条件的行。
语法：
Select(Filter)
Select(Filter,Sort)
Filter: 条件表达式
Sort: 可选参数，指定排序方式
例如希望列出1999年1月4日订购PD01产品的客户：
Dim
dt As DataTable = DataTables("订单")
Dim drs As List(Of DataRow) '定义一个DataRow集合。
drs = dt.Select("[产品] = 'PD01' And [日期]= #1/4/1999#")
If drs.Count = 0 Then
Output.Show("1999年1月4日无人订购产品PD01。")
Else
Output.Show("1999年1月4日订购产品PD01的客户名单：")
For Each dr As Datarow In drs
Output.Show(dr("客户") & ":" & dr("数量"))
Next
End If
如果你希望按订购数量的多少来排序客户名单，只需将下面一行代码：
drs = dt.Select("[产品] = 'PD01' And [日期]= #1/4/1999#")
修改为：
drs = dt.
Select("[产品] = 'PD01' And [日期]= #1/4/1999#","数量 DESC")
我们利用可选参数Sort，指定按数量列降序排列，也就是按数量从多到少排列。
加好友 
发短信
Post By：2008/9/23 16:00:00 [只看该作者]
