JCProperty クラス内で次のコードを使用して、DAL からデータを取得しています。
Dim x As JCProperty
x = JCPropertyDB.GetProperty(PropertyID)
If Not x Is Nothing Then
Me.PropertyID = x.PropertyID
Me.AddressLine1 = x.AddressLine1
Me.AddressLine2 = x.AddressLine2
Me.AddressLine3 = x.AddressLine3
Me.AddressCity = x.AddressCity
Me.AddressCounty = x.AddressCounty
Me.AddressPostcode = x.AddressPostcode
Me.TelNo = x.TelNo
Me.UpdatedOn = x.UpdatedOn
Me.CreatedOn = x.CreatedOn
Me.Description = x.Description
Me.GUID = x.GUID
End If
これは問題なく動作しますが、DAL オブジェクト (JCPropertyDB) がビジネス オブジェクト (JCProperty) を認識している必要があり、同じオブジェクトを 2 回効果的に作成して入力します (1 回は DAL で BL に戻り、次に BL オブジェクト内で再度入力します)。自体)。
ここで何かが欠けています。もっと良い方法があるはずです!
事実上、許可されていない「Me = x」を割り当てる必要があります。誰かが私をまっすぐにすることができますか?