public int ListSourceRowIndex { get; }

Public ReadOnly Property ListSourceRowIndex As Integer

using DevExpress.XtraGrid.Views.Base;
using DevExpress.XtraGrid.Views.Grid;
using DevExpress.XtraGrid.Columns;

private void Form1_Load(object sender, EventArgs e) {
    // ...
    gridControl1.ForceInitialize();

    // Create an unbound column.
    GridColumn unboundColumn = gridView1.Columns.AddField("Total");
    unboundColumn.VisibleIndex = gridView1.Columns.Count;
    unboundColumn.UnboundDataType = typeof(decimal);
    // Disable column edit operations.
    unboundColumn.OptionsColumn.AllowEdit = false;
    // Specify format settings.
    unboundColumn.DisplayFormat.FormatType = DevExpress.Utils.FormatType.Numeric;
    unboundColumn.DisplayFormat.FormatString = "c";
    // Customize appearance settings.
    unboundColumn.AppearanceCell.BackColor = Color.FromArgb(179, 226, 221);
}

// Return the total amount for a specific row.
decimal getTotalValue(GridView view, int listSourceRowIndex) {
    decimal unitPrice = Convert.ToDecimal(view.GetListSourceRowCellValue(listSourceRowIndex, "UnitPrice"));
    decimal quantity = Convert.ToDecimal(view.GetListSourceRowCellValue(listSourceRowIndex, "Quantity"));
    decimal discount = Convert.ToDecimal(view.GetListSourceRowCellValue(listSourceRowIndex, "Discount"));
    return unitPrice * quantity * (1 - discount);
}

// Specify data for the Total column.
private void gridView1_CustomUnboundColumnData(object sender, CustomColumnDataEventArgs e) {
   GridView view = sender as GridView;
   if (e.Column.FieldName == "Total" && e.IsGetData) e.Value = 
     getTotalValue(view, e.ListSourceRowIndex);
}

Imports DevExpress.XtraGrid.Views.Base
Imports DevExpress.XtraGrid.Views.Grid
Imports DevExpress.XtraGrid.Columns

Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
    ' ...
    GridControl1.ForceInitialize()

    ' Create an unbound column.
    Dim unboundColumn As GridColumn = GridView1.Columns.AddField("Total")
    unboundColumn.VisibleIndex = GridView1.Columns.Count
    unboundColumn.UnboundDataType = GetType(Decimal)
    ' Disable column edit operations.
    unboundColumn.OptionsColumn.AllowEdit = False
    ' Specify format settings.
    unboundColumn.DisplayFormat.FormatType = DevExpress.Utils.FormatType.Numeric
    unboundColumn.DisplayFormat.FormatString = "c"
    ' Customize appearance settings.
    unboundColumn.AppearanceCell.BackColor = Color.FromArgb(179, 226, 221)

End Sub

' Return the total amount for a specific row.
Private Function getTotalValue(view As GridView, listSourceRowIndex As Integer) As Decimal
    Dim unitPrice As Decimal = Convert.ToDecimal(view.GetListSourceRowCellValue(listSourceRowIndex, "UnitPrice"))
    Dim quantity As Decimal = Convert.ToDecimal(view.GetListSourceRowCellValue(listSourceRowIndex, "Quantity"))
    Dim discount As Decimal = Convert.ToDecimal(view.GetListSourceRowCellValue(listSourceRowIndex, "Discount"))
    Return unitPrice * quantity * (1 - discount)
End Function

' Specify data for the Total column.
Private Sub GridView1_CustomUnboundColumnData(ByVal sender As Object,
ByVal e As CustomColumnDataEventArgs) Handles GridView1.CustomUnboundColumnData
    Dim view As GridView = TryCast(sender, GridView)
    If e.Column.FieldName = "Total" AndAlso e.IsGetData Then
        e.Value = getTotalValue(view, e.ListSourceRowIndex)
    End If
End Sub

{
    if (unboundValues.ContainsKey(e.ListSourceRowIndex)) return unboundValues[e.ListSourceRowIndex];
    unboundValues.Add(e.ListSourceRowIndex, "Not Loaded");

if(e.IsGetData)
    e.Value = IsRowSelected(View.GetRowHandle(e.ListSourceRowIndex));
else

if (e.IsGetData)
    e.Value = e.ListSourceRowIndex == SelectedDataSourceRowIndex;
if (e.IsSetData)

if (e.IsGetData)
    e.Value = unboundData[e.ListSourceRowIndex];
else if (e.IsSetData)

if(e.IsGetData)
    e.Value = Convert.ToDecimal(view.GetListSourceRowCellValue(e.ListSourceRowIndex, colUnitPrice)) *
        Convert.ToInt32(view.GetListSourceRowCellValue(e.ListSourceRowIndex, colUnitsInStock));

Private Function GetSummaryValue(ByVal e As DevExpress.XtraGrid.Views.Base.CustomColumnDataEventArgs) As Object
    If unboundValues.ContainsKey(e.ListSourceRowIndex) Then
        Return unboundValues(e.ListSourceRowIndex)

If e.IsGetData Then
    e.Value = IsRowSelected(View.GetRowHandle(e.ListSourceRowIndex))
Else

If e.IsGetData Then
    e.Value = e.ListSourceRowIndex = SelectedDataSourceRowIndex
End If

If e.IsGetData Then
    e.Value = unboundData(e.ListSourceRowIndex)
ElseIf e.IsSetData Then

If e.IsGetData Then
    e.Value = e.ListSourceRowIndex
End If