主题：[求助]Find 的问题

Dim dr As DataRow
Dim pd As String = "PD01"
dr = DataTables("订单").Find("[产品] = '" & pd & "'", "日期 Desc")
If dr IsNot Nothing Then
    Dim wz As Integer = Tables("订单").FindRow(dr)
    If wz >= 0 Then
        Tables("订单").Position = wz
    End If
End If

参考：

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

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

不过最好还是按顺序看帮助，看三遍。