要判断位置
Dim wz As Integer = Tables("订单").FindRow(dr) If wz >= 0 Then Tables("订单").Position = wz End If