写在datacolchanged事件
If e.DataCol.Name = "编号" Then
If e.NewValue <> Nothing AndAlso e.NewValue Like "*QP" Then
e.DataRow.Delete
End If