Dim wz As Integer = Tables(e.DataTable.name).FindRow(e.DataRow)If wz >= 0 Then Tables(e.DataTable.name).Position = wz Forms("维修计划编辑").OpenEnd If