捕捉新增事件


Sub EmployeeFormView_ItemInserted(ByVal sender As Object, ByVal e As FormViewInsertedEventArgs)
 
    ' Use the Exception property to determine whether an exception
    ' occurred during the insert operation.
    If e.Exception Is Nothing Then
   
      ' Use the AffectedRows property to determine whether the
      ' record was inserted. Sometimes an error might occur that
      ' does not raise an exception, but prevents the insert
      ' operation from completing.
      If e.AffectedRows = 1 Then
     
        MessageLabel.Text = "Record inserted successfully."
     
      Else
     
        MessageLabel.Text = "An error occurred during the insert operation."
       
        ' Use the KeepInInsertMode property to remain in insert mode
        ' when an error occurs during the insert operation.
        e.KeepInInsertMode = True
     
      End If
   
    Else
   
      ' Insert the code to handle the exception.
      MessageLabel.Text = e.Exception.Message
     
      ' Use the ExceptionHandled property to indicate that the
      ' exception has already been handled.
      e.ExceptionHandled = True
      e.KeepInInsertMode = True
   
    End If
       
  End Sub