0

クエリを実行する必要があり、両方を 1 つの結果にマージする必要があります。既に 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)
4

1 に答える 1

1

各クエリが結果を格納するクラスを作成します。

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)
于 2012-12-05T18:33:16.087 に答える