Определение нескольких моделей MVC2 от linq до sql класса VB.net

Question

Я призываю там ниндзя VB. Вот моя ситуация. Мне нужно в конечном итоге быть в состоянии передать несколько моделей в представление. В настоящее время у меня есть класс linq to sql, который, конечно, имеет кучу сгенерированных определений моделей. Мне нужно сделать модель, которая реализует несколько моделей. Я немного понимаю, как это сделать в C #, но этот проект проверяет мой VB skillz.

Вот некоторые фрагменты из моих моделей linq to sql. Мне нужно объединить эти два в одну модель, чтобы перейти к представлению.

Модель артикула:

<Global.System.Data.Linq.Mapping.TableAttribute(Name:="dbo.Articles")>  _
Partial Public Class Article
    Implements System.ComponentModel.INotifyPropertyChanging, System.ComponentModel.INotifyPropertyChanged

    Private Shared emptyChangingEventArgs As PropertyChangingEventArgs = New PropertyChangingEventArgs(String.Empty)

    Private _ArticleID As Integer

    Private _ClassID As System.Nullable(Of Integer)

    Private _Title As String

    Private _ShortDescription As String

    Private _LongDescription As String

    Private _ByLine As String

    Private _ArticleDate As System.Nullable(Of Date)

    Private _SchoolClass As EntityRef(Of SchoolClass)

Модель персонала:

<Global.System.Data.Linq.Mapping.TableAttribute(Name:="dbo.Staff")>  _
Partial Public Class Staff
    Implements System.ComponentModel.INotifyPropertyChanging, System.ComponentModel.INotifyPropertyChanged

    Private Shared emptyChangingEventArgs As PropertyChangingEventArgs = New PropertyChangingEventArgs(String.Empty)

    Private _StaffID As Integer

    Private _ClassID As Integer

    Private _PositionID As System.Nullable(Of Integer)

    Private _StaffName As String

    Private _Position As EntityRef(Of Position)

    Private _SchoolClass As EntityRef(Of SchoolClass)

Answer 1

Возможно, я упускаю суть вопроса, но первая проблема заключается в том, что все в этих классах Private. Может быть, вы просто показываете вспомогательные поля?

Если предположить, что вы просто хотите составить и представить некоторые данные из этих объектов через модель представления:

Public Class StaffAndArticleViewModel
    Private _Article As Article
    Private _Staff As Staff

    Public Sub New(ByVal a As Article, ByVal s As Staff)
        _Article = a
        _Staff = s
    End Sub

    ' now you just expose everything that the view requires
    ' for example:

    Public Property StaffName As String
        Get
            Return _Staff.Staff
        End Get
        Set(ByVal Value As String)
            _Staff.Staff = Value
        End Set
    End Property