[Browsable(false)]
public virtual Type ColumnType { get; }

<Browsable(False)>
Public Overridable ReadOnly Property ColumnType As Type

gridView1.CustomDrawCell += GridView1_CustomDrawCell;

private void GridView1_CustomDrawCell(object sender, RowCellCustomDrawEventArgs e)
{
    GridView view = sender as GridView;
    if (column.ColumnType == typeof(DateTime))
    {
        e.Cache.FillRectangle(Color.Salmon, e.Bounds);
        e.Appearance.DrawString(e.Cache, e.DisplayText, e.Bounds);
        e.Handled = true;
    }
}

Private gridView1.CustomDrawCell += AddressOf GridView1_CustomDrawCell

Private Sub GridView1_CustomDrawCell(ByVal sender As Object, ByVal e As RowCellCustomDrawEventArgs)
    Dim view As GridView = TryCast(sender, GridView)
    If column.ColumnType Is GetType(Date) Then
        e.Cache.FillRectangle(Color.Salmon, e.Bounds)
        e.Appearance.DrawString(e.Cache, e.DisplayText, e.Bounds)
        e.Handled = True
    End If
End Sub

{
    if (column.ColumnType == typeof(DateTime) && strVal.Length > 0)
    {

foreach (GridColumn c in gridView.Columns)
    dTable.Columns.Add(c.FieldName, c.ColumnType);
for (int r = 0; r < gridView.RowCount; r++)

Protected Overrides Function CreateAutoFilterCriterion(ByVal column As DevExpress.XtraGrid.Columns.GridColumn, ByVal condition As DevExpress.XtraGrid.Columns.AutoFilterCondition, ByVal _value As Object, ByVal strVal As String) As DevExpress.Data.Filtering.CriteriaOperator
    If column.ColumnType Is GetType(Date) AndAlso strVal.Length > 0 Then
        Dim type As BinaryOperatorType = BinaryOperatorType.Equal

For Each c As GridColumn In gridView.Columns
    dTable.Columns.Add(c.FieldName, c.ColumnType)
Next c