我同情那些不能使用查询风格的VB开发人员。你上一个C#示例过于简单，没有价值：你只需编写`dataTable1.AsEnumerable（）.Take（10）@Emyr：我的最后一段以“VB.NET的查询语法也比C#更强大，更不冗长”开头，只是将VB.NE

---

我同情那些不能使用查询风格的VB开发人员。你上一个C#示例过于简单，没有价值：你只需编写`dataTable1.AsEnumerable（）.Take（10）@Emyr：我的最后一段以“VB.NET的查询语法也比C#更强大，更不冗长”开头，只是将VB.NET的查询语法与C#进行比较，您使用的是方法语法。对于复杂的查询，我发现lambda语法更容易理解/可读，但查询语法更漂亮。我不会强制执行个人偏好。。但那就是我。“因为它们只是扩展方法，你可以自己编写。”——你会遇到这个问题吗？

var title = entries.Where(e => e.Approved)
    .OrderBy(e => e.Rating).Select(e => e.Title)
    .FirstOrDefault();

var query = (from e in entries
             where e.Approved
             orderby e.Rating
             select e.Title).FirstOrDefault();

var titlesQuery = from e in entries
                  where e.Approved
                  orderby e.Rating
                  select e.Titles;

var title = titlesQuery.FirstOrDefault();

var title = entries
    .Where (e => e.Approved)
    .OrderBy (e => e.Rating)
    .Select (e => e.Title)
    .FirstOrDefault();

string[] fullNames = { "Anne Williams", "John Fred Smith", "Sue Green" };

var query =
  from fullName in fullNames
  from name in fullName.Split()
  orderby fullName, name
  select name + " came from " + fullName;

var query = fullNames
  .SelectMany (fName => fName.Split().Select (name => new { name, fName } ))
  .OrderBy (x => x.fName)
  .ThenBy  (x => x.name)
  .Select  (x => x.name + " came from " + x.fName);

var query =
  from c in db.Customers
  let totalSpend = c.Purchases.Sum (p => p.Price)    // Method syntax here
  where totalSpend > 1000
  from p in c.Purchases
  select new { p.Description, totalSpend, c.Address.State };

Dim fullNames = { "Anne Williams", "John Fred Smith", "Sue Green" };
Dim query =
     fullNames.SelectMany(Function(fName) fName.Split().
     Select(Function(Name) New With {Name, fName})).
     OrderBy(Function(x) x.fName).
     ThenBy(Function(x) x.Name).
     Select(Function(x) x.Name & " came from " & x.fName)

query = From fullName In fullNames
        From name In fullName.Split()
        Order By fullName, name
        Select name & " came from " & fullName

Dim first10Rows = From r In dataTable1 Take 10

var first10Rows = (from r in dataTable1.AsEnumerable() 
                   select r)
                   .Take(10);