Advertisement
Guest User

Untitled

a guest
Apr 27th, 2015
187
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 0.47 KB | None | 0 0
  1. Private Sub btnSubmit_Click(sender As Object, e As EventArgs) Handles btnSubmit.Click
  2. On Error GoTo saveErr
  3. RequestSoftwareBindingSource.EndEdit()
  4. RequestSoftwareTableAdapter.Update(FYPDataSet.RequestSoftware)
  5. MessageBox.Show("Your request has been submitted.", "Thank you", MessageBoxButtons.OK, MessageBoxIcon.Information)
  6. saveErr:
  7. txtName.Text = ""
  8. txtDate.Text = ""
  9. txtSubject.Text = ""
  10. txtSoftware.Text = ""
  11. txtLabNum.Text = ""
  12. End Sub
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement