using DevExpress.XtraGrid.Views.Grid;

private void gridView1_CustomRowCellEdit(object sender, CustomRowCellEditEventArgs e) {
   if (e.Column.FieldName == "FieldName") return;
   GridView gv = sender as GridView;
   string fieldName = gv.GetRowCellValue(e.RowHandle, gv.Columns["FieldName"]).ToString();
   switch (fieldName) {
      case "Population":
         e.RepositoryItem = repositoryItemSpinEdit1;
         break;
      case "Country":
         e.RepositoryItem = repositoryItemComboBox1;
         break;
      case "Capital":
         e.RepositoryItem = repositoryItemCheckEdit1;
         break;
   }           
}

Imports DevExpress.XtraGrid.Views.Grid

Private Sub GridView1_CustomRowCellEdit(ByVal sender As Object, _
  ByVal e As CustomRowCellEditEventArgs) _
  Handles GridView1.CustomRowCellEdit
   If e.Column.FieldName = "FieldName" Then Return
   Dim Gv As GridView = sender
   Dim FieldName As String = Gv.GetRowCellValue(e.RowHandle, _
     gv.Columns("FieldName")).ToString()
   Select Case (FieldName)
      Case "Population"
         e.RepositoryItem = repositoryItemSpinEdit1
      Case "Country"
         e.RepositoryItem = repositoryItemComboBox1
      Case "Capital"
         e.RepositoryItem = repositoryItemCheckEdit1
   End Select
End Sub

using DevExpress.XtraGrid.Views.Grid;

private void gridView1_CustomRowCellEdit(object sender, CustomRowCellEditEventArgs e) {
   if (e.Column.FieldName != "ShipCity") return;
   GridView gv = sender as GridView;
   string fieldValue = gv.GetRowCellValue(e.RowHandle,gv.Columns["ShipCountry"]).ToString();
   switch (fieldValue) {
      case "France":
         e.RepositoryItem = repositoryItemComboBox1;
         break;
      case "USA":
         e.RepositoryItem = repositoryItemComboBox2;
         break;
   }
}

Imports DevExpress.XtraGrid.Views.Grid

Private Sub GridView1_CustomRowCellEdit(ByVal sender As Object, _
  ByVal e As CustomRowCellEditEventArgs) Handles GridView1.CustomRowCellEdit
    If e.Column.FieldName <> "ShipCity" Then Return
    Dim Gv As GridView = sender
    Dim FieldValue As String = Gv.GetRowCellValue(e.RowHandle, _
      gv.Columns("ShipCountry")).ToString()
    Select Case (FieldValue)
        Case "France"
        e.RepositoryItem = repositoryItemComboBox1;
        Case "USA"
        e.RepositoryItem = repositoryItemComboBox2;
    End Select
End Sub