or
| gridViewDateTimeColumn1.DataEditFormatString = "{0:D}"; |
| gridViewDateTimeColumn1.DataType = typeof(System.DateTime); |
| gridViewDateTimeColumn1.FieldAlias = "DateBegin"; |
| gridViewDateTimeColumn1.FieldName = "DateBegin"; |
| gridViewDateTimeColumn1.HeaderText = "DateBegin"; |
| gridViewDateTimeColumn1.IsAutoGenerated = true; |
| gridViewDateTimeColumn1.UniqueName = "DateBegin"; |
| gridViewDateTimeColumn1.Width = 140; |
| void OctopusGridView_GroupSummaryEvaluate(object sender, GroupSummaryEvaluationEventArgs e) |
| { |
| string suff = String.Concat(" (", e.Group.RowCount.ToString(), ")"); |
| if(e.FormatString.EndsWith(";")) |
| { |
| e.FormatString = e.FormatString.Substring(0, e.FormatString.Length - 1); |
| } |
| if (!e.FormatString.EndsWith(suff)) |
| { |
| e.FormatString = String.Concat(e.FormatString, suff); |
| } |
| } |

| 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 |