Telerik Forums / UI for WinForms
This is a migrated thread and some comments may be shown as answers.

Hidden Cell Values

4 Answers 305 Views
GridView
This is a migrated thread and some comments may be shown as answers.
Tarık
Top achievements
Rank 1
Tarık asked on 15 Mar 2017, 04:43 PM

hi, 

i need to access invisible row value for formatting current cell

i can do this with devexpress xtragrid

Private Sub GridView1_RowCellStyle(sender As Object, e As RowCellStyleEventArgs) Handles GridView1.RowCellStyle
       Try
           If Not IsNothing(e) Then
               If Not IsNothing(GridView1.GetRowCellValue(e.RowHandle, "mukellef_mukellefiyetler")) Then
                   Dim Turu2() As String = GridView1.GetRowCellValue(e.RowHandle, "mukellef_mukellefiyetler").ToString.Split("|")
 
                   Dim Turu As String = ""
                   Dim muhdonem As String = ""
                   If Turu2(2) <> "H" Or Turu2(2) <> "" Then muhdonem = Turu2(2)
                   Select Case e.Column.Name
                       Case "listeler_kesin"
                           If Turu2(7) = "H" Then
                               e.Appearance.BackColor = Color.DimGray
                               e.Appearance.ForeColor = Color.DimGray
                           Else
                               Turu = GridView1.GetRowCellValue(e.RowHandle, "listeler_kesin_aciklama").ToString.Split("|")(0)
                               Select Case Turu
                                   Case "Onaylandı-Gönderildi"
                                       e.Appearance.BackColor = Color.Green
                                       e.Appearance.ForeColor = Color.Green
                                   Case "Onaylandı"
                                       e.Appearance.BackColor = Color.PaleGreen
                                       e.Appearance.ForeColor = Color.PaleGreen
                                   Case "Onaylanmadı"
                                       e.Appearance.BackColor = Color.Red
                                       e.Appearance.ForeColor = Color.Red
                                   Case "Bu Ay Yok"
                                       e.Appearance.BackColor = Color.DimGray
                                       e.Appearance.ForeColor = Color.DimGray
                               End Select
                           End If
                       Case "listeler_formba"
                           If Turu2(4) = "H" Then
                               e.Appearance.BackColor = Color.DimGray
                               e.Appearance.ForeColor = Color.DimGray
                           Else
                               Turu = GridView1.GetRowCellValue(e.RowHandle, "listeler_formba_aciklama").ToString.Split("|")(0)
                               Select Case Turu
                                   Case "Onaylandı-Gönderildi"
                                       e.Appearance.BackColor = Color.Green
                                       e.Appearance.ForeColor = Color.Green
                                   Case "Onaylandı"
                                       e.Appearance.BackColor = Color.PaleGreen
                                       e.Appearance.ForeColor = Color.PaleGreen
                                   Case "Onaylanmadı"
                                       e.Appearance.BackColor = Color.Red
                                       e.Appearance.ForeColor = Color.Red
                                   Case "Bu Ay Yok"
                                       e.Appearance.BackColor = Color.DimGray
                                       e.Appearance.ForeColor = Color.DimGray
                               End Select
                           End If
                       Case "listeler_formbs"
                           If Turu2(4) = "H" Then
                               e.Appearance.BackColor = Color.DimGray
                               e.Appearance.ForeColor = Color.DimGray
                           Else
                               Turu = GridView1.GetRowCellValue(e.RowHandle, "listeler_formbs_aciklama").ToString.Split("|")(0)
                               Select Case Turu
                                   Case "Onaylandı-Gönderildi"
                                       e.Appearance.BackColor = Color.Green
                                       e.Appearance.ForeColor = Color.Green
                                   Case "Onaylandı"
                                       e.Appearance.BackColor = Color.PaleGreen
                                       e.Appearance.ForeColor = Color.PaleGreen
                                   Case "Onaylanmadı"
                                       e.Appearance.BackColor = Color.Red
                                       e.Appearance.ForeColor = Color.Red
                                   Case "Bu Ay Yok"
                                       e.Appearance.BackColor = Color.DimGray
                                       e.Appearance.ForeColor = Color.DimGray
                               End Select
                           End If
                       Case "listeler_kdv2"
                           If Turu2(1) = "H" Then
                               e.Appearance.BackColor = Color.DimGray
                               e.Appearance.ForeColor = Color.DimGray
                           Else
                               Turu = GridView1.GetRowCellValue(e.RowHandle, "listeler_kdv2_aciklama").ToString.Split("|")(0)
                               Select Case Turu
                                   Case "Onaylandı-Gönderildi"
                                       e.Appearance.BackColor = Color.Green
                                       e.Appearance.ForeColor = Color.Green
                                   Case "Onaylandı"
                                       e.Appearance.BackColor = Color.PaleGreen
                                       e.Appearance.ForeColor = Color.PaleGreen
                                   Case "Onaylanmadı"
                                       e.Appearance.BackColor = Color.Red
                                       e.Appearance.ForeColor = Color.Red
                                   Case "Bu Ay Yok"
                                       e.Appearance.BackColor = Color.DimGray
                                       e.Appearance.ForeColor = Color.DimGray
                               End Select
                           End If
                       Case "listeler_kdv1"
                           If Turu2(0) = "H" Then
                               e.Appearance.BackColor = Color.DimGray
                               e.Appearance.ForeColor = Color.DimGray
                           Else
                               Turu = GridView1.GetRowCellValue(e.RowHandle, "listeler_kdv1_aciklama").ToString.Split("|")(0)
                               Select Case Turu
                                   Case "Onaylandı-Gönderildi"
                                       e.Appearance.BackColor = Color.Green
                                       e.Appearance.ForeColor = Color.Green
                                   Case "Onaylandı"
                                       e.Appearance.BackColor = Color.PaleGreen
                                       e.Appearance.ForeColor = Color.PaleGreen
                                   Case "Onaylanmadı"
                                       e.Appearance.BackColor = Color.Red
                                       e.Appearance.ForeColor = Color.Red
                                   Case "Bu Ay Yok"
                                       e.Appearance.BackColor = Color.DimGray
                                       e.Appearance.ForeColor = Color.DimGray
                               End Select
                           End If
                       Case "listeler_muh"
                           If Turu2(2) = "H" Then
                               e.Appearance.BackColor = Color.DimGray
                               e.Appearance.ForeColor = Color.DimGray
                           Else
                               If Not ucaylikdonem And muhdonem = "3" Then
                                   e.Appearance.BackColor = Color.DimGray
                                   e.Appearance.ForeColor = Color.DimGray
                               Else
 
                                   Turu = GridView1.GetRowCellValue(e.RowHandle, "listeler_muh_aciklama").ToString.Split("|")(0)
                                   Select Case Turu
                                       Case "Onaylandı-Gönderildi"
                                           e.Appearance.BackColor = Color.Green
                                           e.Appearance.ForeColor = Color.Green
                                       Case "Onaylandı"
                                           e.Appearance.BackColor = Color.PaleGreen
                                           e.Appearance.ForeColor = Color.PaleGreen
                                       Case "Onaylanmadı"
                                           e.Appearance.BackColor = Color.Red
                                           e.Appearance.ForeColor = Color.Red
                                       Case "Bu Ay Yok"
                                           e.Appearance.BackColor = Color.DimGray
                                           e.Appearance.ForeColor = Color.DimGray
                                   End Select
                               End If
                           End If
                       Case "listeler_gecici"
                           If Turu2(5) = "H" Then
                               e.Appearance.BackColor = Color.DimGray
                               e.Appearance.ForeColor = Color.DimGray
                           Else
                               Turu = GridView1.GetRowCellValue(e.RowHandle, "listeler_gecici_aciklama").ToString.Split("|")(0)
                               Select Case Turu
                                   Case "Onaylandı-Gönderildi"
                                       e.Appearance.BackColor = Color.Green
                                       e.Appearance.ForeColor = Color.Green
                                   Case "Onaylandı"
                                       e.Appearance.BackColor = Color.PaleGreen
                                       e.Appearance.ForeColor = Color.PaleGreen
                                   Case "Onaylanmadı"
                                       e.Appearance.BackColor = Color.Red
                                       e.Appearance.ForeColor = Color.Red
                                   Case "Bu Ay Yok"
                                       e.Appearance.BackColor = Color.DimGray
                                       e.Appearance.ForeColor = Color.DimGray
                               End Select
                           End If
                       Case "listeler_yillik"
                           If Turu2(6) = "H" Then
                               e.Appearance.BackColor = Color.DimGray
                               e.Appearance.ForeColor = Color.DimGray
                           Else
                               Turu = GridView1.GetRowCellValue(e.RowHandle, "listeler_yillik_aciklama").ToString.Split("|")(0)
                               Select Case Turu
                                   Case "Onaylandı-Gönderildi"
                                       e.Appearance.BackColor = Color.Green
                                       e.Appearance.ForeColor = Color.Green
                                   Case "Onaylandı"
                                       e.Appearance.BackColor = Color.PaleGreen
                                       e.Appearance.ForeColor = Color.PaleGreen
                                   Case "Onaylanmadı"
                                       e.Appearance.BackColor = Color.Red
                                       e.Appearance.ForeColor = Color.Red
                                   Case "Bu Ay Yok"
                                       e.Appearance.BackColor = Color.DimGray
                                       e.Appearance.ForeColor = Color.DimGray
                               End Select
                           End If
                       Case "listeler_damga"
                           If Turu2(3) = "H" Then
                               e.Appearance.BackColor = Color.DimGray
                               e.Appearance.ForeColor = Color.DimGray
                           Else
                               Turu = GridView1.GetRowCellValue(e.RowHandle, "listeler_damga_aciklama").ToString.Split("|")(0)
                               Select Case Turu
                                   Case "Onaylandı-Gönderildi"
                                       e.Appearance.BackColor = Color.Green
                                       e.Appearance.ForeColor = Color.Green
                                   Case "Onaylandı"
                                       e.Appearance.BackColor = Color.PaleGreen
                                       e.Appearance.ForeColor = Color.PaleGreen
                                   Case "Onaylanmadı"
                                       e.Appearance.BackColor = Color.Red
                                       e.Appearance.ForeColor = Color.Red
                                   Case "Bu Ay Yok"
                                       e.Appearance.BackColor = Color.DimGray
                                       e.Appearance.ForeColor = Color.DimGray
                               End Select
                           End If
                   End Select
               End If
           End If
       Catch ex As Exception
           MsgBox(ex.Message)
       End Try
   End Sub

i have several invisible columns like this

Me.rgw1.MasterTemplate.AllowAddNewRow = False
Me.rgw1.MasterTemplate.AllowColumnReorder = False
Me.rgw1.MasterTemplate.AllowSearchRow = True
GridViewTextBoxColumn25.EnableExpressionEditor = False
GridViewTextBoxColumn25.FieldName = "mukellef_unvani"
GridViewTextBoxColumn25.HeaderText = "Ünvanı"
GridViewTextBoxColumn25.Name = "clmUnvan"
GridViewTextBoxColumn25.Width = 376
GridViewTextBoxColumn26.AllowGroup = False
GridViewTextBoxColumn26.AllowResize = False
GridViewTextBoxColumn26.AllowSort = False
GridViewTextBoxColumn26.EnableExpressionEditor = False
GridViewTextBoxColumn26.FieldName = "mukellef_tc"
GridViewTextBoxColumn26.HeaderText = "TC Kimlik"
GridViewTextBoxColumn26.Name = "clmTC"
GridViewTextBoxColumn26.ReadOnly = True
GridViewTextBoxColumn26.TextAlignment = System.Drawing.ContentAlignment.MiddleCenter
GridViewTextBoxColumn26.Width = 111
GridViewTextBoxColumn27.AllowGroup = False
GridViewTextBoxColumn27.AllowResize = False
GridViewTextBoxColumn27.AllowSort = False
GridViewTextBoxColumn27.EnableExpressionEditor = False
GridViewTextBoxColumn27.FieldName = "mukellef_vn"
GridViewTextBoxColumn27.HeaderText = "Vergi No"
GridViewTextBoxColumn27.Name = "clmVergi"
GridViewTextBoxColumn27.TextAlignment = System.Drawing.ContentAlignment.MiddleCenter
GridViewTextBoxColumn27.Width = 111
GridViewTextBoxColumn28.AllowGroup = False
GridViewTextBoxColumn28.AllowResize = False
GridViewTextBoxColumn28.AllowSort = False
GridViewTextBoxColumn28.EnableExpressionEditor = False
GridViewTextBoxColumn28.FieldName = "listeler_kdv1"
GridViewTextBoxColumn28.HeaderText = "KDV1"
GridViewTextBoxColumn28.Name = "clmKdv1"
GridViewTextBoxColumn28.TextAlignment = System.Drawing.ContentAlignment.MiddleCenter
GridViewTextBoxColumn29.AllowGroup = False
GridViewTextBoxColumn29.AllowResize = False
GridViewTextBoxColumn29.AllowSort = False
GridViewTextBoxColumn29.EnableExpressionEditor = False
GridViewTextBoxColumn29.FieldName = "listeler_kdv2"
GridViewTextBoxColumn29.HeaderText = "KDV2"
GridViewTextBoxColumn29.Name = "clmKdv2"
GridViewTextBoxColumn29.TextAlignment = System.Drawing.ContentAlignment.MiddleCenter
GridViewTextBoxColumn30.AllowGroup = False
GridViewTextBoxColumn30.AllowResize = False
GridViewTextBoxColumn30.AllowSort = False
GridViewTextBoxColumn30.EnableExpressionEditor = False
GridViewTextBoxColumn30.FieldName = "listeler_muh"
GridViewTextBoxColumn30.HeaderText = "MUH"
GridViewTextBoxColumn30.Name = "clmMuh"
GridViewTextBoxColumn30.TextAlignment = System.Drawing.ContentAlignment.MiddleCenter
GridViewTextBoxColumn31.AllowGroup = False
GridViewTextBoxColumn31.AllowResize = False
GridViewTextBoxColumn31.AllowSort = False
GridViewTextBoxColumn31.EnableExpressionEditor = False
GridViewTextBoxColumn31.FieldName = "listeler_damga"
GridViewTextBoxColumn31.HeaderText = "DMG"
GridViewTextBoxColumn31.Name = "clmDmg"
GridViewTextBoxColumn31.TextAlignment = System.Drawing.ContentAlignment.MiddleCenter
GridViewTextBoxColumn32.AllowGroup = False
GridViewTextBoxColumn32.AllowResize = False
GridViewTextBoxColumn32.AllowSort = False
GridViewTextBoxColumn32.EnableExpressionEditor = False
GridViewTextBoxColumn32.FieldName = "listeler_formba"
GridViewTextBoxColumn32.HeaderText = "FBA"
GridViewTextBoxColumn32.Name = "clmFormba"
GridViewTextBoxColumn32.TextAlignment = System.Drawing.ContentAlignment.MiddleCenter
GridViewTextBoxColumn33.AllowGroup = False
GridViewTextBoxColumn33.AllowResize = False
GridViewTextBoxColumn33.AllowSort = False
GridViewTextBoxColumn33.EnableExpressionEditor = False
GridViewTextBoxColumn33.FieldName = "listeler_formbs"
GridViewTextBoxColumn33.HeaderText = "FBS"
GridViewTextBoxColumn33.Name = "clmFormbs"
GridViewTextBoxColumn33.TextAlignment = System.Drawing.ContentAlignment.MiddleCenter
GridViewTextBoxColumn34.AllowGroup = False
GridViewTextBoxColumn34.AllowResize = False
GridViewTextBoxColumn34.AllowSort = False
GridViewTextBoxColumn34.EnableExpressionEditor = False
GridViewTextBoxColumn34.FieldName = "listeler_gecici"
GridViewTextBoxColumn34.HeaderText = "GEÇ"
GridViewTextBoxColumn34.Name = "clmGecici"
GridViewTextBoxColumn34.TextAlignment = System.Drawing.ContentAlignment.MiddleCenter
GridViewTextBoxColumn35.AllowGroup = False
GridViewTextBoxColumn35.AllowResize = False
GridViewTextBoxColumn35.AllowSort = False
GridViewTextBoxColumn35.EnableExpressionEditor = False
GridViewTextBoxColumn35.FieldName = "listeler_yillik"
GridViewTextBoxColumn35.HeaderText = "YIL"
GridViewTextBoxColumn35.Name = "clmyillik"
GridViewTextBoxColumn35.TextAlignment = System.Drawing.ContentAlignment.MiddleCenter
GridViewTextBoxColumn36.AllowGroup = False
GridViewTextBoxColumn36.AllowResize = False
GridViewTextBoxColumn36.AllowSort = False
GridViewTextBoxColumn36.EnableExpressionEditor = False
GridViewTextBoxColumn36.FieldName = "mukellef_sorumlu"
GridViewTextBoxColumn36.HeaderText = "sorumlu"
GridViewTextBoxColumn36.IsVisible = False
GridViewTextBoxColumn36.Name = "clmsorumlu"
GridViewTextBoxColumn37.AllowGroup = False
GridViewTextBoxColumn37.AllowResize = False
GridViewTextBoxColumn37.AllowSort = False
GridViewTextBoxColumn37.EnableExpressionEditor = False
GridViewTextBoxColumn37.FieldName = "mukellef_mukellefiyetler"
GridViewTextBoxColumn37.HeaderText = "mukellefiyetler"
GridViewTextBoxColumn37.IsVisible = False
GridViewTextBoxColumn37.Name = "clmmukellefiyetler"
GridViewTextBoxColumn38.AllowGroup = False
GridViewTextBoxColumn38.AllowResize = False
GridViewTextBoxColumn38.AllowSort = False
GridViewTextBoxColumn38.EnableExpressionEditor = False
GridViewTextBoxColumn38.FieldName = "mukellef_vd"
GridViewTextBoxColumn38.HeaderText = "vd"
GridViewTextBoxColumn38.IsVisible = False
GridViewTextBoxColumn38.Name = "clmvd"
GridViewTextBoxColumn39.AllowGroup = False
GridViewTextBoxColumn39.AllowResize = False
GridViewTextBoxColumn39.AllowSort = False
GridViewTextBoxColumn39.EnableExpressionEditor = False
GridViewTextBoxColumn39.FieldName = "mukellef_eposta"
GridViewTextBoxColumn39.HeaderText = "eposta"
GridViewTextBoxColumn39.IsVisible = False
GridViewTextBoxColumn39.Name = "clmeposta"
GridViewTextBoxColumn40.AllowGroup = False
GridViewTextBoxColumn40.AllowResize = False
GridViewTextBoxColumn40.AllowSort = False
GridViewTextBoxColumn40.EnableExpressionEditor = False
GridViewTextBoxColumn40.FieldName = "mukellef_sondonem"
GridViewTextBoxColumn40.HeaderText = "sondonem"
GridViewTextBoxColumn40.IsVisible = False
GridViewTextBoxColumn40.Name = "clmsondonem"
GridViewTextBoxColumn41.AllowGroup = False
GridViewTextBoxColumn41.AllowResize = False
GridViewTextBoxColumn41.AllowSort = False
GridViewTextBoxColumn41.EnableExpressionEditor = False
GridViewTextBoxColumn41.FieldName = "listeler_kdv1_aciklama"
GridViewTextBoxColumn41.HeaderText = "listeler_kdv1_aciklama"
GridViewTextBoxColumn41.IsVisible = False
GridViewTextBoxColumn41.Name = "listeler_kdv1_aciklama"
GridViewTextBoxColumn42.EnableExpressionEditor = False
GridViewTextBoxColumn42.FieldName = "listeler_kdv2_aciklama"
GridViewTextBoxColumn42.HeaderText = "listeler_kdv2_aciklama"
GridViewTextBoxColumn42.IsVisible = False
GridViewTextBoxColumn42.Name = "listeler_kdv2_aciklama"
GridViewTextBoxColumn43.EnableExpressionEditor = False
GridViewTextBoxColumn43.FieldName = "listeler_muh_aciklama"
GridViewTextBoxColumn43.HeaderText = "listeler_muh_aciklama"
GridViewTextBoxColumn43.IsVisible = False
GridViewTextBoxColumn43.Name = "listeler_muh_aciklama"
GridViewTextBoxColumn44.EnableExpressionEditor = False
GridViewTextBoxColumn44.FieldName = "listeler_gecici_aciklama"
GridViewTextBoxColumn44.HeaderText = "listeler_gecici_aciklama"
GridViewTextBoxColumn44.IsVisible = False
GridViewTextBoxColumn44.Name = "listeler_gecici_aciklama"
GridViewTextBoxColumn45.EnableExpressionEditor = False
GridViewTextBoxColumn45.FieldName = "listeler_yillik_aciklama"
GridViewTextBoxColumn45.HeaderText = "listeler_yillik_aciklama"
GridViewTextBoxColumn45.IsVisible = False
GridViewTextBoxColumn45.Name = "listeler_yillik_aciklama"
GridViewTextBoxColumn46.EnableExpressionEditor = False
GridViewTextBoxColumn46.FieldName = "listeler_damga_aciklama"
GridViewTextBoxColumn46.HeaderText = "listeler_damga_aciklama"
GridViewTextBoxColumn46.IsVisible = False
GridViewTextBoxColumn46.Name = "listeler_damga_aciklama"
GridViewTextBoxColumn47.EnableExpressionEditor = False
GridViewTextBoxColumn47.FieldName = "listeler_formba_aciklama"
GridViewTextBoxColumn47.HeaderText = "listeler_formba_aciklama"
GridViewTextBoxColumn47.IsVisible = False
GridViewTextBoxColumn47.Name = "listeler_formba_aciklama"
GridViewTextBoxColumn48.EnableExpressionEditor = False
GridViewTextBoxColumn48.FieldName = "listeler_formbs_aciklama"
GridViewTextBoxColumn48.HeaderText = "listeler_formbs_aciklama"
GridViewTextBoxColumn48.IsVisible = False
GridViewTextBoxColumn48.Name = "listeler_formbs_aciklama"

but i cant access hidden columns value in radgrid like this 

Private Sub rgw1_CellFormatting(sender As Object, e As CellFormattingEventArgs) Handles rgw1.CellFormatting
      Try
          If Not IsNothing(e) Then
              If Not IsNothing(e.CellElement.RowInfo.Cells("mukellef_mukellefiyetler")) Then
                  Dim Turu2() As String = e.CellElement.RowInfo.Cells("mukellef_mukellefiyetler").ToString.Split("|")
 
                  Dim Turu As String = ""
                  Dim muhdonem As String = ""
                  If Turu2(2) <> "H" Or Turu2(2) <> "" Then muhdonem = Turu2(2)
                  e.CellElement.DrawFill = True
                  Select Case e.Column.Name
                      Case "listeler_kesin"
                          If Turu2(7) = "H" Then
                              e.CellElement.BackColor = Color.DimGray
                              e.CellElement.ForeColor = Color.DimGray
                          Else
                              Turu = e.CellElement.RowInfo.Cells("listeler_kesin_aciklama").ToString.Split("|")(0)
                              Select Case Turu
                                  Case "Onaylandı-Gönderildi"
                                      e.CellElement.BackColor = Color.Green
                                      e.CellElement.ForeColor = Color.Green
                                  Case "Onaylandı"
                                      e.CellElement.BackColor = Color.PaleGreen
                                      e.CellElement.ForeColor = Color.PaleGreen
                                  Case "Onaylanmadı"
                                      e.CellElement.BackColor = Color.Red
                                      e.CellElement.ForeColor = Color.Red
                                  Case "Bu Ay Yok"
                                      e.CellElement.BackColor = Color.DimGray
                                      e.CellElement.ForeColor = Color.DimGray
                              End Select
                          End If
                      Case "listeler_formba"
                          If Turu2(4) = "H" Then
                              e.CellElement.BackColor = Color.DimGray
                              e.CellElement.ForeColor = Color.DimGray
                          Else
                              Turu = e.CellElement.RowInfo.Cells("listeler_formba_aciklama").ToString.Split("|")(0)
                              Select Case Turu
                                  Case "Onaylandı-Gönderildi"
                                      e.CellElement.BackColor = Color.Green
                                      e.CellElement.ForeColor = Color.Green
                                  Case "Onaylandı"
                                      e.CellElement.BackColor = Color.PaleGreen
                                      e.CellElement.ForeColor = Color.PaleGreen
                                  Case "Onaylanmadı"
                                      e.CellElement.BackColor = Color.Red
                                      e.CellElement.ForeColor = Color.Red
                                  Case "Bu Ay Yok"
                                      e.CellElement.BackColor = Color.DimGray
                                      e.CellElement.ForeColor = Color.DimGray
                              End Select
                          End If
                      Case "listeler_formbs"
                          If Turu2(4) = "H" Then
                              e.CellElement.BackColor = Color.DimGray
                              e.CellElement.ForeColor = Color.DimGray
                          Else
                              Turu = e.CellElement.RowInfo.Cells("listeler_formbs_aciklama").ToString.Split("|")(0)
                              Select Case Turu
                                  Case "Onaylandı-Gönderildi"
                                      e.CellElement.BackColor = Color.Green
                                      e.CellElement.ForeColor = Color.Green
                                  Case "Onaylandı"
                                      e.CellElement.BackColor = Color.PaleGreen
                                      e.CellElement.ForeColor = Color.PaleGreen
                                  Case "Onaylanmadı"
                                      e.CellElement.BackColor = Color.Red
                                      e.CellElement.ForeColor = Color.Red
                                  Case "Bu Ay Yok"
                                      e.CellElement.BackColor = Color.DimGray
                                      e.CellElement.ForeColor = Color.DimGray
                              End Select
                          End If
                      Case "listeler_kdv2"
                          If Turu2(1) = "H" Then
                              e.CellElement.BackColor = Color.DimGray
                              e.CellElement.ForeColor = Color.DimGray
                          Else
                              Turu = e.CellElement.RowInfo.Cells("listeler_kdv2_aciklama").ToString.Split("|")(0)
                              Select Case Turu
                                  Case "Onaylandı-Gönderildi"
                                      e.CellElement.BackColor = Color.Green
                                      e.CellElement.ForeColor = Color.Green
                                  Case "Onaylandı"
                                      e.CellElement.BackColor = Color.PaleGreen
                                      e.CellElement.ForeColor = Color.PaleGreen
                                  Case "Onaylanmadı"
                                      e.CellElement.BackColor = Color.Red
                                      e.CellElement.ForeColor = Color.Red
                                  Case "Bu Ay Yok"
                                      e.CellElement.BackColor = Color.DimGray
                                      e.CellElement.ForeColor = Color.DimGray
                              End Select
                          End If
                      Case "listeler_kdv1"
                          If Turu2(0) = "H" Then
                              e.CellElement.BackColor = Color.DimGray
                              e.CellElement.ForeColor = Color.DimGray
                          Else
                              Turu = e.CellElement.RowInfo.Cells("listeler_kdv1_aciklama").ToString.Split("|")(0)
                              Select Case Turu
                                  Case "Onaylandı-Gönderildi"
                                      e.CellElement.BackColor = Color.Green
                                      e.CellElement.ForeColor = Color.Green
                                  Case "Onaylandı"
                                      e.CellElement.BackColor = Color.PaleGreen
                                      e.CellElement.ForeColor = Color.PaleGreen
                                  Case "Onaylanmadı"
                                      e.CellElement.BackColor = Color.Red
                                      e.CellElement.ForeColor = Color.Red
                                  Case "Bu Ay Yok"
                                      e.CellElement.BackColor = Color.DimGray
                                      e.CellElement.ForeColor = Color.DimGray
                              End Select
                          End If
                      Case "listeler_muh"
                          If Turu2(2) = "H" Then
                              e.CellElement.BackColor = Color.DimGray
                              e.CellElement.ForeColor = Color.DimGray
                          Else
                              If Not ucaylikdonem And muhdonem = "3" Then
                                  e.CellElement.BackColor = Color.DimGray
                                  e.CellElement.ForeColor = Color.DimGray
                              Else
 
                                  Turu = e.CellElement.RowInfo.Cells("listeler_muh_aciklama").ToString.Split("|")(0)
                                  Select Case Turu
                                      Case "Onaylandı-Gönderildi"
                                          e.CellElement.BackColor = Color.Green
                                          e.CellElement.ForeColor = Color.Green
                                      Case "Onaylandı"
                                          e.CellElement.BackColor = Color.PaleGreen
                                          e.CellElement.ForeColor = Color.PaleGreen
                                      Case "Onaylanmadı"
                                          e.CellElement.BackColor = Color.Red
                                          e.CellElement.ForeColor = Color.Red
                                      Case "Bu Ay Yok"
                                          e.CellElement.BackColor = Color.DimGray
                                          e.CellElement.ForeColor = Color.DimGray
                                  End Select
                              End If
                          End If
                      Case "listeler_gecici"
                          If Turu2(5) = "H" Then
                              e.CellElement.BackColor = Color.DimGray
                              e.CellElement.ForeColor = Color.DimGray
                          Else
                              Turu = e.CellElement.RowInfo.Cells("listeler_gecici_aciklama").ToString.Split("|")(0)
                              Select Case Turu
                                  Case "Onaylandı-Gönderildi"
                                      e.CellElement.BackColor = Color.Green
                                      e.CellElement.ForeColor = Color.Green
                                  Case "Onaylandı"
                                      e.CellElement.BackColor = Color.PaleGreen
                                      e.CellElement.ForeColor = Color.PaleGreen
                                  Case "Onaylanmadı"
                                      e.CellElement.BackColor = Color.Red
                                      e.CellElement.ForeColor = Color.Red
                                  Case "Bu Ay Yok"
                                      e.CellElement.BackColor = Color.DimGray
                                      e.CellElement.ForeColor = Color.DimGray
                              End Select
                          End If
                      Case "listeler_yillik"
                          If Turu2(6) = "H" Then
                              e.CellElement.BackColor = Color.DimGray
                              e.CellElement.ForeColor = Color.DimGray
                          Else
                              Turu = e.CellElement.RowInfo.Cells("listeler_yillik_aciklama").ToString.Split("|")(0)
                              Select Case Turu
                                  Case "Onaylandı-Gönderildi"
                                      e.CellElement.BackColor = Color.Green
                                      e.CellElement.ForeColor = Color.Green
                                  Case "Onaylandı"
                                      e.CellElement.BackColor = Color.PaleGreen
                                      e.CellElement.ForeColor = Color.PaleGreen
                                  Case "Onaylanmadı"
                                      e.CellElement.BackColor = Color.Red
                                      e.CellElement.ForeColor = Color.Red
                                  Case "Bu Ay Yok"
                                      e.CellElement.BackColor = Color.DimGray
                                      e.CellElement.ForeColor = Color.DimGray
                              End Select
                          End If
                      Case "listeler_damga"
                          If Turu2(3) = "H" Then
                              e.CellElement.BackColor = Color.DimGray
                              e.CellElement.ForeColor = Color.DimGray
                          Else
                              Turu = e.CellElement.RowInfo.Cells("listeler_damga_aciklama").ToString.Split("|")(0)
                              Select Case Turu
                                  Case "Onaylandı-Gönderildi"
                                      e.CellElement.BackColor = Color.Green
                                      e.CellElement.ForeColor = Color.Green
                                  Case "Onaylandı"
                                      e.CellElement.BackColor = Color.PaleGreen
                                      e.CellElement.ForeColor = Color.PaleGreen
                                  Case "Onaylanmadı"
                                      e.CellElement.BackColor = Color.Red
                                      e.CellElement.ForeColor = Color.Red
                                  Case "Bu Ay Yok"
                                      e.CellElement.BackColor = Color.DimGray
                                      e.CellElement.ForeColor = Color.DimGray
                              End Select
                          End If
                  End Select
              End If
          End If
      Catch ex As Exception
          MsgBox(ex.Message)
      End Try
  End Sub

4 Answers, 1 is accepted

Sort by
0
Tarık
Top achievements
Rank 1
answered on 15 Mar 2017, 05:34 PM
sample.jpg
I'm trying to do something like the picture
0
Dimitar
Telerik team
answered on 16 Mar 2017, 06:57 AM
Hello Tarik,

You need to use the Value property and cast the value to the appropriate type. Here is a small example for this:
Private Sub RadGridView1_CellFormatting(ByVal sender As Object, ByVal e As CellFormattingEventArgs)
    If e.CellElement.RowInfo.Cells("Name").Value IsNot Nothing Then
        Dim value = CStr(e.CellElement.RowInfo.Cells("Name").Value)
        If value = "David" Then
            e.CellElement.DrawFill = True
            e.CellElement.ForeColor = Color.Blue
            e.CellElement.NumberOfColors = 1
            e.CellElement.BackColor = Color.Aqua
        Else
            e.CellElement.ResetValue(LightVisualElement.DrawFillProperty, ValueResetFlags.Local)
            e.CellElement.ResetValue(LightVisualElement.ForeColorProperty, ValueResetFlags.Local)
            e.CellElement.ResetValue(LightVisualElement.NumberOfColorsProperty, ValueResetFlags.Local)
            e.CellElement.ResetValue(LightVisualElement.BackColorProperty, ValueResetFlags.Local)
        End If
    Else
        e.CellElement.ResetValue(LightVisualElement.DrawFillProperty, ValueResetFlags.Local)
        e.CellElement.ResetValue(LightVisualElement.ForeColorProperty, ValueResetFlags.Local)
        e.CellElement.ResetValue(LightVisualElement.NumberOfColorsProperty, ValueResetFlags.Local)
        e.CellElement.ResetValue(LightVisualElement.BackColorProperty, ValueResetFlags.Local)
    End If
End Sub

I hope this will be useful. Let me know if you have additional questions.

Regards,
Dimitar
Telerik by Progress
Try our brand new, jQuery-free Angular 2 components built from ground-up which deliver the business app essential building blocks - a grid component, data visualization (charts) and form elements.
0
Tarık
Top achievements
Rank 1
answered on 20 Mar 2017, 07:59 PM
picture1.png
picture2.png

Thank you for your help, I did it the way you indicated. As shown in picture 1.

But this time, when I go down, it becomes more than one focused row. As shown in picture 2.

Multiselect is false and i try alternate color false.

But there is no change. Cellformatting code is here, Where could i have made a mistake

i need to use solid background because i have string in cell and i want same fore color and back color to hide this value from user, He should only see the colors

Private Sub rgw1_CellFormatting(sender As Object, e As CellFormattingEventArgs) Handles rgw1.CellFormatting
     Try
         If Not IsNothing(e) Then
             e.CellElement.GradientStyle = Telerik.WinControls.GradientStyles.Solid
             If Not IsNothing(e.CellElement.RowInfo.Cells("mukellef_mukellefiyetler").Value) Then
                 Dim Turu2() As String = e.CellElement.RowInfo.Cells("mukellef_mukellefiyetler").Value.ToString.Split("|")
                 Dim Turu As String = ""
                 Dim muhdonem As String = ""
                 If Turu2(2) <> "H" Or Turu2(2) <> "" Then muhdonem = Turu2(2)
                 e.CellElement.DrawFill = True
                 Select Case e.Column.Name
                     Case "listeler_kesin"
                         If Turu2(7) = "H" Then
                             e.CellElement.BackColor = Color.DimGray
                             e.CellElement.ForeColor = Color.DimGray
                         Else
                             Turu = e.CellElement.RowInfo.Cells("listeler_kesin_aciklama").Value.ToString.Split("|")(0)
                             Select Case Turu
                                 Case "Onaylandı-Gönderildi"
                                     e.CellElement.BackColor = Color.Green
                                     e.CellElement.ForeColor = Color.Green
                                 Case "Onaylandı"
                                     e.CellElement.BackColor = Color.PaleGreen
                                     e.CellElement.ForeColor = Color.PaleGreen
                                 Case "Onaylanmadı"
                                     e.CellElement.BackColor = Color.Red
                                     e.CellElement.ForeColor = Color.Red
                                 Case "Bu Ay Yok"
                                     e.CellElement.BackColor = Color.DimGray
                                     e.CellElement.ForeColor = Color.DimGray
                             End Select
                         End If
                     Case "listeler_formba"
                         If Turu2(4) = "H" Then
                             e.CellElement.BackColor = Color.DimGray
                             e.CellElement.ForeColor = Color.DimGray
                         Else
                             Turu = e.CellElement.RowInfo.Cells("listeler_formba_aciklama").Value.ToString.Split("|")(0)
                             Select Case Turu
                                 Case "Onaylandı-Gönderildi"
                                     e.CellElement.BackColor = Color.Green
                                     e.CellElement.ForeColor = Color.Green
                                 Case "Onaylandı"
                                     e.CellElement.BackColor = Color.PaleGreen
                                     e.CellElement.ForeColor = Color.PaleGreen
                                 Case "Onaylanmadı"
                                     e.CellElement.BackColor = Color.Red
                                     e.CellElement.ForeColor = Color.Red
                                 Case "Bu Ay Yok"
                                     e.CellElement.BackColor = Color.DimGray
                                     e.CellElement.ForeColor = Color.DimGray
                             End Select
                         End If
                     Case "listeler_formbs"
                         If Turu2(4) = "H" Then
                             e.CellElement.BackColor = Color.DimGray
                             e.CellElement.ForeColor = Color.DimGray
                         Else
                             Turu = e.CellElement.RowInfo.Cells("listeler_formbs_aciklama").Value.ToString.Split("|")(0)
                             Select Case Turu
                                 Case "Onaylandı-Gönderildi"
                                     e.CellElement.BackColor = Color.Green
                                     e.CellElement.ForeColor = Color.Green
                                 Case "Onaylandı"
                                     e.CellElement.BackColor = Color.PaleGreen
                                     e.CellElement.ForeColor = Color.PaleGreen
                                 Case "Onaylanmadı"
                                     e.CellElement.BackColor = Color.Red
                                     e.CellElement.ForeColor = Color.Red
                                 Case "Bu Ay Yok"
                                     e.CellElement.BackColor = Color.DimGray
                                     e.CellElement.ForeColor = Color.DimGray
                             End Select
                         End If
                     Case "listeler_kdv2"
                         If Turu2(1) = "H" Then
                             e.CellElement.BackColor = Color.DimGray
                             e.CellElement.ForeColor = Color.DimGray
                         Else
                             Turu = e.CellElement.RowInfo.Cells("listeler_kdv2_aciklama").Value.ToString.Split("|")(0)
                             Select Case Turu
                                 Case "Onaylandı-Gönderildi"
                                     e.CellElement.BackColor = Color.Green
                                     e.CellElement.ForeColor = Color.Green
                                 Case "Onaylandı"
                                     e.CellElement.BackColor = Color.PaleGreen
                                     e.CellElement.ForeColor = Color.PaleGreen
                                 Case "Onaylanmadı"
                                     e.CellElement.BackColor = Color.Red
                                     e.CellElement.ForeColor = Color.Red
                                 Case "Bu Ay Yok"
                                     e.CellElement.BackColor = Color.DimGray
                                     e.CellElement.ForeColor = Color.DimGray
                             End Select
                         End If
                     Case "listeler_kdv1"
                         If Turu2(0) = "H" Then
                             e.CellElement.BackColor = Color.DimGray
                             e.CellElement.ForeColor = Color.DimGray
                         Else
                             Turu = e.CellElement.RowInfo.Cells("listeler_kdv1_aciklama").Value.ToString.Split("|")(0)
                             Select Case Turu
                                 Case "Onaylandı-Gönderildi"
                                     e.CellElement.BackColor = Color.Green
                                     e.CellElement.ForeColor = Color.Green
                                 Case "Onaylandı"
                                     e.CellElement.BackColor = Color.PaleGreen
                                     e.CellElement.ForeColor = Color.PaleGreen
                                 Case "Onaylanmadı"
                                     e.CellElement.BackColor = Color.Red
                                     e.CellElement.ForeColor = Color.Red
                                 Case "Bu Ay Yok"
                                     e.CellElement.BackColor = Color.DimGray
                                     e.CellElement.ForeColor = Color.DimGray
                             End Select
                         End If
                     Case "listeler_muh"
                         If Turu2(2) = "H" Then
                             e.CellElement.BackColor = Color.DimGray
                             e.CellElement.ForeColor = Color.DimGray
                         Else
                             If Not ucaylikdonem And muhdonem = "3" Then
                                 e.CellElement.BackColor = Color.DimGray
                                 e.CellElement.ForeColor = Color.DimGray
                             Else
 
                                 Turu = e.CellElement.RowInfo.Cells("listeler_muh_aciklama").Value.ToString.Split("|")(0)
                                 Select Case Turu
                                     Case "Onaylandı-Gönderildi"
                                         e.CellElement.BackColor = Color.Green
                                         e.CellElement.ForeColor = Color.Green
                                     Case "Onaylandı"
                                         e.CellElement.BackColor = Color.PaleGreen
                                         e.CellElement.ForeColor = Color.PaleGreen
                                     Case "Onaylanmadı"
                                         e.CellElement.BackColor = Color.Red
                                         e.CellElement.ForeColor = Color.Red
                                     Case "Bu Ay Yok"
                                         e.CellElement.BackColor = Color.DimGray
                                         e.CellElement.ForeColor = Color.DimGray
                                 End Select
                             End If
                         End If
                     Case "listeler_gecici"
                         If Turu2(5) = "H" Then
                             e.CellElement.BackColor = Color.DimGray
                             e.CellElement.ForeColor = Color.DimGray
                         Else
                             Turu = e.CellElement.RowInfo.Cells("listeler_gecici_aciklama").Value.ToString.Split("|")(0)
                             Select Case Turu
                                 Case "Onaylandı-Gönderildi"
                                     e.CellElement.BackColor = Color.Green
                                     e.CellElement.ForeColor = Color.Green
                                 Case "Onaylandı"
                                     e.CellElement.BackColor = Color.PaleGreen
                                     e.CellElement.ForeColor = Color.PaleGreen
                                 Case "Onaylanmadı"
                                     e.CellElement.BackColor = Color.Red
                                     e.CellElement.ForeColor = Color.Red
                                 Case "Bu Ay Yok"
                                     e.CellElement.BackColor = Color.DimGray
                                     e.CellElement.ForeColor = Color.DimGray
                             End Select
                         End If
                     Case "listeler_yillik"
                         If Turu2(6) = "H" Then
                             e.CellElement.BackColor = Color.DimGray
                             e.CellElement.ForeColor = Color.DimGray
                         Else
                             Turu = e.CellElement.RowInfo.Cells("listeler_yillik_aciklama").Value.ToString.Split("|")(0)
                             Select Case Turu
                                 Case "Onaylandı-Gönderildi"
                                     e.CellElement.BackColor = Color.Green
                                     e.CellElement.ForeColor = Color.Green
                                 Case "Onaylandı"
                                     e.CellElement.BackColor = Color.PaleGreen
                                     e.CellElement.ForeColor = Color.PaleGreen
                                 Case "Onaylanmadı"
                                     e.CellElement.BackColor = Color.Red
                                     e.CellElement.ForeColor = Color.Red
                                 Case "Bu Ay Yok"
                                     e.CellElement.BackColor = Color.DimGray
                                     e.CellElement.ForeColor = Color.DimGray
                             End Select
                         End If
                     Case "listeler_damga"
                         If Turu2(3) = "H" Then
                             e.CellElement.BackColor = Color.DimGray
                             e.CellElement.ForeColor = Color.DimGray
                         Else
                             Turu = e.CellElement.RowInfo.Cells("listeler_damga_aciklama").Value.ToString.Split("|")(0)
                             Select Case Turu
                                 Case "Onaylandı-Gönderildi"
                                     e.CellElement.BackColor = Color.Green
                                     e.CellElement.ForeColor = Color.Green
                                 Case "Onaylandı"
                                     e.CellElement.BackColor = Color.PaleGreen
                                     e.CellElement.ForeColor = Color.PaleGreen
                                 Case "Onaylanmadı"
                                     e.CellElement.BackColor = Color.Red
                                     e.CellElement.ForeColor = Color.Red
                                 Case "Bu Ay Yok"
                                     e.CellElement.BackColor = Color.DimGray
                                     e.CellElement.ForeColor = Color.DimGray
                             End Select
                         End If
                 End Select
             End If
         End If
     Catch ex As Exception
         MsgBox(ex.Message)
     End Try
 
 End Sub

 

0
Accepted
Dimitar
Telerik team
answered on 21 Mar 2017, 11:43 AM
Hi Tarik,

RadGridView uses UI Virtualization and this is why you need to reset the changed styles. You can see how I am resetting the styles in my previous post.

Do not hesitate to contact us if you have other questions.
 
Regards,
Dimitar
Telerik by Progress
Try our brand new, jQuery-free Angular 2 components built from ground-up which deliver the business app essential building blocks - a grid component, data visualization (charts) and form elements.
Tags
GridView
Asked by
Tarık
Top achievements
Rank 1
Answers by
Tarık
Top achievements
Rank 1
Dimitar
Telerik team
Share this question
or