Hi,
I am facing some issues in datagrid checkbox column.
1. I have crated master template an having a checkbox column e.g and it has some child template as well which i create dynamically
GridViewCheckBoxColumn1.EnableExpressionEditor = False
GridViewCheckBoxColumn1.FieldName = "DeleteItem"
GridViewCheckBoxColumn1.HeaderText = "Delete"
GridViewCheckBoxColumn1.MinWidth = 20
GridViewCheckBoxColumn1.Name = "radchkDelete"
GridViewTextBoxColumn4.EnableExpressionEditor = False
It is allowing me to check only one checkbox(row) at a time and when i am trying to check another checkbox(row) it is unchecking my previous checked column..why this..?
2.I am checking one checkbox and trying to scroll horizontally ..it is clearing my checked column...why this..?
3.I am using some events like
code:
Private Sub rdgrdvSeachAddUpt_CellEditorInitialized(ByVal sender As Object, ByVal e As Telerik.WinControls.UI.GridViewCellEventArgs) Handles rdgrdvSeachAddUpt.CellEditorInitialized
Dim lobjMessage As New Message
Try
Dim editor = TryCast(e.ActiveEditor, RadDropDownListEditor)
If editor IsNot Nothing Then
Dim editorElement = TryCast(editor.EditorElement, RadDropDownListEditorElement)
If editorElement IsNot Nothing Then
If e.Column.Name = "radcmbCriteriaType" Then
AddHandler editorElement.SelectedIndexChanged, AddressOf editorElement_SelectedIndexChanged
End If
End If
End If
Catch objException As Exception
Logger.Log(objException, lobjMessage)
UIHelper.ShowMessage(lobjMessage)
Finally
lobjMessage = Nothing
End Try
End Sub
===============
Private Sub rdgrdvSeachAddUpt_CellValueChanged(ByVal sender As Object, ByVal e As Telerik.WinControls.UI.GridViewCellEventArgs) handles rdgrdvSeachAddUpt.CellValueChanged
Dim lobjMessage As New Message
Dim gridColNameCriteriaType As String = "radcmbCriteriaType"
Try
If e.Column.Name = gridColNameCriteriaType Then
If CInt(e.Row.Cells(gridColNameCriteriaType).Value) = CInt(enumCriteria.Morphology) Then
e.Row.Cells("radcmbDiagnosis").ReadOnly = False
e.Row.Cells("radcmbInter").ReadOnly = False
e.Row.Cells("radcmbCompaOpr").ReadOnly = True
e.Row.Cells("raddblCompValue").ReadOnly = True
e.Row.Cells("radcmbGender").ReadOnly = True
e.Row.Cells("raddblMaxAgeMonth").ReadOnly = True
e.Row.Cells("raddblMaxAgeYear").ReadOnly = True
e.Row.Cells("raddblMaxValue").ReadOnly = True
e.Row.Cells("cmbdblMinValue").ReadOnly = True
e.Row.Cells("radcmbParam").ReadOnly = True
e.Row.Cells("radcmbVisitType").ReadOnly = True
e.Row.Cells("raddblMinAge").ReadOnly = True
e.Row.Cells("raddblMinAgeMonth").ReadOnly = True
e.Row.Cells("radtxtItemStatus").ReadOnly = True
''To set nothing
e.Row.Cells("radcmbCompaOpr").Value = Nothing
e.Row.Cells("raddblCompValue").Value = Nothing
e.Row.Cells("radcmbGender").Value = Nothing
e.Row.Cells("raddblMaxAgeMonth").Value = Nothing
e.Row.Cells("raddblMaxAgeYear").Value = Nothing
e.Row.Cells("raddblMaxValue").Value = Nothing
e.Row.Cells("cmbdblMinValue").Value = Nothing
e.Row.Cells("radcmbParam").Value = Nothing
e.Row.Cells("radcmbVisitType").Value = Nothing
e.Row.Cells("raddblMinAge").Value = Nothing
e.Row.Cells("raddblMinAgeMonth").Value = Nothing
' e.Row.Cells("radtxtItemStatus").Value = Nothing
ElseIf CInt(e.Row.Cells(gridColNameCriteriaType).Value) = CInt(enumCriteria.BaselineRange) OrElse _
CInt(e.Row.Cells(gridColNameCriteriaType).Value) = CInt(enumCriteria.Range) Then
e.Row.Cells("radcmbDiagnosis").ReadOnly = False
e.Row.Cells("radcmbInter").ReadOnly = False
e.Row.Cells("radcmbCompaOpr").ReadOnly = True
e.Row.Cells("raddblCompValue").ReadOnly = True
e.Row.Cells("radcmbGender").ReadOnly = False
e.Row.Cells("raddblMaxAgeMonth").ReadOnly = False
e.Row.Cells("raddblMaxAgeYear").ReadOnly = False
e.Row.Cells("raddblMaxValue").ReadOnly = False
e.Row.Cells("cmbdblMinValue").ReadOnly = False
e.Row.Cells("radcmbParam").ReadOnly = False
e.Row.Cells("radcmbVisitType").ReadOnly = False
e.Row.Cells("raddblMinAge").ReadOnly = False
e.Row.Cells("raddblMinAgeMonth").ReadOnly = False
e.Row.Cells("radtxtItemStatus").ReadOnly = True
e.Row.Cells("radcmbCompaOpr").Value = Nothing
e.Row.Cells("raddblCompValue").Value = Nothing
ElseIf CInt(e.Row.Cells(gridColNameCriteriaType).Value) = CInt(enumCriteria.RangeAndBaselineComparison) Then
e.Row.Cells("radcmbDiagnosis").ReadOnly = False
e.Row.Cells("radcmbInter").ReadOnly = False
e.Row.Cells("radcmbCompaOpr").ReadOnly = False
e.Row.Cells("raddblCompValue").ReadOnly = False
e.Row.Cells("radcmbGender").ReadOnly = False
e.Row.Cells("raddblMaxAgeMonth").ReadOnly = False
e.Row.Cells("raddblMaxAgeYear").ReadOnly = False
e.Row.Cells("raddblMaxValue").ReadOnly = False
e.Row.Cells("cmbdblMinValue").ReadOnly = False
e.Row.Cells("radcmbParam").ReadOnly = False
e.Row.Cells("radcmbVisitType").ReadOnly = False
e.Row.Cells("raddblMinAge").ReadOnly = False
e.Row.Cells("raddblMinAgeMonth").ReadOnly = False
e.Row.Cells("radtxtItemStatus").ReadOnly = True
End If
End If
Catch objException As Exception
Logger.Log(objException, lobjMessage)
UIHelper.ShowMessage(lobjMessage)
Finally
lobjMessage = Nothing
End Try
End Sub
====================
Private Sub rdgrdvSeachAddUpt_UserDeletingRow(ByVal sender As Object, ByVal e As Telerik.WinControls.UI.GridViewRowCancelEventArgs) Handles rdgrdvSeachAddUpt.UserDeletingRow
Dim lobjMessage As New Message
Try
If String.IsNullOrEmpty(Me.rdgrdvSeachAddUpt.CurrentRow.Cells(1).Value.ToString) Then
Else
e.Cancel = True
End If
Catch objEx As Exception
Logger.Log(objEx, lobjMessage)
UIHelper.ShowMessage(lobjMessage)
Finally
lobjMessage = Nothing
End Try
End Sub
====================
Can you please help me in point#1,2....
I am facing some issues in datagrid checkbox column.
1. I have crated master template an having a checkbox column e.g and it has some child template as well which i create dynamically
GridViewCheckBoxColumn1.EnableExpressionEditor = False
GridViewCheckBoxColumn1.FieldName = "DeleteItem"
GridViewCheckBoxColumn1.HeaderText = "Delete"
GridViewCheckBoxColumn1.MinWidth = 20
GridViewCheckBoxColumn1.Name = "radchkDelete"
GridViewTextBoxColumn4.EnableExpressionEditor = False
It is allowing me to check only one checkbox(row) at a time and when i am trying to check another checkbox(row) it is unchecking my previous checked column..why this..?
2.I am checking one checkbox and trying to scroll horizontally ..it is clearing my checked column...why this..?
3.I am using some events like
code:
Private Sub rdgrdvSeachAddUpt_CellEditorInitialized(ByVal sender As Object, ByVal e As Telerik.WinControls.UI.GridViewCellEventArgs) Handles rdgrdvSeachAddUpt.CellEditorInitialized
Dim lobjMessage As New Message
Try
Dim editor = TryCast(e.ActiveEditor, RadDropDownListEditor)
If editor IsNot Nothing Then
Dim editorElement = TryCast(editor.EditorElement, RadDropDownListEditorElement)
If editorElement IsNot Nothing Then
If e.Column.Name = "radcmbCriteriaType" Then
AddHandler editorElement.SelectedIndexChanged, AddressOf editorElement_SelectedIndexChanged
End If
End If
End If
Catch objException As Exception
Logger.Log(objException, lobjMessage)
UIHelper.ShowMessage(lobjMessage)
Finally
lobjMessage = Nothing
End Try
End Sub
===============
Private Sub rdgrdvSeachAddUpt_CellValueChanged(ByVal sender As Object, ByVal e As Telerik.WinControls.UI.GridViewCellEventArgs) handles rdgrdvSeachAddUpt.CellValueChanged
Dim lobjMessage As New Message
Dim gridColNameCriteriaType As String = "radcmbCriteriaType"
Try
If e.Column.Name = gridColNameCriteriaType Then
If CInt(e.Row.Cells(gridColNameCriteriaType).Value) = CInt(enumCriteria.Morphology) Then
e.Row.Cells("radcmbDiagnosis").ReadOnly = False
e.Row.Cells("radcmbInter").ReadOnly = False
e.Row.Cells("radcmbCompaOpr").ReadOnly = True
e.Row.Cells("raddblCompValue").ReadOnly = True
e.Row.Cells("radcmbGender").ReadOnly = True
e.Row.Cells("raddblMaxAgeMonth").ReadOnly = True
e.Row.Cells("raddblMaxAgeYear").ReadOnly = True
e.Row.Cells("raddblMaxValue").ReadOnly = True
e.Row.Cells("cmbdblMinValue").ReadOnly = True
e.Row.Cells("radcmbParam").ReadOnly = True
e.Row.Cells("radcmbVisitType").ReadOnly = True
e.Row.Cells("raddblMinAge").ReadOnly = True
e.Row.Cells("raddblMinAgeMonth").ReadOnly = True
e.Row.Cells("radtxtItemStatus").ReadOnly = True
''To set nothing
e.Row.Cells("radcmbCompaOpr").Value = Nothing
e.Row.Cells("raddblCompValue").Value = Nothing
e.Row.Cells("radcmbGender").Value = Nothing
e.Row.Cells("raddblMaxAgeMonth").Value = Nothing
e.Row.Cells("raddblMaxAgeYear").Value = Nothing
e.Row.Cells("raddblMaxValue").Value = Nothing
e.Row.Cells("cmbdblMinValue").Value = Nothing
e.Row.Cells("radcmbParam").Value = Nothing
e.Row.Cells("radcmbVisitType").Value = Nothing
e.Row.Cells("raddblMinAge").Value = Nothing
e.Row.Cells("raddblMinAgeMonth").Value = Nothing
' e.Row.Cells("radtxtItemStatus").Value = Nothing
ElseIf CInt(e.Row.Cells(gridColNameCriteriaType).Value) = CInt(enumCriteria.BaselineRange) OrElse _
CInt(e.Row.Cells(gridColNameCriteriaType).Value) = CInt(enumCriteria.Range) Then
e.Row.Cells("radcmbDiagnosis").ReadOnly = False
e.Row.Cells("radcmbInter").ReadOnly = False
e.Row.Cells("radcmbCompaOpr").ReadOnly = True
e.Row.Cells("raddblCompValue").ReadOnly = True
e.Row.Cells("radcmbGender").ReadOnly = False
e.Row.Cells("raddblMaxAgeMonth").ReadOnly = False
e.Row.Cells("raddblMaxAgeYear").ReadOnly = False
e.Row.Cells("raddblMaxValue").ReadOnly = False
e.Row.Cells("cmbdblMinValue").ReadOnly = False
e.Row.Cells("radcmbParam").ReadOnly = False
e.Row.Cells("radcmbVisitType").ReadOnly = False
e.Row.Cells("raddblMinAge").ReadOnly = False
e.Row.Cells("raddblMinAgeMonth").ReadOnly = False
e.Row.Cells("radtxtItemStatus").ReadOnly = True
e.Row.Cells("radcmbCompaOpr").Value = Nothing
e.Row.Cells("raddblCompValue").Value = Nothing
ElseIf CInt(e.Row.Cells(gridColNameCriteriaType).Value) = CInt(enumCriteria.RangeAndBaselineComparison) Then
e.Row.Cells("radcmbDiagnosis").ReadOnly = False
e.Row.Cells("radcmbInter").ReadOnly = False
e.Row.Cells("radcmbCompaOpr").ReadOnly = False
e.Row.Cells("raddblCompValue").ReadOnly = False
e.Row.Cells("radcmbGender").ReadOnly = False
e.Row.Cells("raddblMaxAgeMonth").ReadOnly = False
e.Row.Cells("raddblMaxAgeYear").ReadOnly = False
e.Row.Cells("raddblMaxValue").ReadOnly = False
e.Row.Cells("cmbdblMinValue").ReadOnly = False
e.Row.Cells("radcmbParam").ReadOnly = False
e.Row.Cells("radcmbVisitType").ReadOnly = False
e.Row.Cells("raddblMinAge").ReadOnly = False
e.Row.Cells("raddblMinAgeMonth").ReadOnly = False
e.Row.Cells("radtxtItemStatus").ReadOnly = True
End If
End If
Catch objException As Exception
Logger.Log(objException, lobjMessage)
UIHelper.ShowMessage(lobjMessage)
Finally
lobjMessage = Nothing
End Try
End Sub
====================
Private Sub rdgrdvSeachAddUpt_UserDeletingRow(ByVal sender As Object, ByVal e As Telerik.WinControls.UI.GridViewRowCancelEventArgs) Handles rdgrdvSeachAddUpt.UserDeletingRow
Dim lobjMessage As New Message
Try
If String.IsNullOrEmpty(Me.rdgrdvSeachAddUpt.CurrentRow.Cells(1).Value.ToString) Then
Else
e.Cancel = True
End If
Catch objEx As Exception
Logger.Log(objEx, lobjMessage)
UIHelper.ShowMessage(lobjMessage)
Finally
lobjMessage = Nothing
End Try
End Sub
====================
Can you please help me in point#1,2....