Как создать вложенный GridView, привязанный к свойству навигации родительского EntityDataSource? - PullRequest
Новая
       38

Как создать вложенный GridView, привязанный к свойству навигации родительского EntityDataSource?

0 голосов
/ 14 июня 2009 
<asp:FormView DataSourceId="edsAccounts">
    <ItemTemplate>
        <asp:TextBox Text='<%# Eval("Email") %>' />
        <asp:DataGrid ID="dgReports" DataSource='<%# Eval("Reports") %>'>
    </ItemTemplate>
</asp:FormView>
<asp:EntityDataSource ID="edsAccounts" runat="server" ConnectionString="name=Entities" DefaultContainerName="Entities" EntitySetName="Accounts" EntityTypeFilter="Account" Include="Reports" />

Я хочу, чтобы dgReports начал работать. Обратите внимание, что текстовое поле электронной почты работает просто отлично.

1 Ответ

0 голосов
/ 15 июня 2009

Я действительно создал отдельные внутренние источники данных, но у меня возникла другая проблема. Мне не удалось установить в предложении Where идентификатор субъекта родителя.

Обратите внимание, что FormView.DataItem недоступен; он имеет тип EntityDataSourceWrapper, который является классом друга и недоступен.

Итак, я создал функцию, чтобы справиться с ней с помощью отражения.

Я думаю, что это ошибка Microsoft, пока они ее не исправят, следующее может быть полезно всем, кто использует вложенные элементы управления EntityDataSource.

Вот оно: 

Module Functions
    Public Function GetEntity(Of TEntity As EntityObject)(ByVal entityDataSourceWrapper As Object) As TEntity
        If entityDataSourceWrapper Is Nothing Then Return Nothing
        Dim type = entityDataSourceWrapper.GetType()
        If Not type.FullName = "System.Web.UI.WebControls.EntityDataSourceWrapper" Then Return Nothing
        Dim wrapper = type.GetProperty("WrappedEntity", Reflection.BindingFlags.NonPublic Or Reflection.BindingFlags.Instance)
        Return DirectCast(wrapper.GetValue(entityDataSourceWrapper, Nothing), TEntity)
    End Function
End Module

Теперь в коде я делаю следующее: 

Protected Sub fvAccounts_DataBound(ByVal sender As Object, ByVal e As EventArgs) Handles fvAccounts.DataBound       
    If fvAccounts.CurrentMode <> FormViewMode.ReadOnly Then Exit Sub
    Dim account As Account = GetEntity(Of Account)(fvAccounts.DataItem)
    If account Is Nothing Then Exit Sub
    Dim edsReports As EntityDataSource = fvAccounts.Row.FindControl("edsReports")
    edsReports.Where = "it.Account.AccountId = " & account.AccountId
    gvReports.DataBind()
End Sub

Обратите внимание на иерархию в модели: в учетной записи много отчетов.

...