'/// <summary>
'/// Invoked by a DetailsView ItemInserting Event
'/// </summary>
'/// <param name="sender">object that invoked event</param>
'/// <param name="e">object of DetailsViewInsertEventArgs, containing data to be inserted</param>
Protected Sub DetailsView1_ItemInserting(ByVal sender As Object, ByVal e As DetailsViewInsertEventArgs) Handles DetailsView1.ItemInserting
Dim categoriesAdapter As New ManHoursTableAdapters.tblCategoriesTableAdapter()
Dim categories As ManHours.tblCategoriesDataTable = categoriesAdapter.GetCategories()
'Iterate through rows collection from categories datatable
For each dr as DataRow in categories.rows()
'Compare inserted data to current datarow
'e.Values is a indexed property relating to data to be inserted.
If e.Values("Name") = dr("Name") Then
'If same, cancel insert and stop iterating
e.Cancel = True
Exit For
End If
Next 'Look at next row until empty
End Sub