怎样用Find查找到第2个、第3个符合条件的行？ - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

呵呵，别用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，指定按数量列降序排列，也就是按数量从多到少排列。

主题：怎样用Find查找到第2个、第3个符合条件的行？