vb.netlinq vbnetlinq修改数据

关於.net LINQ分组查询使用方法 使用VB语言完成

C# 版的

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写一样的

相关问答

Q1: VB.net linq to datatable where 字符相符判断

试下这个

Dim query = From ffff In mydatabase.Tables("cqyz").AsEnumerable Where ffff.Field(Of String)("zxry").trim="韩某" Select ffff

判断时没有去掉空格

Q2: vb.net 查询 xml

最好使用LINQ（全名为：.NET Language Query framework）的功能,读写都很方便的。自己去到网上找一找。

Q3: 请教vb.net高手一个关于executereader的问题

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

Q4: VB.NET 判断一个数组里面的值是否全部相同, 然后再执行下一步

在.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查看官方文档

Q5: 如何使用vb.net获取一个文件夹里最后一个数据文件的名称？

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