Dim dr As DataRow = e.Table.Current.DataRowDim wz As Integer = Tables("表A").FindRow(dr)If wz >=0 Then Tables("表A").Position = wzEnd If