制定预测

2025-06-19

以下示例演示如何将 C# 中的 select 语句和 Visual Basic 中的 Select 语句与其他功能结合在一起，以形成查询投影。

示例 1

以下示例使用 Select Visual Basic 中的子句（select C# 中的子句）返回联系人 Customers姓名序列。

var nameQuery =
    from cust in db.Customers
    select cust.ContactName;

Dim nameQuery = From cust In db.Customers _
                Select cust.ContactName

示例 2

以下示例使用 Select Visual Basic 中的子句（select C# 中的子句）和 匿名类型 返回一系列联系人姓名和电话号码 Customers。

var infoQuery =
    from cust in db.Customers
    select new { cust.ContactName, cust.Phone };

Dim infoQuery = From cust In db.Customers _
                Select cust.ContactName, cust.Phone

示例 3

以下示例使用 Select Visual Basic 中的子句（select C# 中的子句）和 匿名类型 为员工返回一系列名称和电话号码。字段FirstNameLastName合并为单个字段（Name），并且字段HomePhone在生成的序列中重命名Phone为。

var info2Query =
    from emp in db.Employees
    select new
    {
        Name = emp.FirstName + " " + emp.LastName,
        Phone = emp.HomePhone
    };

Dim info2Query = From emp In db.Employees _
                 Select Name = emp.FirstName & " " & emp.LastName, _
             Phone = emp.HomePhone

示例 4

以下示例使用 Select 子句在 Visual Basic 中（在 C# 中为 select 子句）和匿名类型来返回所有 ProductID 的序列和一个名为 HalfPrice 的计算值。此值设置为 UnitPrice 除以 2。

var specialQuery =
    from prod in db.Products
    select new { prod.ProductID, HalfPrice = prod.UnitPrice / 2 };

Dim specialQuery = From prod In db.Products _
                   Select prod.ProductID, HalfPrice = CDec(prod.UnitPrice) / 2

示例 5

以下示例使用 Select Visual Basic 中的子句（select C# 中的子句）和 条件语句 返回产品名称和产品可用性序列。

var prodQuery =
    from prod in db.Products
    select new
    {
        prod.ProductName,
        Availability =
            prod.UnitsInStock - prod.UnitsOnOrder < 0
        ? "Out Of Stock" : "In Stock"
    };

Dim prodQuery = From prod In db.Products _
                Select prod.ProductName, Availability = _
                    If(prod.UnitsInStock - prod.UnitsOnOrder < 0, _
                    "Out Of Stock", "In Stock")

示例 6

以下示例使用 Visual Basic Select 子句（select C# 中的子句）和 已知类型 （Name）返回雇员名称序列。

public class Name
{
    public string FirstName = "";
    public string LastName = "";
}

 void empMethod()
 {
 Northwnd db = new Northwnd(@"c:\northwnd.mdf");
 var empQuery =
     from emp in db.Employees
     select new Name
     {
         FirstName = emp.FirstName,
         LastName = emp.LastName
     };
}

Public Class Name
    Public FirstName As String
    Public LastName As String
End Class

Dim db As New Northwnd("c:\northwnd.mdf")
Dim empQuery = From emp In db.Employees _
               Select New Name With {.FirstName = emp.FirstName, .LastName = _
                   emp.LastName}

示例 7

下面的示例使用 Visual Basic 中的 Select 和 Where（在 C# 中为 select 和 where）返回由位于伦敦的客户的联系人姓名组成的筛选序列。

var contactQuery =
    from cust in db.Customers
    where cust.City == "London"
    select cust.ContactName;

Dim contactQuery = _
    From cust In db.Customers _
    Where cust.City = "London" _
    Select cust.ContactName

示例 8

下面的示例使用 Visual Basic 中的 Select 子句（在 C# 中为 select 子句）和匿名类型返回有关客户的数据的成形子集。

var custQuery =
    from cust in db.Customers
    select new
    {
        cust.CustomerID,
        CompanyInfo = new { cust.CompanyName, cust.City, cust.Country },
        ContactInfo = new { cust.ContactName, cust.ContactTitle }
    };

Dim custQuery = From cust In db.Customers _
                Select cust.CustomerID, CompanyInfo = New With {cust.CompanyName, _
                    cust.City, cust.Country}, ContactInfo = _
                    New With {cust.ContactName, cust.ContactTitle}

示例 9

以下示例使用嵌套查询返回以下结果：

由所有订单及其对应的 OrderID 组成的序列。
由订单中具有折扣的项组成的子序列。
不含运费时节省的资金数额。

var ordQuery =
    from ord in db.Orders
    select new
    {
        ord.OrderID,
        DiscountedProducts =
            from od in ord.OrderDetails
            where od.Discount > 0.0
            select od,
        FreeShippingDiscount = ord.Freight
    };

Dim ordQuery = From ord In db.Orders _
               Select ord.OrderID, DiscountedProducts = _
               (From od In ord.OrderDetails _
                Where od.Discount > 0.0 _
                Select od), _
           FreeShippingDiscount = ord.Freight

另请参阅

查询示例

通过