Dim idx As Integer = Tables("任务分派").FindRow("_Identify = '" & e.Row("_Identify") & "'")e.Cancel = TrueIf idx >= 0 Then Tables("任务分派").Position = idx Forms("任务分派修改").show()Else msgbox("没找到")End If