How to update the cell content on AddNewRecord in WinForms GridGroupingControl?

// Form()
// Hook the required event.
this.gridGroupingControl1.QueryCellStyleInfo += new GridTableCellStyleInfoEventHandler(gridGroupingControl1_QueryCellStyleInfo);
 
// Specify the criteria for updating.
void gridGroupingControl1_QueryCellStyleInfo(object sender, GridTableCellStyleInfoEventArgs e)
{
    double temp = 0.0;
    GridCurrentCell cc = this.gridGroupingControl1.TableControl.CurrentCell;
    if (e.TableCellIdentity.TableCellType == GridTableCellType.AddNewRecordFieldCell && e.TableCellIdentity.Column.Name == "SampleData")
    {
        Element el = e.TableCellIdentity.DisplayElement;
        Record r = el.GetRecord();
        object ACol = r.GetValue("CategoryName");
                
        //The cellvalue to be computed and updated value.
        if (r != null && ACol != null && (double.TryParse(ACol.ToString(), out temp)))
        {
            object ob = (temp * 0.4).ToString();
            e.Style.CellValue = ob.ToString();
        }
    }
}

' Form()
' Hook the required event.
AddHandler gridGroupingControl1.QueryCellStyleInfo, AddressOf gridGroupingControl1_QueryCellStyleInfo
 
' Specify the criteria for updating.
Private Sub gridGroupingControl1_QueryCellStyleInfo(ByVal sender As Object, ByVal e As GridTableCellStyleInfoEventArgs)
   Dim temp As Double = 0.0
   Dim cc As GridCurrentCell = Me.gridGroupingControl1.TableControl.CurrentCell
   If e.TableCellIdentity.TableCellType = GridTableCellType.AddNewRecordFieldCell AndAlso e.TableCellIdentity.Column.Name = "SampleData" Then
     Dim el As Element = e.TableCellIdentity.DisplayElement
     Dim r As Record = el.GetRecord()
     Dim ACol As Object = r.GetValue("CategoryName")
 
     'The cellvalue to be computed and updated value.
     If r IsNot Nothing AndAlso ACol IsNot Nothing AndAlso (Double.TryParse(ACol.ToString(), temp)) Then
       Dim ob As Object = (temp * 0.4).ToString()
       e.Style.CellValue = ob.ToString()
     End If
   End If
End Sub