[C#]
public class PreFilledColumn : Column
{
  public PreFilledColumn() : base(){}
  public PreFilledColumn(string name) : base(name){}
  public PreFilledColumn(string name, string fieldName) : base(name, fieldName){}
  public override bool OnCellClick(FlyGrid grid, NodeBase node, Point clickPt)
  {
    object value = this.GetValue(node);
    if (value == null || value == System.DBNull.Value || value.Equals(string.Empty))
    {
      //pre fill cell data
      this.SetValue(node, GetPreFilledData(node));
    }
    return base.OnCellClick(grid, node, clickPt);
  }
  private object GetPreFilledData(NodeBase node)
  {
    return DateTime.Today;
  }
}

[C#]
public class PreFilledColumn : Column
{
  public PreFilledColumn() : base(){}
  public PreFilledColumn(string name) : base(name){}
  public PreFilledColumn(string name, string fieldName) : base(name, fieldName){}
  protected override void OnEditorSetup(TextBox editor)
  {
     base.OnEditorSetup (editor);
     if (editor.Text == string.Empty)
     {
       //pre fill data in the inplace editor
       editor.Text = GetPreFilledData();
     }
   }
   private string GetPreFilledData()
   {
     return DateTime.Today.ToString();
   }
}

[VB.Net]
Public Class PreFilledColumn
  Inherits Column

  Public Sub New(ByVal name As String)
    MyBase.New(name)
  End Sub
  
  Public Sub New(ByVal name As String, ByVal fieldName As String)
    MyBase.New(name, fieldName)
  End Sub

  Public Overrides Function OnCellClick(ByVal grid As FlyGrid, ByVal node As NodeBase, ByVal clickPt As Point) As Boolean
    Dim _value As Object = MyBase.GetValue(node)
    If (_value Is Nothing OrElse _value = DBNull.Value OrElse _value.Equals(String.Empty)) Then
      MyBase.SetValue(node, GetPreFilledData(node))
    Else
      Return MyBase.OnCellClick(grid, node, clickPt)
    End If
  End Function

  Private Function GetPreFilledData(ByVal node As NodeBase) As Object
    Return Date.Today
  End Function

End Class

[VB.Net]
Public Class PreFilledColumn
  Inherits Column

  Public Sub New(ByVal name As String)
    MyBase.New(name)
  End Sub
  
  Public Sub New(ByVal name As String, ByVal fieldName As String)
    MyBase.New(name, fieldName)
  End Sub

  Protected Overrides Sub OnEditorSetup(ByVal editor As TextBox)
    MyBase.OnEditorSetup(editor)
    If (editor.[Text] = String.Empty) Then
      editor.[Text] = GetPreFilledData
    End If
  End Sub

  Private Function GetPreFilledData() As String
    Dim _dateTime As Date = Date.Today
    Return _dateTime.ToString
  End Function

End Class