Компонент с привязкой к данным SelectedItem не работает

Question

Я пытаюсь связать комбо с коллекцией объектов:

    Dim t As New TradeOrderStatus()
    Dim ts As List(Of TradeOrderStatus) = t.GetStatuses

    With Me.cboTradeStatus
        .DataSource = ts
        .SelectedItem = Nothing
    End With

Это отлично работает, и я вижу список элементов в комбо. Однако, когда я пытаюсь установить SelectedItem в комбо на один из пунктов:

Me.cboTradeStatus.SelectedItem = Trade.TradeStatus

ничего не происходит. Trade.TradeStatus является экземпляром класса TradeOrderStatus, и все необходимые статусы отображаются в раскрывающемся списке. SelectedItem остается как Nothing (или как первый элемент списка, если я опускаю строку .SelectedItem = Nothing в коде привязки).

Debug.Print(CStr(Me.cboTradeStatus.Items.Contains(.TradeStatus)))

также возвращает false. Кто-нибудь может помочь?

Answer 1

Trade.TradeStatus является экземпляром класса TradeOrderStatus

Вы упоминаете, что это класс; это такой же экземпляр как один из тех, что в списке данных? Нужно найти совпадение равенства. В качестве альтернативы вы можете переопределить Equals (и GetHashCode() - всегда синхронизировать оба), чтобы достичь одного и того же.

---

(редактировать)

Самый простой способ исправить это - привязка к SelectedValue; с "полным" примером (ниже), что-то вроде:

cbo.DisplayMember = cbo.ValueMember = "Name";    
...
btn.Click += delegate { cbo.SelectedValue = GetCurrentStatus().Name; };

(редактировать)

Вот пример на C # (извините, у меня слабый VB-фу) обеспечения пользовательского равенства различных статусов - обратите внимание на «раскомментируемое исправление»:

using System.Windows.Forms;
using System.Collections.Generic;

class MyStatus {
    public MyStatus(string name) { Name = name; }
    public string Name { get; private set; }
    public override string ToString() {return Name; }
    /* uncomment to fix
    public override bool Equals(object obj) {
        MyStatus other = obj as MyStatus;
        return other != null && other.Name == this.Name;
    }
    public override int GetHashCode() {return Name.GetHashCode(); }
    */
}
static class Program {
    static void Main() {
        ComboBox cbo = new ComboBox();
        cbo.DataSource = GetStatuses();
        Button btn = new Button();
        btn.Click += delegate { cbo.SelectedItem = GetCurrentStatus(); };
        btn.Text = "Set Status";
        btn.Dock = DockStyle.Bottom;
        Application.Run(new Form { Controls = { cbo, btn } });
    }
    static List<MyStatus> GetStatuses() {
        List<MyStatus> stats = new List<MyStatus>();
        stats.Add(new MyStatus("Open"));
        stats.Add(new MyStatus("Pending"));
        stats.Add(new MyStatus("Closed"));
        return stats;
    }
    static MyStatus GetCurrentStatus() {
        return new MyStatus("Closed");
    }
}

Answer 2

Когда я использую решение GetHashCode () выше в C #, я получаю переполнение стека из бесконечного цикла:

public override int GetHashCode() 
{ 
    return this.GetHashCode(); 
} 

Вы хотели поставить вместо:

return this.Id;

Когда я сделал это изменение, оно сработало. Это было действительно больно, поэтому вот код на C # для тех, кто имеет нулевой DataSource и должен переопределить методы GetHashCode и Equals в ComboBox:

using System.Windows.Forms;

namespace Ace.Docs.UI.ComboBoxes
{
    internal class DisplayInfo : ComboBox
    {
        #region Properties (2) 

        public string DisplayName { get; set; }

        public int Id { get; set; }

        #endregion Properties 

        #region Methods (2) 

        // Public Methods (2) 

        public override bool Equals(object obj)
        {
            // Check for null values and compare run-time types. 
            if (obj == null | (!object.ReferenceEquals(this.GetType(), obj.GetType())))
            {
                return false;
            }
            var t = (DisplayInfo)obj;
            return this.Id == t.Id;
        }

        public override int GetHashCode()
        {
            return this.Id;
        }

        #endregion Methods 
     }
}

Answer 3

Отвечая на мой собственный вопрос здесь, основываясь на ответе Марка. Я преобразовал образец, данный в эквивалент VB:

Public Overloads Overrides Function Equals(ByVal obj As Object) As Boolean
        ' Check for null values and compare run-time types.
        If obj Is Nothing Or Not Me.GetType() Is obj.GetType() Then
            Return False
        End If

        Dim t As TradeOrderStatus = CType(obj, TradeOrderStatus)
        Return Me.ID = t.ID

    End Function


    Public Overrides Function GetHashCode() As Integer
        Return Me.GetHashCode()
    End Function

Моя комбо-привязка теперь работает как положено.