EF4：LINQ 2 实体查询在 C# 中有效，但在 VB 中无效

[编辑：我在下面留下了原始问题，并提供了更多上下文和代码来重现问题。下面的简短版本包含了问题的本质]

简短版本：下面的查询抛出 System.NotSupportedException：“无法转换类型 'System.Linq.IOrderedQueryable1' to type 'System.Linq.IQueryable1'. LINQ to Entities 仅支持转换实体数据模型基元类型。”仅在 VB.Net 版本中引发该异常。转换为 C# 时，不会引发异常。

   Dim doesThisCrash = From outerOrder In orders
        Where outerOrder.ProductId =
        (From p In products Join o In orders On p.Id Equals o.ProductId
         Order By p.Id
         Select p.Id).FirstOrDefault()
        Select outerOrder
    doesThisCrash.ToList()

因此，为了使其崩溃，我们似乎需要一个子查询，其中原始 ObjectSet（订单）与另一个 ObjectSet（产品）连接并排序。仅使用订单或产品集时，不会发生崩溃。当省略 Order By 时，也不会发生崩溃。

我倾向于认为这是一个（VB.Net）编译器错误，除非我在这里忽略了一些明显的东西......

现在我的问题仍然存在：

• 为什么看似完全相同的查询在 C# 中有效，但在 VB 中却无效？
• 这个查询可以在 VB.Net 中运行吗？

[/EDIT]

可选的较长版本（原始问题）：

我的域看起来非常不同，但我将问题转换为更简单的版本，其中包含以下实体（注意：我实际上使用 .edmx 设计器定义了这些实体，因此这是一个简化版本）：

    public class Product
    {
        public int Id { get; set; }
        public string Name { get; set; }
        public DateTime DateCreated { get; set; }
    }

    public class Order
    {
        public int Id { get; set; }
        public int CustomerId { get; set; }
        public int ProductId { get; set; }
        public DateTime OrderDate { get; set; }
    }

    public class Customer
    {
        public int Id { get; set; }
    }

我正在尝试在 VB.Net 中制定一个 linq-to-entities 查询，其结构应如下所示：

    Dim db = New SampleEntities()
    Dim orders As IQueryable(Of Order) = db.Orders
    Dim products As IQueryable(Of Product) = db.Products
    Dim currentDate = DateTime.Now

    Dim qLinq = From outerOrder In orders
                Where outerOrder.OrderDate = currentDate AndAlso
                outerOrder.ProductId =
                    (From p In products Join o In orders On p.Id Equals o.ProductId
                     Where o.OrderDate = outerOrder.OrderDate AndAlso
                            outerOrder.CustomerId = o.CustomerId
                     Order By p.DateCreated
                     Select p.Id).FirstOrDefault()
                Select outerOrder

这会引发 System.NotSupportedException：

“无法转换类型‘System.Linq.IOrderedQueryable1' to type 'System.Linq.IQueryable1'. LINQ to Entities 仅支持转换实体数据模型基元类型。”

当省略“Order By”部分时，不会引发异常。

我真的不明白为什么不支持这个查询的原因...所以我决定在 C# 中尝试同样的事情：

var qLinq = from oOut in orders
            where oOut.OrderDate == currentDate
                  && oOut.ProductId == 
                          (from p in products join o in orders on p.Id equals o.ProductId
                           where oOut.OrderDate == o.OrderDate 
                           && oOut.CustomerId == o.CustomerId
                           orderby p.DateCreated
                           select p.Id).FirstOrDefault()
                    select oOut;

令我惊讶的是，这有效！然后我将 C# 查询转换为扩展方法语法，然后返回 VB，但得到了相同的结果（C# 版本有效，VB.Net 版本引发相同的异常）。

所以我想我的问题是双重的：

• 为什么看似完全相同的查询在 C# 中有效，但在 VB 中却无效？
• 这个查询可以在 VB.Net 中运行吗？

作为参考，以下是扩展方法语法中的查询：

C#版本：

        var q = orders.Where(outerOrder => 
            outerOrder.OrderDate == currentDate &&
            outerOrder.ProductId == 
            (products
                .Join(orders, 
                    f => f.Id, 
                    o => o.ProductId,
                    (f, o) => new { f, o })
                .Where(t => t.o.OrderDate == outerOrder.OrderDate 
                           && outerOrder.CustomerId == t.o.CustomerId)
                .OrderByDescending(t => t.f.DateCreated)
                .Select(t => t.f.Id))
                .FirstOrDefault());

VB.NET版本：

    Dim q = orders.Where(Function(outerOrder) outerOrder.OrderDate = currentDate AndAlso
                             outerOrder.ProductId = (products.Join(orders,
                               Function(p) p.Id,
                               Function(o) o.ProductId,
                               Function(p, o) New With {.p = p, .o = o}).
                           Where(Function(x) x.o.OrderDate = outerOrder.OrderDate AndAlso
                                     outerOrder.CustomerId = x.o.CustomerId).
                           OrderByDescending(Function(x) x.p.DateCreated).
                           Select(Function(x) x.p.Id).
                           FirstOrDefault()))

我认为以下方法可行，但 SQL 很丑陋：

Dim qLinq = From outerOrder In orders
                Where outerOrder.OrderDate = currentDate AndAlso
                outerOrder.ProductId =
                    (From x In (From p In products
                                 Join o In orders On p.Id Equals o.ProductId
                                 Where o.OrderDate = outerOrder.OrderDate AndAlso
                                        outerOrder.CustomerId = o.CustomerId
                                 Select p.Id)
                    Order By x).FirstOrDefault()
                Select outerOrder