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