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 ClassHi
My code to change the back color of all the selected cells is working fine but It can not change the border color of all the selected cells of the grid. What I am doing wrong?
Here is my code:
private void dtgCpr_ViewCellFormatting(object sender, CellFormattingEventArgs e) { e.CellElement.DrawBorder = true; if (e.CellElement.IsSelected) { e.CellElement.BorderColor = Color.Red; e.CellElement.BackColor = Color.SeaShell; } }Thanks
Regards
Private Sub rgvItems_CellFormatting(ByVal sender As Object, ByVal e As CellFormattingEventArgs) Handles rgvItems.CellFormatting If TypeOf e.CellElement.ColumnInfo Is GridViewCommandColumn AndAlso Not (TypeOf e.CellElement.RowElement Is GridTableHeaderRowElement) Then Dim column As GridViewCommandColumn = DirectCast(e.CellElement.ColumnInfo, GridViewCommandColumn) If column.Name = "PLButton" Then Dim element As RadButtonElement = DirectCast(e.CellElement.Children(0), RadButtonElement) element.DisplayStyle = Telerik.WinControls.DisplayStyle.Image ' This is an example of course element.Image = ImageList.Images(0) 'e.CellElement.StringAlignment = StringAlignment.Center 'Me.ApplyThemeToElement(element, "ControlDefault") End If End IfEnd Sub