vb.net - vb.net 中的 lambda 表达式

Question

我有一些东西让我非常疯狂......

    Public Function GetAccountGroups() As IList(Of AccountGroup)
        Dim raw_account_groups As IList(Of AccountGroup)
        raw_account_groups = _repository.GetAccountGroups().ToList()
        Dim parents = (From ag In raw_account_groups _
                      Where ag.parent_id = 0 _
                      Select ag).ToList()

        parents(0).sub_account_groups = (From sag In raw_account_groups _
                               Where sag.parent_id = 0 _
                                Select sag).ToList()

        Dim sql_func As Func(Of AccountGroup, List(Of AccountGroup)) = Function(p) _
                                                                      (From sag In raw_account_groups _
                                                                       Where sag.parent_id = p.id _
                                                                       Select sag).ToList()

        parents.ForEach(Function(p) p.sub_account_groups = sql_func(p))

        Return parents
    End Function

该行parents.ForEach(Function(p) p.sub_account_groups = sql_func(p))有此错误...

未为类型“System.Collections.Generic.IList(Of st.data.AccountGroup)”和“System.Collections.Generic.List(Of st.data.AccountGroup)”定义运算符“=”。

但我真的看不出它与 Rob Connery 的这段代码有什么不同

public IList<Category> GetCategories() {
    IList<Category> rawCategories = _repository.GetCategories().ToList();                 
    var parents = (from c in rawCategories 
        where c.ParentID == 0
        select c).ToList();
     parents.ForEach(p =>
    {
        p.SubCategories = (from subs in rawCategories
        where subs.ParentID == p.ID
        select subs).ToList();
    });

    return parents; 
}

编译完美......我做错了什么？

Answer 1

VB.Net 中的 Lambda 必须返回一个值，因此您的等号 ('=') 被解释为比较（以便 lambda 返回一个布尔值），而不是赋值。

Answer 2

根据您的代码，此处接受的答案可能是错误的。chyne 给出了正确的线索：VB 中的 lambdas 总是有返回值（与 C# 不同），但在下一个版本中引入了语句 lambdas。

同时，您根本无法在 VB 中使用此代码。改用常规循环：

For Each p In parents
    p.sub_account_groups = sql_func(p)
Next

VB 的下一个版本（从昨天开始作为 Beta 版提供）将允许编写以下代码：

parents.ForEach(Sub (p) p.sub_account_groups = sql_func(p))

Answer 3

自从迁移到 C# 3.0 后，我就没有使用过 VB.NET，但这似乎是一个类型推断问题。这个错误有点奇怪，因为 List 实现了 IList，所以分配应该可以工作。您可以为 lambda 说“p.ID = 123”，一切似乎都有效。

对于其他有兴趣研究它的人，您可以将以下代码粘贴到新的 VB.NET 控制台项目中以演示此问题：

Module Module1
    Sub Main()
    End Sub
End Module

Class AccountGroup
    Public parent_id As Integer
    Public id As Integer
    Public sub_account_groups As List(Of AccountGroup)
End Class
Class AccountRepository
    Private _repository As AccountRepository

    Public Function GetAccountGroups() As IList(Of AccountGroup)
        Dim raw_account_groups As IList(Of AccountGroup)
        raw_account_groups = _repository.GetAccountGroups().ToList()
        Dim parents = (From ag In raw_account_groups _
                       Where ag.parent_id = 0 _
                       Select ag).ToList()
        parents(0).sub_account_groups = (From sag In raw_account_groups _
                                         Where sag.parent_id = 0 _
                                         Select sag).ToList()

        Dim sql_func As Func(Of AccountGroup, List(Of AccountGroup)) = Function(p) _
                                                                            (From sag In raw_account_groups _
                                                                             Where sag.parent_id = p.id _
                                                                             Select sag).ToList()



        parents.ForEach(Function(p) p.sub_account_groups = sql_func(p))
        Return parents
    End Function
 End Class

Answer 4

我猜ag.parent_id = 0应该在哪里ag.parent_id == 0？

Answer 5

使用 Sub 作为赋值运算符：

parents.ForEach(Sub(p) p.sub_account_groups = sql_func(p))