十年网站开发经验 + 多家企业客户 + 靠谱的建站团队
量身定制 + 运营维护+专业推广+无忧售后,网站问题一站解决
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