Silverlight/RIA服務/ EF - 自定義對象

Question

我一直在網上搜索一種方法來解決我的問題，我沒有任何運氣。我正在開發一個Silverlight商務類應用程序，並嘗試使用RIA服務。我成功地加載和保存沒有任何重大問題的實體，但是當我的應用程序第一次加載時，我需要加載我所謂的「值列表」。

我的值列表是獨立的實體，大概5個左右，由Id（鍵）和Value組成，它們用於填充combobox和autocompletebox之類的東西。我可以單獨查詢每一個，但是我寧願在一次查詢中一次加載所有值列表，以加快速度，因爲每條記錄少於15條記錄。我試圖開發一個自定義類返回所有這些，它看起來像這樣...

<DataContract(IsReference:=True)> 
<KnownType(GetType(ValueList1Item))> 
<KnownType(GetType(ValueList2Item))> 
<KnownType(GetType(ValueList3Item))> 
Partial Public Class ValueLists 

    <DataMember()> 
    Public Property ValueList1 AS List(Of ValueList1Item) 

    <DataMember()> 
    Public Property ValueList2 AS List(Of ValueList2Item) 

    <DataMember()> 
    Public Property ValueList3 AS List(Of ValueList3Item) 
End Class 

我已經試過許多方法來實現服務的方法，其中一個看起來是這樣的...

Public Function GetValueLists() As ValueLists 
     Dim ret As ValueLists = New ValueLists 

     ret.ValueList1 = (From v1 In ObjectContext.ValueList1Items 
          Select v1).ToList 

     ret.ValueList2 = (From v2 In ObjectContext.ValueList1Items 
          Select v2).ToList 

     ret.ValueList3 = (From v3 In ObjectContext.ValueList3Items 
          Select v3).ToList 

     Return ret 
    End Function 

我也試過返回一個IQueryable（ValueLists）。無論我嘗試過什麼，每當我嘗試使用自定義類型時，都無法將該方法公開給客戶端。 RIA Services甚至有可能做這樣的事情還是尚未成熟？我知道我在過去用直WCF完成了這一點，但它顯然有更多的工作。

由於提前， 凱西

Answer 1

（對不起我的英文不好）

我以前嘗試這樣做，它確實沒有工作。如果你爲ValueList1創建了一個新類，它就可以工作。但是，如果您使用具有[Key]屬性的類，出於某種原因，它不會生成（該屬性不會出現在客戶端）。所以，一個解決辦法是像ReadOnlyValueList1創建類並返回它：

ret.ValueList1 = (from v1 In ObjectContext.ValueList1Items 
         select new ReadOnlyValueList1() 
         { 
          Prop1 = v1.Prop1, 
          Prop2 = v1.Prop2, 
         }).ToList(); 

（對不起，C＃代碼，可能這是在VB中有少許差別）

它任何意義，因爲你不希望所有EF的東西（跟蹤等）只是爲了綁定一些列表和組合。

Answer 2

你應該能夠做到這一點沒有問題，而是傳遞一個對象到RIA服務客戶端時，你需要指定一個[關鍵]這是保證所有喜歡的對象之間唯一的。這是由於RIA服務處理緩存客戶端上的這些對象的方式。此外，您的ValueList1Item，ValueList2Item等需要可序列化。

當這樣設置時，RIA服務會將你的服務器POCO對象變成客戶端實體對象。您將遇到的唯一問題是您必須手動處理任何CUD操作。如果它是您傳遞給客戶端的只讀數據，則無需擔心。

Answer 3

嗯，我設法得到了一點點。將Key添加到返回對象的Id屬性中，至少使它成功編譯，但使用fiddler查看結果我可以看到對象中沒有任何內容。我猜這是這種序列化問題。

我從我的模型生成的另一個實體類的副本構造了我的返回對象（dto），以確保我沒有錯過任何東西。然後我評論了所有更改跟蹤，以確保它不會造成任何問題。下面是類：

<DataContract(IsReference:=True)> _ 
<KnownType(GetType(ValueList1Item))> _ 
<KnownType(GetType(ValueList2Item))> _ 
Partial Public Class ValueLists 

#Region "Primitive Properties" 

    <DataMember()> _ 
    <Key()> _ 
    Public Property Id() As Long 
     Get 
      Return _id 
     End Get 
     Set(ByVal value As Long) 
      If Not Equals(_id, value) Then 
       _id = value 
      End If 
     End Set 
    End Property 

    Private _id As Long 



    <DataMember()> _ 
    Public Property ValueList1() As List(Of ValueList1Item) 
     Get 
      Return _valueList1 
     End Get 
     Set(ByVal value As List(Of ValueList1Item)) 
      If Not Equals(_valueList1, value) Then     
       _valueList1 = value    
      End If 
     End Set 
    End Property 

    Private _valueList1 As List(Of ValueList1Item) 



    <DataMember()> _ 
    Public Property ValueList2() As List(Of ValueList2Item) 
     Get 
      Return _valueList2 
     End Get 
     Set(ByVal value As List(Of ValueList2Item)) 
      If Not Equals(_valueList2, value) Then     
       _valueList2 = value    
      End If 
     End Set 
    End Property 

    Private _valueList2 As List(Of ValueList2Item) 

#End Region 
End Class 

而且我使用的構造和返回對象看起來像這樣的方法......

Public Function GetValueLists() As ValueLists 
     Dim ret As ValueLists = New ValueLists 

     ret.Id = RandomNumber(1, 100000000) 

     ret.ValueList1 = (From vli1 In ObjectContext.ValueList1Items 
           Select vli1).ToList() 

     ret.ValueList2 = (From vli2 In ObjectContext.ValueList2Items 
             Select vli2).ToList() 


     Return ret 
    End Function 

跟蹤這種方法表明它實際上是工作的罰款。我可以看到正確填充的所有值列表項，它只是永遠不會離開服務器。這導致我相信這是某種序列化問題。