Warning: file_get_contents(/data/phpspider/zhask/data//catemap/1/vb.net/16.json): failed to open stream: No such file or directory in /data/phpspider/zhask/libs/function.php on line 167

Warning: Invalid argument supplied for foreach() in /data/phpspider/zhask/libs/tag.function.php on line 1116

Notice: Undefined index: in /data/phpspider/zhask/libs/function.php on line 180

Warning: array_chunk() expects parameter 1 to be array, null given in /data/phpspider/zhask/libs/function.php on line 181
.net 如何合并两个EF查询?_.net_Vb.net_Entity Framework - Fatal编程技术网

.net 如何合并两个EF查询?

.net 如何合并两个EF查询?,.net,vb.net,entity-framework,.net,Vb.net,Entity Framework,我必须查询,并且我需要将两者合并为一个结果,我已经尝试使用Union和Concat,但没有成功: Dim PayPalPurchases = (From p In ctx.PayPalAPI Where p.Users.Email = userEmail Select KeyPay = p.pay_key, PurchaseDate = p.payment_request_dat

我必须查询,并且我需要将两者合并为一个结果,我已经尝试使用Union和Concat,但没有成功:

     Dim PayPalPurchases = (From p In ctx.PayPalAPI Where p.Users.Email = userEmail Select
                           KeyPay = p.pay_key,
                           PurchaseDate = p.payment_request_date,
                           Result = p.status,
                           item_sku = p.memo,
                           price = p.transaction_amount).ToList

        Dim licenze = (From lic In ctx.Licenses Where lic.Users.Email = userEmail
                           Select KeyPay = lic.Note,
                           PurchaseDate = lic.Date,
                           Result = "Free",
                           item_sku = lic.Sku,
                           price = 0)

创建一个类,每个查询将结果存储到该类中:

Public Class ResultData

  Public KeyPay As String
  Public PurchaseDate As String
  Public Result As String
  Public item_sku As String
  Public price As String

End Class
然后创建一个包含这两个结果的列表

Dim PayPalPurchases = (From p In ctx.PayPalAPI
                       Where p.Users.Email = userEmail
                       Select New ResultData With
                        {
                          .KeyPay = p.pay_key,
                          .PurchaseDate = p.payment_request_date,
                          .Result = p.status,
                          .item_sku = p.memo,
                          .price = p.transaction_amount
                        }).ToList

Dim licenze = (From lic In ctx.Licenses
               Where lic.Users.Email = userEmail
               Select New ResultData With
                {
                  .KeyPay = lic.Note,
                  .PurchaseDate = lic.Date,
                  .Result = "Free",
                  .item_sku = lic.Sku,
                  .price = 0
                }).toList

Dim combinedList As List(Of ResultData)

combinedList.AddRange(PayPalPurchases)
combinedList.AddRange(licenze)