为什么我无法获得选定的值？

Question

我有两个ComboBox 用于Employee 和PayrollName。 在第一个 ComboBox('PayrollName') 上，使用 SelectedValue 很好，但是当涉及到下一个 ComboBox 时，我收到此错误：

从类型“VB$AnonymousType_11(Of Integer,String)”到类型“Integer”的转换无效

我试图搜索错误但没有运气，我什至找不到

我的代码加载数据到我的EmployeeComboBox

Dim _list = MyContext.Employees.Where(Function(q) q.Status = True).Select(Function(q) New With
                                                   {
                                                   q.EID,
                                                   .Name = q.Lastname & ", " & q.Firstname
                                                   }).ToList
        Dim list = _list.OrderBy(Function(x) x.Name).ToList()
        With cbxEmployee
            .DataSource = list.ToList
            .DisplayMember = "Name"
            .ValueMember = "EID"
        End With

我获取SelectedValue的代码

Dim EmployeeID As Integer = cbxEmployee.SelectedValue

为什么我无法获得选定的值？ 对不起，我的英语不太好

Answer 1

代码中的第一条语句包含这个 lambda 表达式：

Function(q) New With
   {
   q.EID,
   .Name = q.Lastname & ", " & q.Firstname
   }

它生成一个带有整数字段（EID）和字符串字段（名称）的匿名类型。这就是您在错误消息中看到的VB$AnonymousType_11(Of Integer,String)。这些值被分配给组合框，因此当您查看组合框的 SelectedValue 时，这就是您正在使用的值。

所以你需要这样做：

Dim EmployeeID As Integer = cbxEmployee.SelectedValue.EID

更好

这只是因为Option Strict 已关闭，并且这很糟糕。它会导致各种运行时错误。您应该打开 Option Strict。这似乎会引发一堆新的错误是你的代码，但每一个真的是一个等待引爆的小定时炸弹。这使您有机会在这些错误给您的用户造成问题之前立即修复它们。您最终会得到更好、更快、更易于维护的代码。

在这种情况下，这可能意味着为这些列表对象定义一个Class，这看起来很重要，但实际上只有四行代码：

Public Class EmployeeListItem
    Public Property EID As Integer
    Public Property Name As String
End Class

然后我会在分配数据源之前进一步设置 DisplayMember 和 ValueMember 项。结合其他修复，您会得到：

Dim list = MyContext.Employees.
        Where(Function(q) q.Status = True).
        Select(Function(q) New EmployeeListItem With
                {
                    q.EID,
                    .Name = q.Lastname & ", " & q.Firstname
                 }).
        OrderBy(Function(x) x.Name)

With cbxEmployee
    .DisplayMember = "Name"
    .ValueMember = "EID"
    .DataSource = list
End With

请注意，我从来不用打电话给ToList()。这减少了内存使用，并且在某些情况下可以使代码大大更有效率。

然后，在使用该值时，您要对其进行强制转换，如下所示：

Dim EmployeeID As Integer = DirectCast(cbxEmployee.SelectedValue, EmployeeListItem).EID

Answer 2

尝试开启 Option Strict。 SelectedValue 不是整数，不能直接插入整数。在这种情况下，它返回您创建的 AnonymousType 的对象。您需要确定 .Name 或 .EID