C# 版的
创新互联建站于2013年开始，先为榆阳等服务建站，榆阳等地企业，进行企业商务咨询服务。为榆阳企业网站制作PC+手机+微官网三网同步一站式服务解决您的所有建站问题。
var datatable = new[] {
new {name = "aa", num = 5},
new {name = "aa", num = 6},
new {name = "aa", num = 11},
new {name = "ab", num = 1},
new {name = "ab", num = 8},
};
var result = datatable.GroupBy(o = o.name).Select(o = new { name = o.Key, num = (datatable.Where(p = p.name == o.Key).Select(r = r.num).Max() - datatable.Where(q = q.name == o.Key).Select(x = x.num).Min()) });
理解含义，用VB写一样的
试下这个
Dim query = From ffff In mydatabase.Tables("cqyz").AsEnumerable Where ffff.Field(Of String)("zxry").trim="韩某" Select ffff
判断时没有去掉空格
最好使用LINQ（全名为：.NET Language Query framework）的功能,读写都很方便的。自己去到网上找一找。
Dim sA As String
'xlsxfilename 是excel的文件名，包含路径信息，例如 c:\test.xlsx
sA = "provider=Microsoft.Jet.OLEDB.4.0; data source=" xlsxfilename ";Extended Properties='Excel 8.0;IMEX=1;'"
Dim oConExcel As System.Data.OleDb.OleDbConnection = New System.Data.OleDb.OleDbConnection(sA)
Dim oCmd As System.Data.OleDb.OleDbCommand = New System.Data.OleDb.OleDbCommand("select * from [Sheet1$]")
oCmd.Connection = oConExcel
oConExcel.Open()
Dim oRD As System.Data.OleDb.OleDbDataReader = oCmd.ExecuteReader()
If oRD.HasRows Then
Do While oRD.Read() '一次读取一行，下面取出第一列
ComboBox1.Items.Add（ oRD.Item(1).ToString）
Loop
End If
在.NET 中微软已经为我们内置了一些方法，我们可以直接使用该方法以快速达到我们的目的
Module Module1
Sub Main()
Dim a(3) As Int32
a(0) = 1
a(1) = 1
a(2) = 1
a(3) = 1
'推荐第一种方法
If a.Distinct().Count() = 1 Then
If a.All(Function(c) c = 1) Then
End If
End If
End Sub
End Module
第二种方法为LINQ，这是一种高级用法；是.NET 程序员必知必会的东西，如果不懂怎么用可以按F1查看官方文档
function Newfile as fileinfo
Dim dic As New System.IO.DirectoryInfo("C:\Users\Q\Desktop\数据")
Dim files = dic.GetFiles.OrderByDescending(Function(s) s.CreationTime)
if files.
return files.first
end function
注意引入 system.linq