對象被創建為超類，想要將其變成子類

Question

我得到了一個包含通用數據對象的庫，即項目，表，行和字段。 在我的程序中，我有一個名為Building的項目，其表1包含“ Units”，表1的字段1是“ Unitname”。 所以我做了...

Public Class Unit
  Private myRow As Row
  Public Sub New(ByRef R as Row)
    myRow = Row
  End Sub
  Public Function Unitname() as String
    Return myRow.Fields(1)
  End Function
  ... etc ...
End Class

看起來還不錯嗎？ 但是我沒有加載Unit對象，而是Rows。 所以我還得再上一堂課...

Public Class Building
  Private myProj as Project
...
  Public Function Units() As List(Of Unit)
    Dim ans as New List(Of Unit)
    For Each R In myProj.Tables(1).Rows
      ans.Add(new Unit(R))
    Next
    Return ans
    ' or I could use myProj.Tables(1).Rows.ConvertTo(Of Unit)
 End Function
 ...etc...

當然，我必須列出建築物列表，這樣才能得到單元列表以及其他數十個列表和訪問器，這變成了數千行代碼，它們的唯一目的是制作一組指向的對象另一個。

它有效，我知道運輸是一項功能。 但是我真正想做的是制作一個看起來像...的單位

Public Class Unit
  Inherits Row
  ...
End Class

然后，我會將列表（行）“反向轉換”為列表（單元）。 這不僅會消除大量代碼，還將消除懸空的指針，減少大量內存，並消除可能花費一些時間的設置集。 從理論上講，除了代碼沒有什么區別，但是我看不到VB.Net中的一種實現方法。

在Obj-C中，這稱為swizzling（和/或擴展），我認為Java也有類似的概念。 我懷疑ADO.Net必須做這樣的事情嗎？ 我缺少某種“將其包裝”功能嗎？

Answer 1

節省大量時間並使用數據集。 對於數據庫應用程序，面向對象的編程不能很好地工作。 數據集只能是內存中的，不需要數據庫引擎。

Dim dsProject As New DataSet("Project")
Dim dtUnits As New DataTable("Units")
dtUnits.Columns.Add("Unitname", GetType(String))
dtUnits.Columns.Add("Address", GetType(String))
dsProject.Tables.Add(dtUnits)
dtUnits.Rows.Add("Unit 1", "1 Test Street")
dtUnits.Rows.Add("Unit 2", "2 Sample Avenue")
dtUnits.Rows.Add("Unit 3", "3a Demo Road")

Dim drMatch() As DataRow = dtUnits.Select("Unitname='Unit 1'")
If drMatch.GetUpperBound(0) >= 0 Then
  MsgBox(drMatch(0).Item("Address"))
Else
  MsgBox("No matching record")
End If

Answer 2

如果您不想使用數據集，則可以嘗試使用共享轉換器函數：

  Class unit
    Inherits row

    Public Property UnitName() As String
      Get
        Return fields(1)
      End Get
      Set(ByVal value As String)
        fields(1) = value
      End Set
    End Property

    Shared Function UnitToRow(u As unit) As row
      Return DirectCast(u, row)
    End Function

    Shared Function RowToUnit(r As row) As unit
      Dim u As New unit
      u.fields = r.fields
      Return u
    End Function

  End Class

  Sub usage()
    Dim lstR As New List(Of row) '<--- source data

    Dim lstU As List(Of unit) = lstR.ConvertAll(New Converter(Of row, unit)(AddressOf unit.RowToUnit))
    MsgBox(lstU(0).UnitName)

    lstU(0).UnitName = "xxx"

    Dim lstR2 As List(Of row) = lstU.ConvertAll(New Converter(Of unit, row)(AddressOf unit.UnitToRow))
    MsgBox(lstR2(0).fields(1))

  End Sub