or
Public Class ManageMemberType Public context As New MIMSModel.MIMSEntities Dim newMemType As MemType Dim updMemType As MemType Dim dmemtype As MemType Dim rtype As String Private Sub ManageCompanyType_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load Dim query = (From m In context.MemTypes Select m).ToList RadGridView1.DataSource = query End Sub Private Sub RadGridView1_RowsChanged(ByVal sender As Object, ByVal e As Telerik.WinControls.UI.GridViewCollectionChangedEventArgs) Handles RadGridView1.RowsChanged If e.Action = Telerik.WinControls.Data.NotifyCollectionChangedAction.ItemChanged Then Dim updrow As GridViewDataRowInfo = CType(e.NewItems(0), GridViewDataRowInfo) updMemType = MemType.CreateMemType(updrow.Cells("Type").Value.ToString) updMemType.Desc = updrow.Cells("Desc").Value.ToString DataAccess.UpdateEntity(updMemType, "MemTypes") End If End Sub Private Sub RadGridView1_UserAddedRow(ByVal sender As Object, ByVal e As Telerik.WinControls.UI.GridViewRowEventArgs) Handles RadGridView1.UserAddedRow newMemType = MemType.CreateMemType(e.Row.Cells.Item("Type").Value.ToString) newMemType.Desc = e.Row.Cells.Item("Desc").Value.ToString Try context.MemTypes.AddObject(newMemType) context.SaveChanges() MsgBox("record Added") Catch ex As UpdateException e.Row.Delete() MsgBox(String.Format("The object could not be added. Make sure that a Member type of '{0}' does not aleady exist.", newMemType.Type)) End Try End Sub Private Sub RadGridView1_UserDeletingRow(ByVal sender As Object, ByVal e As Telerik.WinControls.UI.GridViewRowCancelEventArgs) Handles RadGridView1.UserDeletingRow rtype = e.Rows(0).Cells(0).Value.ToString() Dim rcount = (From r In context.GetCompanyInfoes Where r.CompanyType = rtype Select r).Count If rcount > 0 Then MsgBox("There are " + rcount.ToString + " companies assigned to this member type, You cannot delete this type") Else Try dmemtype = MemType.CreateMemType(rtype) DataAccess.DeleteEntity(dmemtype, "MemTypes") Catch ex As Exception MsgBox("There was a problem deleting the Member type of " + rtype + " Please notify IT") End Try End If End Sub End Class