or

| Private newRow As Telerik.WinControls.UI.GridViewDataRowInfo |
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.Add Then
newRow =
TryCast(e.NewItems(0), Telerik.WinControls.UI.GridViewDataRowInfo)
End If
End Sub
| Private Sub RadGridView1_CellEndEdit(ByVal sender As System.Object, ByVal e As Telerik.WinControls.UI.GridViewCellEventArgs) Handles RadGridView1.CellEndEdit |
| If e.RowIndex >= 0 And e.RowIndex < RadGridView1.Rows.Count And e.ColumnIndex >= 0 And e.ColumnIndex < RadGridView1.Columns.Count Then |
| If RadGridView1.Columns(e.ColumnIndex).GetType.Name = "GridViewMaskBoxColumn" Then |
| Dim cell As Telerik.WinControls.UI.GridViewCellInfo = RadGridView1.Rows(e.RowIndex).Cells(e.ColumnIndex) |
| cell.Value = cell.Value.ToString().Replace("."c, ","c) |
| End If |
| Else |
| If newRow IsNot Nothing Then |
| For Each cella As Telerik.WinControls.UI.GridViewCellInfo In newRow.Cells |
| If cella.Value IsNot Nothing And cella.ColumnInfo.GetType.Name = "GridViewMaskBoxColumn" Then |
| cella.Value = cella.Value.ToString().Replace("."c, ","c) |
| End If |
| Next |
| End If |
| End If |
| End Sub |
| Private Sub RadGridView1_CreateRow(ByVal sender As System.Object, ByVal e As Telerik.WinControls.UI.GridViewCreateRowEventArgs) Handles RadGridView1.CreateRow |
| For i As Int32 = 0 To e.RowInfo.Cells.Count - 1 |
| If IsDBNull(e.RowInfo.Cells(i).Value) Then |
| If RadGridView1.Columns(i).GetType.Name = "GridViewMaskBoxColumn" Then |
| Dim oszlop As Telerik.WinControls.UI.GridViewMaskBoxColumn |
| oszlop = TryCast(RadGridView1.Columns(i), Telerik.WinControls.UI.GridViewMaskBoxColumn) |
| e.RowInfo.Cells(i).Value = "0,00" |
| End If |
| Else |
| If e.RowInfo.Cells(i).Value = "" Then |
| If RadGridView1.Columns(i).GetType.Name = "GridViewMaskBoxColumn" Then |
| Dim oszlop As Telerik.WinControls.UI.GridViewMaskBoxColumn |
| oszlop = TryCast(RadGridView1.Columns(i), Telerik.WinControls.UI.GridViewMaskBoxColumn) |
| e.RowInfo.Cells(i).Value = "0,00" |
| End If |
| End If |
| End If |
| Next |
| End Sub |
FilterExpression filter = new FilterExpression(); |
| filter.Predicates.Add(FilterExpression.BinaryOperation.AND, |
| GridKnownFunction.Contains, |
| "@FilterEditor1"); |
| filter.Parameters.Add("@FilterEditor1", "rgvKeyword.CurrentRow.Cells[0].Value"); |
| rgvEmails.Columns["tk_name"].Filter = filter; |
| public AListControl() |
| { |
| InitializeComponent(); |
| // Create dummy BListControl |
| BListControl bListControl = new BListControl(); |
| // Add the B's MasterGridViewTemplate to A as a ChildGridViewTemplates |
| this.radGridViewA.MasterGridViewTemplate.ChildGridViewTemplates.Add( |
| bListControl.radGridViewB.MasterGridViewTemplate); |
| // Add the relation |
| GridViewRelation relation = new GridViewRelation(this.radGridViewA.MasterGridViewTemplate); |
| relation.ChildTemplate = bListControl.radGridViewB.MasterGridViewTemplate; |
| relation.RelationName = "A2B"; |
| relation.ParentColumnNames.Add("Id"); |
| relation.ChildColumnNames.Add("B.AId"); |
| this.radGridViewA.Relations.Add(relation); |
| } |

RadLabel5.Text =
"Selected S.No :" & e.Row.Cells("serialno").Value & " - " & e.Row.Cells("name").Value.ToString