0

更新されたメモ: vb.net に精通しているすべてのヘルプに感謝します。ここに自己完結型の例があります... 

Structure Stuff
        public client as String
        public BDate as DateTime
        public KB as long
        public sub new(client as string, BDate as DateTime, KB as Long)
            Me.client = client
            Me.BDate = BDate
            Me.KB = KB
        end sub
    End Structure
Sub Main

Dim Stuffs as new List(Of Stuff)
Stuffs.Add(new Stuff("dev0db05", "6/25/2012  7:00:35 AM",1))
Stuffs.Add(new Stuff("dev0db05", "6/25/2012  7:00:35 AM",1))
Stuffs.Add(new Stuff("dev0db05", "6/25/2012  7:00:35 AM",1))
Stuffs.Add(new Stuff("dev0db05", "6/26/2012  7:00:35 AM",2))
Stuffs.Add(new Stuff("dev0db05", "6/26/2012  7:00:35 AM",2))
Stuffs.Add(new Stuff("dev0db05", "6/26/2012  7:00:35 AM",2))
Stuffs.Add(new Stuff("dev0db05", "6/27/2012  7:00:35 AM",3))
Stuffs.Add(new Stuff("dev0db05", "6/27/2012  7:00:35 AM",3))
Stuffs.Add(new Stuff("dev0db05", "6/27/2012  7:00:35 AM",3))
Stuffs.Add(new Stuff("dev0db05", "6/28/2012  7:00:35 AM",4))
Stuffs.Add(new Stuff("dev0db05", "6/28/2012  7:00:35 AM",4))
Stuffs.Add(new Stuff("dev0db05", "6/28/2012  7:00:35 AM",4))

dim q = From c In Stuffs _
  where c.client= "dev0db05" _
  order by c.BDate _
  group c by c.Client,c.bdate into g = group _
  select ClientName = Client, BDate = DateTime.Parse(bdate).ToShortDateString, SumKB = g.sum(Function(p) p.kb)

Output:
ClientName BDate SumKB 
dev0db05 6/25/2012 3 
dev0db05 6/26/2012 6 
dev0db05 6/27/2012 9 
dev0db05 6/28/2012 12

したがって、この例では、dev0db05 に対して返される最大の SumKB のみ (12) を取得したいと考えています。MAX を実行する必要があることは理解していますが、上記に対してどのように対処すればよいかわかりません。損失...

次の Linq クエリの場合、最高値 (つまり 259835919) のみを返すにはどうすればよいですか? ありがとう！私は初心者で、理解しようとしています。

dim q = From c In Stuff _
where c.client= "dev0db05" _
where c.policy = "mcg-oracle-db" _
order by c.BackupDate _
group c by key = 0, c.Client,c.backupdate into g = group _
select ClientName = Client, BDate = DateTime.Parse(backupdate).ToShortDateString, SumKB = g.sum(Function(p) p.kilobytes)

戻り値：

dev0db05    5/20/2012   163160396
dev0db05    5/27/2012   235918153
dev0db05    6/3/2012    259813647
dev0db05    6/10/2012   259835151
dev0db05    6/13/2012   23824838
dev0db05    6/14/2012   259578160
dev0db05    6/15/2012   23864427
dev0db05    6/16/2012   259578127
**dev0db05  6/17/2012   259835919**
dev0db05    6/18/2012   23858283
dev0db05    6/19/2012   259575055
dev0db05    6/20/2012   33412
4

1 に答える 1

0

さて、以下が解決策です。これが最も効率的な方法ですか？

Structure Stuff
  public client as String
  public BackupDate as DateTime
  public Kilobytes as double
  public sub new(client as string, BackupDate as DateTime, Kilobytes as double)
  Me.client = client
  Me.BackupDate = BackupDate
  Me.Kilobytes = Kilobytes
  end sub
End Structure

Sub Main
Dim Stuffs as new list(Of Stuff)
Stuffs.Add(new Stuff("dev0db05", "6/25/2012  7:00:35 AM",1))
Stuffs.Add(new Stuff("dev0db05", "6/25/2012  7:00:35 AM",1))
Stuffs.Add(new Stuff("dev0db05", "6/25/2012  7:00:35 AM",1))
Stuffs.Add(new Stuff("dev0db05", "6/26/2012  7:00:35 AM",2))
Stuffs.Add(new Stuff("dev0db05", "6/26/2012  7:00:35 AM",2))
Stuffs.Add(new Stuff("dev0db05", "6/26/2012  7:00:35 AM",2))
Stuffs.Add(new Stuff("dev0db06", "6/27/2012  7:00:35 AM",3))
Stuffs.Add(new Stuff("dev0db06", "6/27/2012  7:00:35 AM",3))
Stuffs.Add(new Stuff("dev0db06", "6/27/2012  7:00:35 AM",3))
Stuffs.Add(new Stuff("dev0db06", "6/28/2012  7:00:35 AM",4))
Stuffs.Add(new Stuff("dev0db06", "6/28/2012  7:00:35 AM",4))
Stuffs.Add(new Stuff("dev0db06", "6/28/2012  7:00:35 AM",4))
Stuffs.Add(new Stuff("dev0db09", "6/27/2012  7:00:35 AM",5))
Stuffs.Add(new Stuff("dev0db09", "6/27/2012  7:00:35 AM",5))
Stuffs.Add(new Stuff("dev0db09", "6/27/2012  7:00:35 AM",5))
Stuffs.Add(new Stuff("dev0db03", "6/28/2012  7:00:35 AM",6))
Stuffs.Add(new Stuff("dev0db03", "6/28/2012  7:00:35 AM",6))
Stuffs.Add(new Stuff("dev0db03", "6/28/2012  7:00:35 AM",6))

dim jj = From t1 In ((From t0 In Stuffs _
  Group t0 By t0.Client,t0.BackupDate Into g = Group  _
  Select SumKB = CType(g.Sum(Function(p) p.Kilobytes),long?),Client,BDate = CStr(CDate(BackupDate)))) _
where t1.client = "dev0db05" _
Group t1 By t1.Client Into g = Group  _
Select Client, MaxKB = CType(g.Max(Function(p) p.SumKB),long?)

dev0db05 の場合は 6 を返します

于 2012-08-16T21:01:53.917 に答える