Dim zj As String = Tables("表A").current("_Identify")DataTables("表A").loadDim idx = Tables("表A").findrow("_Identify = " & zj)If idx >= 0 Then Tables("表A").Position = idxEnd If