في المثال السابق تم تحديث الاجراء LoadData
وبدل من ترك Result كائن من نوع Object جعلناه lList من الفئة Emp وعبارة عن Collection وهذا سوف يسهل العمل معه على مستوى المشروع .
وبدل من ترك Result كائن من نوع Object جعلناه lList من الفئة Emp وعبارة عن Collection وهذا سوف يسهل العمل معه على مستوى المشروع .
كود :
Public Sub LoadData(Optional Found As String = "")
Dim container As IObjectContainer = db
Dim result As IList(Of Emp) = container.Query(Of Emp)(GetType(Emp)) )
Try
BindingSource1.DataSource = result
Catch ex As Exception
End Try
End Sub
