Charger un tableau à deux dimensions à partir de la requête LINQ?

Question

J'utilise VB.Net et ont les éléments suivants requête LINQ ...

Dim ACFTTail5 = (From tailcounts In db.TailCounts _ 
       Where tailcounts.Model = "UH-60A" _ 
       Group tailcounts By _ 
       tailcounts.Tail, tailcounts.Model _ 
       Into g = Group Order By Tail _ 
       Select Tail, rdf = CStr(g.Sum(Function(p) _ p.TailCount))).ToArray 

Je suis en train d'obtenir un tableau à deux dimensions comme ci-dessous ..

ACFTTail5 (0)(0) “Tail-a” 
    ACFTTail5 (0)(1) “RDF-a” 
    ACFTTail5 (1)(0) “Tail-b” 
    ACFTTail5 (1)(1) “RDF-b” 
    ACFTTail5 (2)(0) “Tail-c” 
    ACFTTail5 (2)(1) “RDF-c” 

ETC ..

J'ai essayé ...

Dim ACFTTail5(,) As String 

    ACFTTail5 = (From tailcounts In db.TailCounts _ 
       Where tailcounts.Model = "UH-60A" _ 
       Group tailcounts By _ 
       tailcounts.Tail, tailcounts.Model _ 
       Into g = Group Order By Tail _ 
       Select Tail, rdf = CStr(g.Sum(Function(p) p.TailCount))) 

Mais l'erreur suivante ...

« Impossible de jeter l'objet de type 'System.Data.Linq.DataQuery 1[VB$AnonymousType_4 2 [System.String, System.String]]' taper 'System.String [,]'. »

Toutes les suggestions serait grandement apprécié ...

Merci

Answer 1

Si vous pourriez être moins concernés par la forcer dans un tableau 2D, vous pouvez simplement permettent au compilateur d'attribuer le type IQueryable anonyme et l'utiliser pour l'itération:

Dim ACFTTail5 = (From tailcounts In db.TailCounts _ 
      Where tailcounts.Model = "UH-60A" _ 
      Group tailcounts By _ 
      tailcounts.Tail, tailcounts.Model _ 
      Into g = Group Order By Tail _ 
      Select Tail, rdf = CStr(g.Sum(Function(p) p.TailCount))) 

Vous pouvez alors simplement utiliser l'itérateur For each pour parcourir tout ce dont vous avez besoin.

Edit:
Je ne l'ai pas testé ce petit morceau par un étirement, mais vous devriez être en mesure d'utiliser une liste

Dim ACFTTail5 as List(Of String()) 

ACFTTail5 = new List(Of String())(From tailcounts In db.TailCounts _ 
      Where tailcounts.Model = "UH-60A" _ 
      Group tailcounts By _ 
      tailcounts.Tail, tailcounts.Model _ 
      Into g = Group Order By Tail _ 
      Select new String() { Tail, rdf = CStr(g.Sum(Function(p) p.TailCount)) }) 

Dim ACFTTail5_2d_Array as String(,) = ACFTTail5.ToArray() 

La clé que j'utilise ici est pour le sélectionner directement dans une nouvelle classe (dans ce cas, un tableau de chaînes), et le conserver dans une liste spécifiquement pour les tableaux de chaînes. Ensuite, vous devriez être capable d'envoyer cela à un tableau de chaînes de tableaux de chaînes.